编程一1．请编写代码，在页面上显示如下图形。
注意：只要写出主要代码即可*******************************************************答案：<%Dim I,JFor I=10 To 1 Step -1For J=1 To IResponse.Write "*"NextResponse.Write "<br>"Next%>2．利用Recodset对象也可以插入记录，现在针对图1所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“”，网站简介为“门户网站”，提交日期为当天。
注意：只给出主要代码即可，程序的开头部分已经给出。
<%Dim db, strConnstrConn="Dbq=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"Set db=Server.CreateObject("ADODB.Connection")答：<%Dim db, strConnstrConn="Dbq=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"Set db=Server.CreateObject("ADODB.Connection")'建立Recordset对象Set rs=Server.CreateObject("ADODB.Recordset")strSql ="Select * From link"rs.Open strSql,db,0,2'添加记录rs.AddNewrs("name")= "搜狐"rs("url")=""rs("intro")="门户网站"rs("submit_date")=Date()rs.Update%>3．针对图1，现在有两个文件add_form.asp和add.asp，这两个文件用来向表中添加记录，add_form.asp已经给出，请你完成add.asp。
要求：（1）只要完成添加记录的主要代码；（2）网站简介（intro）可以省略，其它字段均不可以省略。
Add_form.asp<form name="form1" method="post" action="add.asp"><tr><td>网站名称</td><td><input type="text" name="name" size=20></td> </tr><tr><td>网站地址</td><td><input type="text" name="URL" size=40></td> </tr><tr><td>网站简介</td><td><textarea name="intro" rows="2" cols="40" wrap="soft"></textarea></td></tr><tr><td></td><td><input type="submit" value=" 确定"></td></tr></form>add.asp（请在下面完成add.asp，开头部分语句和最后一条语句已经给出，只要在中间添加语句即可）<% Option Explicit %><%If Request.Form("name")<>"" And Request.Form("URL")<>"" Then'以下连上数据库，建立一个Connection对象实例dbDim dbSet db=Server.CreateObject("ADODB.Connection")db.Open "Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"End If%>答案：<%If Request.Form("name")<>"" And Request.Form("URL")<>"" Then'以下连上数据库，建立一个Connection对象实例dbDim dbSet db=Server.CreateObject("ADODB.Connection")db.Open "Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"Dim sqla,sqlb,strSqlsqla="Insert Into link(name,url,submit_date"sqlb=" Values('" & Request.Form("name") & "','" & Request.Form("url") & "',#" & Date() & "#"If Request.Form("intro")<>"" Thensqla=sqla & ",intro"sqlb=sqlb & ",'" & Request.Form("intro") & "'"End IfstrSql=sqla & ")" & sqlb & ")"db.Execute(strSql)End If%>编程二：1．有100个和尚吃100个馒头，大和尚1人吃4个，小和尚4人吃1个，问有多少个大和尚和多少个小和尚？答案：<html><head><title>大小和尚吃馒头问题</title></head><body><%Dim I,J,ren,mantouFor I=1 To 100 '大和尚从1到100循环For J=1 To 100 '小和尚从1到100循环ren=I+J '计算总人数mantou=I*4+J*0.25 '计算总馒头数If ren=100 And mantou=100 ThenResponse.write"<br>大人=" & I & " 小孩=" & JEnd IfNextNext%></body></html>2．请使用ASP提供的计数器组件，在页面上显示“您是第”X “位访客”。
（只要写出主要代码即可）答案：<%Dim count '声明一个组件实例变量Set count=Server.CreateObject("MSWC.pagecounter")count.PageHit() '将当前网页访问次数加1Dim visit_numbervisit_number=count.Hits() '获取当前网页访问次数Response.Write "您是第" & cStr(visit_number) & "位访客"%>3．假设有数据库address,内有表link,该表中包含字段：姓名（name varchar(50)）,电话(tel varchar(20)),email(email varchar(50))，请分页将link表中的数据显示出来，且每页显示记录8条。
答案：<% Option Explicit %><%Dim db, strConstrCon ="Dbq="&Server.Mappath("address.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"Set db=Server.CreateObject("ADODB.Connection")db.Open strCon%><html><head><title>查询全部成员</title></head><body><h2 align="center">成员列表</h2><%'先输出表格的标题栏%><center><table border="0" width="95%"><tr bgcolor="#B7B7B7" align="center"><td width=10%>姓名</td><td width=15%>电话</td><td width=25%>email</td></tr><%'建立Recordset对象Dim rs,strSqlSet rs=Server.CreateObject("ADODB.Recordset")strSql ="Select * From link Order By name " '以姓名为序排列rs.Open strSql,db,1 '因为要分页显示，所以用键盘指针'下面查询记录，如果非空就显示记录，如果是空的，给出提示信息If rs.Bof Or rs.Eof ThenResponse.Write "现在还没有数据"Else'以下主要为了分页显示Dim page_size '定义每页多少条记录变量Dim page_no '定义当前是第几页变量Dim page_total '定义总页数变量page_size=8 '每页显示10条记录'如果第一次打开，则page_no为1，否则由传回的参数决定If Request.QueryString("page_no")="" Thenpage_no=1Elsepage_no=Cint(Request.QueryString ("page_no")) '用Cint将字符串变为整数End Ifrs.PageSize=page_size '设置每页多少条记录page_total=rs.PageCount '返回总页数rs.AbsolutePage=page_no '设置当前显示第几页'下面一段利用表格显示当前页的所有记录Dim II=page_size '该变量用来控制显示当前页记录Do While Not rs.Eof And I>0 '循环直到当前页结束或文件结尾I=I-1'下面将利用表格输出名单Response.Write "<tr bgcolor='#E6E6E6' align='center'>"Response.Write "<td>" & rs("name") & "</td>"Response.Write "<td>" & rs("tel") & " </td>"Response.Write "<td><a href='mailto:" & rs("email") & "'>" & rs("email") & "</td>"Response.Write "</tr>"rs.MoveNextLoopResponse.Write "</table>" '表格结束Response.Write "<p>请选择数据页: "'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接For I=1 To page_totalIf I=page_no ThenResponse.Write I & " "ElseResponse.Write "<a href='index.asp?page_no=" & I & "'>" & I & "</a> "End IfNextEnd If'关闭对象rs.CloseSet rs=nothingdb.CloseSet db=nothing%></center></body></html>编程三：（1）使用asp 控制显示字体的大小，程序运行的结果如下图：（11分）答案：<%for i=1 to 6%><font size="<%=i%>">hello world</font><br><%next%>（2）创建一个网站计数器，程序运行效果如下图：（10分）答案：<%application.Lockapplication("num")=application("num")+1application.UnLockresponse.Write("此页面被访问过"&application("num")&"次")%>（3）假设数据库data.mdb中有个admin（username,password）表，用于存放管理员的信息,且数据库已连接成功。