rs.AddNew rs(\搜狐\ rs(\ rs(\门户网站\ rs(\ rs.Update %>
3．针对图1，现在有两个文件add_form.asp和add.asp，这两个文件用来向表中添加记录，add_form.asp已经给出，请你完成add.asp。要求：（1）只要完成添加记录的主要代码；（2）网站简介（intro）可以省略，其它字段均不可以省略。
Add_form.asp
add.asp（请在下面完成add.asp，开头部分语句和最后一条语句已经给出，只要在中间添加语句即可）
<% Option Explicit %> <%
If Request.Form(\ '以下连上数据库，建立一个Connection对象实例db Dim db Set db=Server.CreateObject(\ db.Open \(*.mdb)};\
Dim sqla,sqlb,strSql sqla=\ sqlb=\Values('\& Request.Form(\& \& Request.Form(\& \& Date() & \ If Request.Form(\ sqla=sqla & \ sqlb=sqlb & \ End If strSql=sqla & \ db.Execute(strSql)
End If %>
1．有100个和尚吃100个馒头，大和尚1人吃4个，小和尚4人吃1个，问有多少个大和尚和多少个小和尚？
Dim I,J,ren,mantou
For I=1 To 100 '大和尚从1到100循环 %>
2．请使用ASP提供的计数器组件，在页面上显示“您是第”X “位访客”。（只要写出主要代码即可） <%
3．假设有数据库address,内有表link,该表中包含字段：姓名（name varchar(50)）,电话(tel varchar(20)),email(email varchar(50))，请分页将link表中的数据显示出来，且每页显示记录8条。
<% Option Explicit %> <%
For J=1 To 100 '小和尚从1到100循环
ren=I+J '计算总人数 mantou=I*4+J*0.25 '计算总馒头数 If ren=100 And mantou=100 Then
Response.write\大人=\小孩=\End If
Next
Next
Dim count '声明一个组件实例变量 Set count=Server.CreateObject(\
count.PageHit() '将当前网页访问次数加1 Dim visit_number
visit_number=count.Hits() '获取当前网页访问次数 Response.Write \您是第\位访客\
Dim db, strCon
strCon =\Access Driver Set db=Server.CreateObject(\db.Open strCon
(*.mdb)}\
%>
<%
'先输出表格的标题栏 %>
'建立Recordset对象 Dim rs,strSql
Set rs=Server.CreateObject(\
strSql =\ '以姓名为序排列
rs.Open strSql,db,1 '因为要分页显示，所以用键盘指针 '下面查询记录，如果非空就显示记录，如果是空的，给出提示信息 If rs.Bof Or rs.Eof Then
Response.Write \现在还没有数据\ '以下主要为了分页显示
Dim page_size '定义每页多少条记录变量 Dim page_no '定义当前是第几页变量 Dim page_total '定义总页数变量 page_size=8 '每页显示10条记录 '如果第一次打开，则page_no为1，否则由传回的参数决定 If Request.QueryString(\ Else
page_no=Cint(Request.QueryString (\ '用Cint将字符串变为整数 End If
rs.PageSize=page_size '设置每页多少条记录 page_total=rs.PageCount '返回总页数 rs.AbsolutePage=page_no '设置当前显示第几页
page_no=1
Else
姓名 电话 email
'下面一段利用表格显示当前页的所有记录 Dim I
I=page_size '该变量用来控制显示当前页记录 Do While Not rs.Eof And I>0 '循环直到当前页结束或文件结尾
I=I-1
'下面将利用表格输出名单
Response.Write \Response.Write \Response.Write \
Response.Write \href='mailto:\& rs(\& \& rs(\& Response.Write \rs.MoveNext
\
Loop
Response.Write \ '表格结束 Response.Write \请选择数据页: \
'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接 For I=1 To page_total
If I=page_no Then Else
Response.Write \href='index.asp?page_no=\& I & \& I & Response.Write I & \
\
End If Next
End If '关闭对象 rs.Close Set rs=nothing db.Close Set db=nothing %>
1、使用asp 控制显示字体的大小，程序运行的结果如下图：（11分）
<%
for i=1 to 6%>
2、创建一个网站计数器，程序运行效果如下图：（10分）
<%
application.Lock
application(\application.UnLock
response.Write(\此页面被访问过\次\
3、假设数据库data.mdb中有个admin（username,password）表，用于存放管理员的信息,且数据库已连接成功。请开发一个管理员登录验证模块admin.asp，要求：只有当输入正确的口令才进入管理页面manage.asp, 否则弹出对话框“用户名或密码不对，请重新输入！”（15） <%
user=request.form(\pass=request.form(\
sql=\set rs=conn.execute(sql) if rs.eof or rs.bof then response.write \ response.write \用户名或密码不对，请重新输入！');\ response.write \ response.write \else
session(\response.redirect \