"','"& request.form("(12)＿＿＿＿＿＿＿＿＿＿ ")&"','"& request.form("QQ")&_ "','"& request.form("(13)＿＿＿＿＿＿＿＿＿＿ ")&"','"& request.form("Email ")&""'
6
ASP程序设计基础期末复习指导
set obj=server.createobject("adodb.connection")
obj.open "(14)＿＿＿＿＿＿＿＿＿＿ "
into_db="insert into (15)＿＿＿＿＿＿＿＿＿＿(姓名,性别,昵称,密码,爱好,联系电话,QQ号码, 联系地址,E-mail地址) values("(16)＿＿＿＿＿＿＿＿＿＿")"
obj. (17)＿＿＿＿＿＿＿＿＿＿(into_db)
obj.close
%>
2．下面的应用程序是用来在web页面中创建一个广告轮显组件，请根据已知语句补全整个 源程序。
1) 已知Test3..txt是一个显示轮显广告的标准计划文件，
中国人的主页是：http：///
新浪的主页是：
华南理工大学的主页是：
搜狐的主页是:http：///
2) 中国人主页广告的图片名是：1.gif 新浪主页广告的图片名是：2.gif
华南理工大学主页广告图片名是：3.gif 搜狐主页广告的图片名是：4.gif
Test3.txt计划文件中的内容如下：
Redirect Test4.asp
(18)＿＿＿＿＿＿＿＿ 100 定义广告图片的宽度为100
(19)＿＿＿＿＿＿＿＿ 50 定义广告图片的高度为50
border 1
*
1.gif
(20)＿＿＿＿＿＿＿＿
中国人的主页
2
(21)＿＿＿＿＿＿＿＿
/
新浪网页
3
3.gif
(22)＿＿＿＿＿＿＿＿
华南理工大学主页
3
(23)＿＿＿＿＿＿＿＿
http：///
搜狐网页
7
ASP程序设计基础期末复习指导
2
以下部分是显示广告的页面文件Test3.asp的源程序：
<html><body>
<%
Set ad =(24)＿＿＿＿＿＿＿＿("MSWC.AdRotator")
response.write ad.GetAdvertisement("(25)＿＿＿＿＿＿＿＿")
%>
(26)＿＿＿＿＿＿＿＿
</html>
单击广告后可以打开的页面文件Test4.asp其中的源代码如下：
<html>
<body>
<%
response.redirect (27)＿＿＿＿＿＿＿＿
%>
(28)＿＿＿＿＿＿＿＿
</html>
3．下面是一个使用connection对象更改数据库中的数据，并使用recordset对象返回数据库中某数据行的信息，请根据注释完成程序Test5.asp程序中的源代码。
<%
'下面的语句是创建一个链接对象cn，
Set (29)＿＿＿＿＿＿＿＿＿＿=server.CreateObject("ADODB.Connection")
'下面的语句是建立与数据源名为q1的连接
Cn.open "DSN=(30)＿＿＿＿＿＿＿＿＿＿ "
'设置SQL的插入命令
strSQL="(31)＿＿＿＿＿＿＿＿＿＿＿ s1(姓名,联系地址,联系电话,手机号码)”&
” VALUES('张三','广州','38673000','135000000')"
Cn.Execute (32)＿＿＿＿＿＿＿＿＿＿
'下面语句在浏览器中显示刚才所插入的数据行
%><%
set (33)＿＿＿＿＿=server.createobject("ADODB.Recordset")
rs.Open "select * from s1",(34)＿＿＿＿＿＿＿＿＿＿ %>
姓名：<% =rs(" (35)＿＿＿＿＿＿＿＿＿") %><p>
联系地址：<% =rs("联系地址") %><p>
联系电话：<% =rs("联系电话") %><p>
手机号码：<% =rs("手机号码") %><p>
<%
'删除刚才所插入的数据行
Cn.Execute "(36)＿＿＿＿＿＿＿＿＿＿ from s1 where 姓名='张三'"
'取消链接对象
8
ASP程序设计基础期末复习指导
set cn=nothing
set rs= nothing
%>
4.下面的程序Test6.asp是一个关于创建文本文件并往里面写入文本的应用程序。
<html><head><title> </title></head>
<body bgcolor="#FFFFFF" text="#000000">
<%set fs=CreateObject("Scripting.FileSystemObject")
set a=fs.createtextfile("d:\asp\test6.txt")
for i=1 to i=3
a.writeLine("你好！")
next
for i=1 to i=3
a.write("你好！")
next
a.close %>
</body></html>
当运行一次该程序之后，写出Test6.txt文件里面的内容（要求格式正确）。
5．读下面的程序Test8.asp写结果。
<html><head><title></title>
</head><body>
<script language="vbscript">
dim n, s, number
s=1
number=prompt( "请输入一个数")
n=number
if n<1000 and n>=1 then
for i=1 to n
s=s*i
next
document.write"计算结果为："
for i=1 to n-1
document.write i & "*"
next
document.write n & "="
document.write s
else document.write"输入有误"
end if
9
ASP程序设计基础期末复习指导
</script></body></html>
当输入的值number＝4；number＝5；number＝1001时，分别写出其运行结果：
6．已知数据库表s1如下，读下面的程序Test9.asp在右边的括号中写出对应结果。
程序Test9.asp
<%
set rs=server.createobject("ADODB.Recordset")