""and request.form("password")<>""thenР dim db,rsР?set db=server.createobject("ADODB.connection")Р?db.open "dbq="&server.mappath("userinfo.mdb")&";driver={microsoft access driver (*.mdb)};"Р?" /> ""and request.form("password")<>""thenР dim db,rsР?set db=server.createobject("ADODB.connection")Р?db.open "dbq="&server.mappath("userinfo.mdb")&";driver={microsoft access driver (*.mdb)};"Р?" />

全文预览

ASP+ACCESS基于BS产品销售管理系统

上传者:qnrdwb |  格式:doc  |  页数:45 |  大小:0KB

文档介绍
_name")<>""and request.form("password")<>""thenР dim db,rsР?set db=server.createobject("ADODB.connection")Р?db.open "dbq="&server.mappath("userinfo.mdb")&";driver={microsoft access driver (*.mdb)};"Р?dim strsql,user_name ,Password,nameР name=request.form("user_name")РstrSql="select * from user Where user_name='" & Request.Form("user_name") & "'" РSet rs=db.Execute(strSql)РIf not rs.eof thenР?Response.Write "对不起,用户名已被注册,请<a href='sign1.htm'>重新注册</a>"Р rs.closeР elseР user_name=request.form("user_name")Р Password=request.form("Password")Р strsql="insert into user(user_name ,Password)values('"&user_name&"','"&Password&"')"Р db.execute(strsql)Р response.redirect "cg.htm"Р end ifР Р Р elseР response.write"请将所有信息填写完整"Р response.write"<A HREF='sign1.htm'>重新注册</a>"Р Рend ifР%>Р3.1.2.其他页面介绍Р图二:产品介绍

收藏

分享

举报
下载此文档