欢迎来到天天文库
浏览记录
ID:37930551
大小:62.00 KB
页数:9页
时间:2019-06-03
《html和java简单示例》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、编写代码:1.登陆页login.asp,要求验证用户名和密码,如果正确则引导到sdoffice.asp页面,如果不正确则引导到显示错信息页errorinfo.htm2.假设有数据库guest.mdb,数据表为guest,表中有字段name,设计一个简单的程序,采用参数查询方法查询name3.假设有数据库guest.mdb,数据表为guest,表中有字段name和sex.设计通过表单向数据库里添加记录和设计删除记录 答案:问题1(方法一)<%ifRequest.Form("name")<>""andRequest.Form("passwd")<>""thenifRequest.Form("nam
2、e")="admin"andRequest.Form("passwd")="admin"thenResponse.Redirect("sdoffice.asp")elseResponse.Redirect("errorinfo.htm")endifendif%> 问题1(方法二)<%aduser="adm
3、in"'这里设置用户名adpass="admin888"'这里设置密码ifrequest.form("username")=aduserandrequest.form("password")=adpassthenresponse.redirect"sdoffice.asp"elseresponse.redirect"errorinfo.htm"endif%>用户:密码:4、陆"> 第9页共9页问题2(查询):<%ifrequest.form("username")<>""thendimusernameusername=request.form("username")DimConnSetConn=Server.CreateObject("ADODB.Connection")Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("guest.mdb")DimRs,SqlSetRs=Server.CreateObject("ADODB.Recordset")Sql=5、"Select*From[guest]Wherename='"&username&"'"Rs.OpenSql,Conn,1,1IfRs.EOFThenresponse.writeusername&"不存在!"elseresponse.writeRs("name")&"存在!"endifrs.closesetrs=nothingconn.closesetconn=nothingresponse.endendif%>输入用户名:6、>问题3(插入数据):<%ifrequest.form("username")<>""andrequest.form("sex")<>""thenDimConnSetConn=Server.CreateObject("ADODB.Connection")Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("guest.mdb")DimRs,SqlSetRs=Server.CreateObject("ADODB.Recordset")Sql="Select*From[guest]"Rs.OpenSql,Co7、nn,1,3rs("name")=request.form("username")rs("sex")=request.form("sex")rs.updaters.closeset第9页共9页rs=nothingconn.closesetconn=nothingresponse.write"插入成功!"response.endendif%>用户名:
4、陆"> 第9页共9页问题2(查询):<%ifrequest.form("username")<>""thendimusernameusername=request.form("username")DimConnSetConn=Server.CreateObject("ADODB.Connection")Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("guest.mdb")DimRs,SqlSetRs=Server.CreateObject("ADODB.Recordset")Sql=
5、"Select*From[guest]Wherename='"&username&"'"Rs.OpenSql,Conn,1,1IfRs.EOFThenresponse.writeusername&"不存在!"elseresponse.writeRs("name")&"存在!"endifrs.closesetrs=nothingconn.closesetconn=nothingresponse.endendif%>输入用户名:6、>问题3(插入数据):<%ifrequest.form("username")<>""andrequest.form("sex")<>""thenDimConnSetConn=Server.CreateObject("ADODB.Connection")Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("guest.mdb")DimRs,SqlSetRs=Server.CreateObject("ADODB.Recordset")Sql="Select*From[guest]"Rs.OpenSql,Co7、nn,1,3rs("name")=request.form("username")rs("sex")=request.form("sex")rs.updaters.closeset第9页共9页rs=nothingconn.closesetconn=nothingresponse.write"插入成功!"response.endendif%>用户名:
6、>问题3(插入数据):<%ifrequest.form("username")<>""andrequest.form("sex")<>""thenDimConnSetConn=Server.CreateObject("ADODB.Connection")Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("guest.mdb")DimRs,SqlSetRs=Server.CreateObject("ADODB.Recordset")Sql="Select*From[guest]"Rs.OpenSql,Co
7、nn,1,3rs("name")=request.form("username")rs("sex")=request.form("sex")rs.updaters.closeset第9页共9页rs=nothingconn.closesetconn=nothingresponse.write"插入成功!"response.endendif%>用户名:
此文档下载收益归作者所有