分享
 
 
 

用ASP建立自动友情链接系统

王朝asp·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

如果你拥有自己的网站,是不是经常同其它人交换友情链接?每次当你用手工的方法添加他人链接的时候,有没有想过拥有一套能自动登记网站信息并产生友情链接页面的自动友情链接系统?如果这两个问题的答案都是“Yes”,那么,请跟我来,你很快会得偿心愿的。

一个自动友情链接系统至少应该具备两个功能:一是能采集并存储网站信息;另一点就是能根据存储的信息自动产生Web页面。要实现这两个功能,仅仅用HTML语言显然是不够的,必须借助于其它方法,比如用CGI或ASP编程。

目前国外已有服务商提供现成的CGI程序,用来自动产生友情链接,这些程序当然可以满足上面两点基本要求,但它至少有两个缺点:一是速度慢,CGI程序本身效率就不很高,再加上还要访问国外站点,最终的速度就可想而知了。另一点就是缺乏灵活性,别人的CGI程序是死的,使用者基本上没有多少改变的余地,这样就无法创建富有个性的页面。

而使用ASP(Active Server Pages)技术则可以弥补上述不足。ASP代码不仅具有充分的灵活性,而且执行速度也比CGI程序要快,因此ASP是网站主人一个合适的选择。

一、用ASP实现自动友情链接简单的原理。

1、友情网站的信息收集

为了收集友情网站的各种信息(包括姓名、网站名称、地址等),我们只需使用标准HTML的Form技术即可。即在页面中放置一个Form,其中放置若干个文本框和一个“提交”按钮,文本框供用户输入信息,Form的Action属性设定为信息处理页面的名称,即asp文件的名称(下例中的autolink.asp),数据传输的方法Method设定为Post。

2、友情网站信息的保存

autolink.asp文件执行时,首先使用Request对象的form属性读取各个参数;然后用Server对象的CreateObject方法创建一个ADO(Active Data Object)对象,并根据数据库的类型、位置、名称等设置相应的DNS,再使用ADO对象的Open方法建立数据库连接;连接建立完成后,使用一条标准的SQL语句向数据库中添加一条记录(SQL语句中嵌入变量的写法请参照下面的代码)。这样就实现了保存信息的目的。

3、友情链接页面的生成

为了读取数据库的信息,首先要使用SQL语句创建一个记录集rs,然后用rs的Field属性读取每个字段内容,并根据字段的值生成标准的HTML语句。

二、实例

下面是一个具体的实例。

首先,我们需要建立一个数据库,用来存放所有友情网站的信息,本例我们用Access建立一个简单的数据库autolink.mdb,该数据库仅包含一个表autolink,表的结构如下:

字段名

数据类型

字段长度

必要字段否

字段描述

name

字符型

20

Yes

网站的名称

address

字符型

60

Yes

网站的地址

logoaddress

字符型

60

Yes

网站标识图标的地址

description

字符型

120

Yes

网站的简短介绍

接下来,我们需要创建两个页面:autolink.htm和autolink.asp。

autolink.htm是一个标准的HTML页面,用来收集其它网站的信息,其代码如下(为节约版面,代码中省去了所有的修饰语句和数据完整性检查语句):

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>自动链接系统--请输入您的网站资料</title>

</head>

<form method="post" action="autolink.asp">

<p>网站名称:<input type="text" name="name" ></p>

<p>网站地址:<input type="text" name="address"></p>

<p>图标地址:<input type="text" name="logoaddress"></p>

<p>网站描述:<textarea rows="2" name="description"></textarea></p>

<p><input type="submit" value="填好了,提交" name="Submit"> </p>

</form>

</body>

</html>

以上代码建立了包含三个单行文本框、一个多行文本框和一个提交按钮的表单(Form),这个表单负责接收用户的输入(包括网站名称、地址、图标和描述),当用户按下“提交”按钮时,表单将用户输入的信息用Post方法传送给autolink.asp页面。由于是纯Html页面,因此我们可以非常轻松的使用诸如FrontPage 98之类的可视化工具产生这些代码。

autolink.asp页面的代码如下(同样省去了修饰语句):

<%@ Language=VBScript %>

<html>

<head>

<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">

<title>我的友情链接</title>

</head>

<body>

<%

name=Request.form("name")

address=Request.form("address")

logoaddress=Request.form("logoaddress")

description=Request.form("description")

'建立数据库连接

set conn=server.CreateObject("adodb.connection")

myDSN="DRIVER={Microsoft Access Driver (*.mdb)};"

myDSN=myDSN & "dbq=" & server.MapPath("autolink")

Conn.Open myDSN

'增加一个记录

sqlstring="insert into autolink (name,address,logoaddress,description) values("

sqlstring=sqlstring & "'" & name & "','" & address & "','" & logoaddress & "','" & description & "')"

Conn.Execute sqlstring

'打开记录集

sqlstring="select * from autolink"

set rs=Conn.Execute(sqlstring)

%>

<table border="1" width="72%" cellpadding="2">

<tr>

<td width="27%">网站名称</td>

<td width="73%">网站图标和链接</td>

</tr>

<% do while not rs.eof%>

<tr>

<td width="27%"> <%=rs("name")%> </td>

<td width="73%">

<a href="<%=rs("address")%>">

<img src="<%=rs("logoaddress")%>" alt="<%=rs("description")%>"></a></td>

</tr>

<%

rs.movenext

loop

%>

</table>

'关闭连接

<%

set rs=nothing

conn.close

set conn=nothing

%>

</body>

</html>

将上面两个文件和数据库文件上传到服务器上,用浏览器打开autolink.htm,画面如上图。

填写完毕后,按下“提交”按钮,出现右图画面,表明数据已被正确记录,并生成了正确的Html页面。

对于本文的例子,读者只需稍加修改,就可以将它应用在实际中。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有