asp登陆原代码正确版1_第1页
asp登陆原代码正确版1_第2页
asp登陆原代码正确版1_第3页
asp登陆原代码正确版1_第4页
asp登陆原代码正确版1_第5页
已阅读5页，还剩8页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

第页1、（index.asp用户登陆页面）<!--#includefile="conn.asp"--><!--blog.soowooo悠悠长假期--><html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"><title>会员</title><styletype="text/css">body,td,th{font-family:宋体;font-size:14px;</style></head><body><center><p>会员注册系统</p><formname="form1"method="post"action="login.asp"><tablewidth="34%"border="0"><tr><tdwidth="33%"height="30">用户名:</td><tdwidth="67%"height="30"><inputname="username"type="text"id="username"size="15"></td></tr><tr><tdheight="30">密码:</td><tdheight="30"><inputname="password"type="password"id="password"size="15"></td></tr><tr><tdcolspan="2"align="center"><inputtype="submit"name="Submit"value="确定"><inputtype="reset"name="Submit"value="重置"></td></tr><tr><tdcolspan="2"><ahref="reg.asp"target="_self">注册</a></td></tr></table></form></center></body></html>2、（login.asp用户数据处理文件）<!--#includefile="conn.asp"-->'打开数据库判断用户是否存在,info为表名,username为字段名setrsc=server.createobject("adodb.recordset")sqlc="select*frominfowhereusername='"&request.Form("username")&"'andpassword='"&request.Form("password")&"'"rsc.opensqlc,conn,1,1session("username")=rsc("username")session("password")=rsc("password")session.Timeout=30setrsc=nothingresponse.Redirect("change.asp")'如果用户不存在,session("username")为空3、（change.asp用户信息修改页面）<!--#includefile="conn.asp"--><html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"><title>修改</title><styletype="text/css">body,td,th{font-size:14px;</style></head><center><body><br>setrsc=server.createobject("adodb.recordset")sqlc="select*frominfowhereusername='"&session("username")&"'andpassword='"&session("password")&"'"rsc.opensqlc,conn,1,1nr=rsc("password")username=rsc("username")password=rsc("password")sex=rsc("sex")qq=rsc("qq")mail=rsc("mail")add=rsc("add")personalinfo=rsc("personalinfo")vv=rsc("ntime")setrsc=nothingifnr=""thenresponse.Redirect("index.asp")endififstrcomp(nr,request.Form("password"))=0thenresponse.Write("欢迎你！"&request.Form("username"))response.Write("你是在"&vv&"注册的")session("username")=request.Form("username")endififsession("username")=""thenresponse.Redirect("index.asp")endif<formname="form1"method="post"action="change.asp?ac=ch"><tablewidth="39%"height="105"border="0"><tr><tdwidth="27%"height="30">用户名：</td><tdwidth="73%"height="30"><inputname="username"type="text"id="username"value="<%=username%>">*</td></tr><tr><tdheight="30">密 码：</td><tdheight="30"><inputname="password"type="text"id="password"value="<%=password%>">*</td></tr><tr><tdheight="30">性 别：</td><tdheight="30"><inputname="sex"type="text"id="sex"value="<%=sex%>"></td></tr><tr><tdheight="30">QQ：</td><tdheight="30"><inputname="qq"type="text"id="qq"value="<%=qq%>"></td></tr><tr><tdheight="30">Mail：</td><tdheight="30"><inputname="mail"type="text"id="mail"value="<%=mail%>"></td></tr><tr><tdheight="30">地 址：</td><tdheight="30"><inputname="add"type="text"id="add"value="<%=add%>"></td></tr><tr><td>介绍</td><td><textareaname="personalinfo"cols="30"rows="6"id="personalinfo"><%=personalinfo%></textarea></td></tr><tr><td></td><td><inputtype="submit"name="Submit"value="修改"><ahref="change.asp?se=y"target="_self">退出系统</a></td> <%ifstrcomp(request.QueryString("se"),"y")=0thensession("username")=""&response.Redirect("index.asp")endif</tr></table></form>ifstrcomp(request.QueryString("ac"),"ch")=0thensetrs=server.createobject("adodb.recordset")sql="select*frominfowhereusername='"&session("username")&"'"rs.opensql,conn,1,3rs("username")=request.Form("username")rs("password")=request.Form("password")rs("mail")=request.Form("mail")rs("sex")=request.Form("sex")rs("qq")=request.Form("qq")rs("add")=request.Form("add")rs("personalinfo")=request.Form("personalinfo")rs.updatesetrs=nothingresponse.Write("修改完成！")endif</body></center></html>4、（reg.asp新用户注册页面）<html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"><title>用户注册</title><styletype="text/css">body,td,th{font-family:宋体;font-size:14px;</style></head><body><center>用户注册<br>=request.QueryString("msg")<formname="form1"method="post"action="addnewdata.asp?ac=adduser"><tablewidth="39%"height="105"border="0"><tr><tdwidth="27%"height="30">用户名：</td><tdwidth="73%"height="30"><inputname="username"type="text"id="username">*</td></tr><tr><tdheight="30">密码：</td><tdheight="30"><inputname="password"type="password"id="password">*</td></tr><tr><tdheight="30">确定密码：</td><tdheight="30"><inputname="password2"type="password"id="password2">*</td></tr><tr><tdheight="30">性别：</td><tdheight="30"><inputname="sex"type="text"id="sex"></td></tr><tr><tdheight="30">QQ：</td><tdheight="30"><inputname="qq"type="text"id="qq"></td></tr><tr><tdheight="30">Mail：</td><tdheight="30"><inputname="mail"type="text"id="mail"></td></tr><tr><tdheight="30">地址：</td><tdheight="30"><inputname="add"type="text"id="add"></td></tr><tr><td>个人介绍</td><td><textareaname="personalinfo"cols="30"rows="6"id="personalinfo"></textarea></td></tr><tr><td></td><td><inputtype="submit"name="Submit"value="提交"></td></tr></table></form></center></body></html>5、（addnewdata.asp新用户注册数据处理文件）<!--#includefile="conn.asp"--><html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"><title>成功</title></head><body>ac=request.QueryString("ac")msg="注册错误信息"ifrequest.Form("username")=""thenmsg=msg&"<br>"&"用户名不能为空"endififstrcomp(cstr(request.Form("password")),cstr(request.Form("password2")))<>0thenmsg=msg&"<br>"&"两次密码输入不同"endififlen(request.Form("password"))<6thenmsg=msg&"<br>"&"密码太简单"endififstrcomp(msg,"注册错误信息")>0thenresponse.Redirect("reg.asp?msg="&msg)endififac="adduser"thensetrsc=server.createobject("adodb.recordset")sql="select*frominfowhereusername='"&request.Form("username")&"'"rsc.opensql,conn,1,1ck=rsc("username")setrsc=nothingifck<>""thenmsg=msg&"<br>"&"用户名被人注册"response.Redirect("reg.asp?msg="&msg)endifdsql="select*frominfowhereidisnull"setrs=server.createobject("adodb.recordset")rs.opendsql,conn,1,3rs.addnewrs("username")=request.Form("username")rs("password")=request.Form

人人文库> 全部分类> 应用文书 > 作业报告

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论