ASP动态网页制作基础教程</body></html>1、检索表单数据<% @ language="vbscript"%><html><head><title>检索表单数据</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head><body bgcolor="#FFFFFF" text="#000000"><p><b><font color="#6600CC">您的个人资料如下：</font></b></p> <p>姓名：<%=request.form("textfield")%> </p><p>性别：<%=request.form("radiobutton")%> </p><p>爱好：<%if request.form("checkbox")<>"" thenresponse.write request.form("checkbox") & " "end ifif request.form("checkbox")<>"" thenresponse.write request.form("checkbox2") & " "end ifif request.form("checkbox3")<>"" thenresponse.write request.form1("checkbox") & " " end if %> </p> </body> </html>练习：自己设计表单及输出内容。
第四讲 ADO 的数据连接应用一、 数据库存取数据的设计理念二、创建数据库 以ACCESS 为例：三、创建ASP 程序 （一）创建数据库连接 <%dim conn dim connstron error resume next数字信息录入 网 页 数字信息采集 网 页 数据库客户请求 网 页 数据处理发送请求信息信息返回 网 页connstr="DBQ="+server.mappath("xsmd.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set conn=server.createobject("ADODB.CONNECTION")conn.open connstr%>（二）创建数据输入表单<html><head><title>学生信息</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#FFFFFF" text="#000000"><table width="300" border="0" cellspacing="0" cellpadding="0" bgcolor="#99CCFF"><tr><td><form name="form1" method="post" action="xsxx_add.asp"><p>学号：<input type="text" name="text1" size="12"></p><p>姓名：<input type="text" name="text2" size="8"></p><p>班级：<input type="text" name="text3" size="16"></p><p>出生日期：<input type="text" name="text4" size="16"></p><p>家庭住址：<input type="text" name="text5" size="30"></p><p>联系电话：<input type="text" name="text6" size="12"></p><p><input type="submit" name="Submit" value="提交"><input type="reset" name="Submit2" value="重填"></p></form><p></p></td></tr><tr><td><a href="brower.asp" target="_blank"><font size="2">查阅学生信息</font></a></td> </tr></table></body></html>（三）提交数据保存表单数据入数据库<%dim xh,xm,grade,age,addr,phofunction sqlstr(data)sqlstr="'" & replace(data,"'","''")&"'"end functionxh=request.form("text1")xm=request.form("text2")grade=request.form("text3")age=request.form("text4")addr=request.form("text5")pho=request.form("text6")xh=trim(left(xh,12))xm=trim(left(xm,10))grade=trim(left(grade,12))age=trim(left(age,12))addr=trim(left(addr,25))pho=trim(left(pho,12))if xh="" or xm="" or grade="" or addr="" thenresponse.write "请将您的内容填写完整，不能为空哟!"response.endend ifapplication.Lock%><%dim conndim connstron error resume nextconnstr="DBQ="+server.mappath("xsmd.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set conn=server.createobject("ADODB.CONNECTION")conn.open connstr%><%sql="insert into 学生信息(xh,xm,grade,age,addr,pho) values("sql=sql & sqlstr(xh) & ","sql=sql & sqlstr(xm) & ","sql=sql & sqlstr(grade) & ","sql=sql & sqlstr(age) & ","sql=sql & sqlstr(addr) & ","sql=sql & sqlstr(pho) & ")"conn.execute sqlapplication.unLockresponse.write "<h2 align=center > 信息保存成功<a href=""xsxx.htm"">返回</a>继续！</h2>" %>（四）显示数据库数据<%dim conndim connstrconnstr="DBQ="+server.mappath("xsmd.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set conn=server.createobject("ADODB.CONNECTION")conn.open connstr%><html><head><title>查阅学生信息</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#FFFFFF" text="#000000"><p></p><%dim sqldim rsSet rs= Server.CreateObject("ADODB.Recordset")sql="select top 60 * from 学生信息order by id desc"rs.open sql,conn,1,1%><table width=100% border="1" cellspacing="0" cellpadding="0" bordercolorlight="#99CCFF" bordercolordark="#FFFFFF""><tr class=f9 bgcolor="#8585d6" style="color:white"><td width="10%" align="center" bgcolor="#8585d6"><font color="#FFFFFF">学号</font></td> <td width="10%" align="center"><font color="#FFFFFF">姓名</font></td><td width="10%" align="center">班级</td><td width="10%" align="center"><font color="#FFFFFF">出生日期</font></td><td width="30%" align="center">家庭住址</td><td width="15%" align="center" height="20"><font color="#FFFFFF">联系电话</font></td> </tr><%'i=0do while not rs.eof%><tr bgcolor="<%if (i mod 2)=0 then Response.write ""%>"><td width="10%"><%=rs("xh")%></td><td width="10%" align="center" valign="middle"><div align="center"><%=rs("xm")%> </div></td><td width="10%" align="center"><%=rs("grade")%><div align="center"></div><div align="center"></div></td><td width="10%" align="center"><p align="center"><%=rs("age")%></td><td width="30%" align="center"><%=rs("addr")%><div align="center"></div><div align="center"></div><div align="center"></div></td><td width="15%" height="23"><p align="center"><%=rs("pho")%></td></tr><% 'i=i+1'if i>=MaxPerPage then exit dors.movenextloop%></table><% 'end sub %><p><font size="2" color="#3399FF"><a href="xsxx.htm" target="_top">返回登记页面</a></font></p> </body></html>。