01.asp
<%
'1、请在你的个人主页上添加时间显示信息，显示当天的日期、时间及星期几。
%>
<html>
<head>
<title>第1题</title>
</head>
<body>
<%
Response.Write Date() & " " & Time()
Select Case Weekday(Date())
case 1
Response.Write "星期日"
case 2
Response.Write "星期一"
case 3
Response.Write "星期二"
case 4
Response.Write "星期三"
case 5
Response.Write "星期四"
case 6
Response.Write "星期五"
case 7
Response.Write "星期六"
End Select
%>
</body>
</html>
02.asp
<%'2、请编写函数能够随机产生从a到b之间的随机数，并举例调用。%>
<html>
<head>
<title>第2题</title>
</head>
<body>
<%
'随机函数如下：
function Rndab(a,b)
Randomize Time() '初始随机种子，否则每次产生的值都是一样的
Rndab=Int(b-a+1)*Rnd()+a
end function
Response.Write "产生一个10到20之间的随机数："& Rndab(10,20)
%>
</body>
</html>
03.asp
<%
'3、请开发一个页面，让用户通过下拉列表框选择自己想要访问新浪、搜狐还是网易网站，用户提交选择结果后自动打开该网站。
%>
<html>
<head>
<title>第3题</title>
</head>
<body>
<script type="text/vbscript">
function gotoPage()
dim site
site=siteLink.value
if site="新浪" then
window.location="http://www.sina.com"
elseif site="网易" then
window.location="http://www.163.com"
elseif site="搜狐" then
window.location="http://www.sohu.com"
else site="百度"
window.location="http://www.baidu.com"
end if
end function
</script>
<select name="siteLink" size="1" onChange="gotoPage()">
<option value="新浪">新浪</option>
<option value="网易">网易</option>
<option value="搜狐">搜狐</option>
<option value="百度">百度</option>
</select>
</body>
</html>
04.asp
<%
'4、请开发一个页面，显示来访者的IP地址。并判断：如果IP地址以202.112开头，
'则显示欢迎信息；否则显示为非法用户，并终止执行程序。
%>
<html>
<head>
<title>?4?</title>
</head>
<body>
<%
dim ip
ip=request.ServerVariables("REMOTE_ADDR")
if left(ip,7)="202.112" then
response.Write("??????!")
elseif left(ip,5)="127.0" then
response.Write("??ip???:"&ip&",??????!")
else
end if
%>
</body>
</html>
05.asp
<%
'5、请开发一个页面，其中可以输入姓名和年龄，并选择有效期为1周、1月或1年。
'提交表单后将姓名和年龄保存到Cookie中，并按选择设置有效期。
%>
<html>
<head>
<title>第5题</title>
</head>
<body>
<%
response.Write "当前cookies中的姓名是：" & request.Cookies("user")("username")
if Request.Form("username")<>"" and Request.Form("age")<>"" then
Response.Cookies("user")("username")=Request.Form("username")
response.cookies("user")("age")=Request.form("age")
response.cookies("user").expires=DateAdd("d",Request.Form("validity"),Date())
end if
%>
<form name="form1" action="" method="post">
姓名：<input type="text" name="username"><br>
年龄：<input type="text" name="age"><br>
请选择cookie有效期：
<input type="radio" name="validity" value="7">一周
<input type="radio" name="validity" value="30">一月
<input type="radio" name="validity" value="365">一年
<input type="submit" value="确定">
</form>
</body>
</html>
06.asp
<%
'6、编写一个能防止用户自我刷新的计数器。
%>
<html>
<head>
<title>第6题</title>
</head>
<body>
<%
if session("flat")<>1 then
application.Lock()
application("visitCount")=application("visitCount")+1
Application.UnLock()
session("flat")=1
end if
Dim visitCount
visitCount=Application("visitCount")
Response.Write "您是第" & visitCount & "位访问本站"
%>
</body>
</html>
07.asp
<%
'7、编程实现一个聊天室。要求在发言显示区能显示发言用户的用户名、IP、发言时间、心情及发言内容。
%>
<html>
<head>
<title>第7题</title>
</head>
<body>
<form name="form1" method="post" action="">
姓名：<input type="text" name="username"><br>
发言内容：<br><textarea name="say" rows="10" cols="40">请输入内容...</textarea><br>
<input type="submit" value="发送"><br>
</form>
<%
if trim(request.Form("username"))<>"" and trim(request.Form("say"))<>"" and trim(request.Form("say"))<>"请输入内容..." then
Dim say
say="IP为：" & request.ServerVariables("REMOTE_ADDR") & "<br>" & request.Form("username") & "<br>" & Now() & "说：" & request.Form("say") & "<br><br>"
application.Lock()
application("strChat")=application("strChat") & say
application.UnLock()
response.Write application("strchat")
end if
%>
</body>
</html>
08.asp
<%
'8、在线投票客户端应用的实现。具体要求是：在在线投票模块的客户端界面中，
'网站用户可选择投票主题进行投票，选择投票主题后，可选择投票选项进行提交，
'并可浏览该主题的投票结果。一个网络用户只可以对一个主题投一次票，防止同一用户多次投票。
%>
<html>
<head>
<title>第8题</title>
</head>
<body>
<h1>第8题</h1>
<form name="voteform" action="">
你喜欢看的电影：<br>
<input type="radio" name="movie" value="水世界">水世界
<input type="radio" name="movie" value="大侦探福尔摩斯">大侦探福尔摩斯
<input type="radio" name="movie" value="阿凡达">阿凡达 <br>
你喜欢听的音乐：<br>
<input type="radio" name="music" value="菊花台">菊花台
<input type="radio" name="music" value="吻别">吻别
<input type="radio" name="music" value="披着羊皮的狼">披着羊皮的狼 <br>
<input type="submit" value="投票">
</form>
<%
if request.QueryString("movie")<>"" and request.QueryString("music")<>"" then
response.Write("只能同时选择一个主题进行投票！")
elseif isempty(request.QueryString("movie")) and isempty(request.QueryString("music")) then
response.Write("投票选择不能为空！")
else
dim ip(30),i,flat
i=0
flat=0
while i<30 and flat=0
if application(ip(i))<>request.ServerVariables("REMOTE_ADDR") then
application.Lock()
application(ip(i))=request.ServerVariables("REMOTE_ADDR")
application.UnLock()
response.Write("投票成功")
flat=1
else
response.Write("你已经投过票了，投票无效")
flat=1
end if
i=i+1
wend
end if
%>
</body>
</html>
Db.mdb Access数据库
数据库表
查询
广告文件
09.asp
09a.asp
<%
'9、请编程实现用户注册模块。该模块所具备的功能如下：
'①用户注册表单页面，主要负责收集用户的信息，并对用户输入的信息进行简单的有效性验证；
'②能对用户提交的数据进行必要的有效性验证；
'③能将符合要求的用户数据添加到程序数据库中；
'④能对用户提交验证后的数据反馈结果。
%>
<html>
<head>
<title>第9题</title>
</head>
<script language="vbscript">
function check_info()
if form1.username.value="" then
msgbox("用户名不能为空")
check_info=0
elseif form1.password.value="" then
msgbox("密码不能为空")
check_info=0
elseif form1.email.value="" then
msgbox("email不能为空")
check_info=0
else
end if
end function
</script>
<body>
<h1>第9题a</h1>
<h2>用户注册</h2>
<form name="form1" onSubmit="check_info" action="" method="post">
用户名：<input type="text" name="username"><br>
密码：<input type="password" name="password"><br>
性别：<input type="radio" name="sex" value="男" checked>男
<input type="radio" name="sex" value="女">女<br>
e-mail:<input type="text" name="email"><br>
<input type="submit" value="提交">
<input type="reset" value="重置">
</form>
<%
if request.Form("username")<>"" And request.Form("password")<>"" then
dim username,password,sex,email
username=request.Form("username")
password=request.Form("password")
sex=request.Form("sex")
email=request.Form("email")
dim conn,strConn
set conn=server.CreateObject("ADODB.Connection")
'strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db.mdb")
strConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("db.mdb")
conn.Open strConn
Dim strSql
strSql="insert into user(username,password,sex,email) values('"&username&"','"&password&"','"&sex&"','"&email&"')"
conn.execute(strSql)
response.Redirect "09b.asp"
end if
%>
</body>
</html>
09b.asp
<html>
<head>
<title>第9题</title>
</head>
<body>
<h1>第9题b</h1>
<h2>登录验证</h2>
<form name="form1" action="" method="post">
用户名：<input type="text" name="username"><br>
密码：<input type="password" name="password"><br>
<input type="submit" value="登录">
<input type="reset" value="重置">
</form><br>
<%
if IsEmpty(session("username")) then
session("username")=""
elseif session("username")="" then
dim username,password
username=trim(request.Form("username"))
password=trim(request.Form("password"))
dim sql,conn,rs
sql="select * from user where username='"&username&"'"
set conn=server.CreateObject("ADODB.Connection")
'strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db.mdb")
strConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("db.mdb")
conn.open strConn
Set rs=conn.execute(sql)
if rs.eof then
response.Write "<br>登录失败</body></html>"
response.End()
elseif rs("password")<>password then
response.Write "<br>登录失败</body></html>"
response.End()
else
session("username")=username
response.Write "<br>登录成功</body></html>"
end if
else
end if
%>
</body>
</html>
10.asp
10a.asp
<%
'10、向指定的数据表中添加一条完整的记录，要求用两种方法实现。（说明：其中数据表由自己设定）
%>
<html>
<head>
<title>第10题</title>
</head>
<body>
<h1>第10题a</h1>
<script language="vbscript">
function check_info()
if form1.username.value="" then
msgbox "用户名不能为空"
check_info=0
elseif form1.password.value="" then
msgbox "密码不能为空"
check_info=0
elseif form1.email.value="" then
msgbox "email地址不能为空"
check_info=0
else
chck_info=1
end if
end function
</script>
<form name="form1" onSubmit="check_info" method="post" action="">
用户名：<input type="text" name="username"><br>
密码：<input type="password" name="password"><br>
性别：
<input type="radio" name="sex" value="男" checked>男
<input type="radio" name="sex" value="女">女<br>
email:<input type="text" name="email"><br>
<input type="submit" value="提交">
<input type="reset" value="重置">
</form>
<%
if not isempty(request.Form("username")) then
dim username,password,sex,email
username=trim(request.Form("username"))
password=trim(request.Form("password"))
sex=request.Form("sex")
email=trim(request.Form("email"))
dim conn,strConn
set conn=server.CreateObject("ADODB.Connection")
strConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" &server.MapPath("db.mdb")
conn.open strConn
dim strSql
strSql="insert into user(username,password,sex,email) values('"&username&"','"&password&"','"&sex&"','"&email&"')"
conn.execute(strSql)
response.Write "已向user表中了写入了"
response.Write(username)
end if
%>
</body>
</html>
10b.asp
<%
'10、向指定的数据表中添加一条完整的记录，要求用两种方法实现。（说明：其中数据表由自己设定）
%>
<html>
<head>
<title>第10题</title>
</head>
<body>
<h1>第10题b</h1>
<script language="vbscript">
function check_info()
if form1.username.value="" then
msgbox "用户名不能为空"
check_info=0
elseif form1.password.value="" then
msgbox "密码不能为空"
check_info=0
elseif form1.email.value="" then
msgbox "email地址不能为空"
check_info=0
else
chck_info=1
end if
end function
</script>
<form name="form1" onSubmit="check_info" method="post" action="">
用户名：<input type="text" name="username"><br>
密码：<input type="password" name="password"><br>
性别：
<input type="radio" name="sex" value="男" checked>男
<input type="radio" name="sex" value="女">女<br>
email:<input type="text" name="email"><br>
<input type="submit" value="提交">
<input type="reset" value="重置">
</form>
<%
if not isempty(request.Form("username")) then
dim username,password,sex,email
username=trim(request.Form("username"))
password=trim(request.Form("password"))
sex=request.Form("sex")
email=trim(request.Form("email"))
dim conn,strConn
set conn=server.CreateObject("ADODB.Connection")
'strConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" &server.MapPath("db.mdb")
'strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.Mappath("db.mdb")
'conn.open strConn
conn.Open "aspdb"
strSql="insert into user(username,password,sex,email) values('"&username&"','"&password&"','"&sex&"','"&email&"')"
set rs=server.CreateObject("ADODB.Recordset")
rs.open strSql,conn,1,1
response.Write "已向user表中了写入了"
response.Write(username)
end if
%>
</body>
</html>
11.asp
11a.asp
<%
'11、假设某数据表中存在"删除"这一字段，请编程实现使得"删除"记录时需要输入密码，
'密码正确才能修改。
%>
<html>
<head>
<title>第11题</title>
</head>
<script language="vbscript">
sub DelCheck(Byval username)
password = inputbox("密码提示：123456","请输入密码","",700,600)
if password="123456" then
window.location="11b.asp?username="&username
else
msgbox("密码错误")
window.location="11a.asp"
end if
end sub
</script>
<body>
<center>
<h1>第11题a</h1>
<%
if isempty(request.Form("username")) then
dim conn
set conn=server.CreateObject("ADODB.Connection")
conn.Open "aspdb"
strSql="select username,password,sex,email from user"
set rs=server.CreateObject("ADODB.Recordset")
rs.open strSql,conn,1,1
%>
<table align="center" border="1">
<tr><th>用户名</th><th>密码</th><th>性别</th><th>email</th><th>删除</th></tr>
<%
do while not rs.eof
%>
<tr>
<td><%=rs("username")%></td>
<td><%=rs("password")%></td>
<td><%=rs("sex")%></td>
<td><%=rs("email")%></td>
<td><input type="button" value="删除" onClick="DelCheck('<%=rs("username")%>')"></td>
</tr>
<%
rs.MoveNext
loop
end if
%>
</table>
</center>
</body>
</html>
11b.asp
<html>
<head>
<title>第11题</title>
</head>
<body>
<center>
<h1>第11题b</h1>
<table align="center" border="1">
<tr><th>用户名</th><th>密码</th><th>性别</th><th>email</th></tr>
<%
'if isempty(request.Form("username")) then
dim conn,username
username=request.QueryString("username")
response.Write "删除"&username&"成功<br>"
set conn=server.CreateObject("ADODB.Connection")
conn.Open "aspdb" '直接使用数据源
strSql1="delete from user where username='"&username&"'"
conn.execute(strSql1)
strSql2="select username,password,sex,email from user"
'set rs=server.CreateObject("ADODB.Recordset")
set rs=conn.execute(strSql2)
do while not rs.eof
%>
<tr>
<td><%=rs("username")%></td><td><%=rs("password")%></td>
<td><%=rs("sex")%></td><td><%=rs("email")%></td>
</tr>
<%
rs.MoveNext
loop
'end if
%>
</table>
</center>
</body>
</html>
12.asp
<%
'功能：实现将满足用户条件的数据从相应的数据表中找出来，
'并以表格的形式显示到Web页面。（说明：要求用参数查询实现）
'author:罗维
'日期：2011-10-29
%>
<html>
<head>
<title>第12题</title>
</head>
<body>
<center>
<h1>第12题</h1>
<form name="form1" action="">
请输入查找的姓名：<input type="text" name="username">
<input type="submit" value="查找">
</form>
<%
if request.form("username")<>"" then
dim conn,strConn
set conn=server.CreateObject("ADODB.Connection")
'strConn="Driver={Microsoft Access Driver (*.mdb)};Dbq="&server.MapPath("db.mdb")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db.mdb")
conn.Open strConn
dim cmd
set cmd=server.CreateObject("ADODB.Command")
cmd.ActiveConnection=conn
dim prmName,prmType,prmDirection,prmSize,prmValue
prmName="varUsername"
prmType=200 '200表示变长字符串
prmDirection=1
prmSize=10
prmValue=request.form("username")
dim prm
set prm=cmd.CreateParameter(prmName,prmType,prmDirection,prmSize,prmValue)
cmd.Parameters.Append(prm) '把prm参数对象添加到参数集
dim rs
cmd.CommandType=4 '表示查询指令是查询名
cmd.CommandText="qryByUsername"
Set rs=cmd.execute()
do while not rs.eof
response.Write "用户名：<b>"&rs("username") &"</b> "
response.Write "密码：<b>"&rs("password") &"</b> "
response.Write "性别：<b>"&rs("sex") &"</b> "
response.Write "email：<b>"&rs("email") &"</b> "
rs.moveNext
loop
end if
%>
</center>
</body>
</html>
14.asp
<%
'14、请开发一个简单的在线考试程序，包括3道单选题和3道多选题。
'单击"交卷"按钮后就可以根据标准答案在线评分。要求将试题和答
'案都存放到数据库中，从数据库中读出；学生在线完成后，将成绩保
'存回数据库。（提示：可能需要两张数据表，分别用来保存题目和成绩）
%>
<html>
<head>
<title>第14题</title>
</head>
<body>
<h1>第14题</h1>
<html>
<BODY>
<form action="" method="post">
<%
'以下连接数据库，建立一个Connection对象实例conn
Dim conn,strConn
Set conn=Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db.mdb")
conn.Open strConn
'-----------------------------
'以下建立Recordset对象实例rs，注意SQL语句中要用到上面获取的排序字段
Dim rs,strSql
Set rs=Server.CreateObject("ADODB.Recordset")
'下面先查找出单选的题目
strSql ="Select ID,Title,selectA,selectB,selectC,selectD,rightAnswer,type From Test where type='单选' Order By ID "
rs.Open strSql,conn,1 '注意参数设置为键盘指针
%>
<h3>一、单选题</h3>
<%
Dim i 'i表示题目数
i=1
while not rs.eof
response.write rs("Title")
%>
<br><input type="radio" name="q<%=i%>" value="A">A.<%=Server.HtmlEncode(rs("selectA"))%>
<br><input type="radio" name="q<%=i%>" value="B">B.<%=Server.HtmlEncode(rs("selectB"))%>
<br><input type="radio" name="q<%=i%>" value="C">C.<%=Server.HtmlEncode(rs("selectC"))%>
<br><input type="radio" name="q<%=i%>" value="D">D.<%=Server.HtmlEncode(rs("selectD"))%>
<br><input type="hidden" name="Answer<%=i%>" value="<%=rs("rightAnswer")%>">
<%
i=i+1
rs.moveNext
wend
rs.close
%>
<h3>二、多选题</h3>
<%
'下面先查找出多选的题目
strSql ="Select ID,Title,selectA,selectB,selectC,selectD,rightAnswer,type From Test where type='多选' Order By ID "
rs.Open strSql,conn,1
while not rs.eof
response.write rs("Title")
%>
<br><input type="checkbox" name="q<%=i%>" value="A">A.<%=Server.HtmlEncode(rs("selectA"))%>
<br><input type="checkbox" name="q<%=i%>" value="B">B.<%=Server.HtmlEncode(rs("selectB"))%>
<br><input type="checkbox" name="q<%=i%>" value="C">C.<%=Server.HtmlEncode(rs("selectC"))%>
<br><input type="checkbox" name="q<%=i%>" value="D">D.<%=Server.HtmlEncode(rs("selectC"))%>
<br><input type="hidden" name="Answer<%=i%>" value="<%=rs("rightAnswer")%>">
<%
i=i+1
rs.moveNext
wend
rs.close
%>
<p>
请输入您的姓名<input type="text" name="userName" > <input type="submit" value="交卷">
</form>
<%
'如果提交了表单，就执行下面的判断语句
If Trim(Request.Form("userName"))<>"" Then
Dim Grade '分数 （单选答案：BCACD；多选答案：CD\ABCD\AD\B\ACD）
Grade=0
Dim j
j=1
While j<i 'j表示当前是第几道题目，i表示总题目数。
If Request.Form("q"&j)=Request.Form("Answer"&j) Then
Grade=Grade+10
End If
j=j+1
Wend
'下面把该人的分数存到成绩表中。
strSql="insert into score(userName,score) values('"&Request.Form("userName")&"',"&Grade&")"
conn.execute(strSql)
Response.Write "<font color='red'>您的分数为" & Grade & "</font>"
End If
set rs=nothing
conn.close:set conn=nothing
%>
</BODY>
</HTML>
</body>
</html>
16.asp
<%
'16、编写asp程序，在指定文件夹下新建一个名为test.txt的文件，并向其中写入5行文字，
'然后将该文件的第三行写入另一个新的文件test1.txt中。
%>
<html>
<head>
<title>第16题</title>
</head>
<body>
<h1>第16题</h1>
<form name="form1" method="post" action="">
<p>
要求：向一个文件夹中创建一个test1.txt文件，并写入5行文字，<br>
再将test1.txt中的第3行文字写入第二个文件夹中创建的test2.txt
</p>
请指定文件夹的绝对或相对路径：<br>
第一个文件夹：<input type="text" name="path1" value=".\folder1"><br>
第二个文件夹：<input type="text" name="path2" value=".\folder2"><br>
<input type="hidden" name="flat" value="1">
<input type="submit" value="创建"><br>
</form><br>
<%
if request.Form("flat") then
dim fso
set fso=server.CreateObject("Scripting.FileSystemObject")
dim fld1,fld2
fld1=server.MapPath(request.Form("path1"))
response.Write(fld1&"<br>")
fld2=server.MapPath(request.Form("path2"))
fso.CreateFolder fld1
fso.Createfolder fld2
dim fle1,fle2,fle3
set fle1=fso.CreateTextFile(fld1&"\test1.txt",true)
set fle2=fso.CreateTextFile(fld2&"\test2.txt",true)
fle1.writeline("这是第一行")
fle1.writeline("这是第二行")
fle1.writeline("这是第三行")
fle1.writeline("这是第四行")
fle1.writeline("这是第五行")
fle1.close
response.Write("已经成功建立第一个文件，并写入了五行文字！<br>")
set fle3=fso.OpenTextFile(fld1&"\test1.txt",1,true) '第二个参数1:只读、2:只写、3:读写，第三个参数true表示可以覆盖
while fle3.Line<>3
fle3.SkipLine
wend
fle2.writeline(fle3.readline)
response.Write("已成功向第二个文件写入了第一个文件的第三行文字<br>")
fle3.close
fle2.close
end if
%>
</body>
</html>
18.asp
<%
'18、请制作一个页面，判断用户的浏览器版本。如果是IE5.0以下版本，
'就提示用户更新自己的浏览器软件。
%>
<html>
<head>
<title>第18题</title>
</head>
<body>
<h1>第18题</h1>
<%
dim bc
set bc=server.CreateObject("MSWC.BrowserType")
response.Write("<br>浏览器的类型："&bc.Browser)
response.Write("<br>浏览器的版本："&bc.Version)
response.Write("<br>支持cookie否："&bc.Cookies)
response.Write("<br>支持Java小程序否："&bc.JavaApplets)
response.Write("<br>支持VBScript否："&bc.VBScript)
response.Write("<br>")
If UCase(Trim(bc.Browser))="IE" and cint(bc.Version)<5 Then
response.write "您的浏览器版本太低，请更新！"
End If
%>
</body>
</html>
19.asp
<%
'19、请自己编程实现广告轮显效果。（提示：使用随机函数，但是注意不同广告的出现概率）。
%>
<html>
<head>
<meta http-equiv="refresh" content="3">
</head>
<body><center>
<%
'这段语句显示广告图片
'首先产生一个10以内的随机整数
Dim NumTemp
Randomize Timer '该语句用于初始化随机种子，否则每次产生的值都一样
NumTemp = Int((10 * Rnd()) + 1)
'根据该整数显示相应的图片，并加上超链接
Select Case Numtemp
Case 0,1,2,3
Response.Write "<a href='http://blog.163.com/luowei505050@126/' target='_blank'><img width='300' height='70' border='2' src='advimages/163.png'></a>"
Case 4,5,6
Response.Write "<a href='http://www.cnblogs.com/luowei010101/' target='_blank'><img width='300' height='70' border='2' src='advimages/cnblogs.png'></a>"
Case 7,8,9
Response.Write "<a href='http://hi.baidu.com/' target='_blank'><img width='300' height='70' border='2' src='advimages/baidu.png'></a>"
End Select
%>
</center></body>
</html>
19b.asp
<%
if request.QueryString("url")<>"" then
response.Redirect(request.QueryString("url"))
end if
%>
<html>
<head>
<title>第19题(用组件实现广告轮转)</title>
</head>
<body>
<h1>第19题(用组件实现广告轮转)</h1>
<%
dim id
set ad=server.CreateObject("MSWC.AdRotator")
ad.Border=2
ad.Clickable=true
ad.TargetFram="_blank"
response.Write(Ad.GetAdvertisement("adver.txt"))
%>
</body>
</html>
adver.txt
redirect 19b.asp
width 300
height 70
border 1
*
advimages/163.gif
http://www.168.com
网易主页
40
advimages/baidu.gif
http://www.baidu.com
百度主页
30
advimages/cnblogs.gif
http://www.cnblogs.com
博客园主页
20