分享到:
发表于 2014-03-30 20:31:18 楼主 | |
|
|
个性签名:无
|
发表于 2014-04-08 00:55:04 1楼 | |
<%dim yhm,password,nc,xm,email,xb,csrq,sj,jtdz,jtdh,jtyb,dwdz,dwyb,dwdh,qq,grzy,zwjs,jianjie yhm=trim(request("yhm")) password=trim(request("password")) nc=trim(request("nc")) xm=trim(request("xm")) email=trim(request("email")) xb=trim(request("xb")) csrq=trim(request("csrq")) sj=trim(request("sj")) jtdz=trim(request("jtdz")) jtdh=trim(request("jtdh")) jtyb=trim(request("jtyb")) dwdz=trim(request("dwdz")) dwyb=trim(request("dwyb")) dwdh=trim(request("dwdh")) qq=trim(request("qq")) grzy=trim(request("grzy")) zwjs=trim(request("zwjs")) jianjie=trim(request("jianjie")) if yhm=""then Response.write " Response.write "aleet('系统提示n用户名不能为空!');" & VbCrlf Response.write "history.go(-1);" & vbCrlf Response.write " Response.end end if if password=""then Response.write " Response.write "aleet('系统提示n密码不能为空!');" & VbCrlf Response.write "history.go(-1);" & vbCrlf Response.write " Response.end end if if nc=""then Response.write " Response.write "aleet('系统提示n昵称不能为空!');" & VbCrlf Response.write "history.go(-1);" & vbCrlf Response.write " Response.end end if if xm=""then Response.write " Response.write "aleet('系统提示n姓名不能为空!');" & VbCrlf Response.write "history.go(-1);" & vbCrlf Response.write " Response.end end if if email=""then Response.write " Response.write "aleet('系统提示nEmial不能为空!');" & VbCrlf Response.write "history.go(-1);" & vbCrlf Response.write " Response.end end if %> <% set rs=server.createobject("adodb.recordset") sql="select * from 表" rs.open sql,conn,1,3 %> <%if not rs.eof then Response.write " Response.write "aleet('系统提示n编号已经存在,请更换!');" & VbCrlf Response.write "history.go(-1);" & vbCrlf Response.write " Response.end else rs.addnew rs("yhm")=yhm rs("password")=password rs("nc")=nc rs("xm")=xm rs("email")=email rs("xb")=xb rs("csrq")=csrq rs("sj")=sj rs("jtdz")=jtdz rs("jtdh")=jtdh rs("jtyb")=jtyb rs("dwdz")=dwdz rs("dwyb")=dwyb rs("dwdh")=dwdh rs("qq")=qq rs("grzy")=grzy rs("zwjs")=zwjs rs("jianjie")=jiejie rs.update rs.close set rs=nothing Response.write " Response.write "aleet('系统提示n添加信息成功!');" & VbCrlf Response.write "this.locetion.href='index.asp';" & vbCrlf Response.write " Response.end end if %> |
|
发表于 2014-04-08 00:59:28 2楼 | |
QQ登录界面代码 login.asp: coon.asp: <% connstr = "DBQ=" + server.mappathuser.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)}" Set con=erver.createobject("ADODB.CONNECTION") conn.Open connstr %> 外加after_login.asp登录验证页面: <% Dim UserName,PassWord UserName=replace(trim(Request.Form("Username")),"'","‘") PassWord=replace(trim(Request.Form("PassWord")),"'","‘") If UserName="" or PassWord="" Then Response.Write (" |
|
发表于 2014-04-08 01:01:38 3楼 | |
QQ登录界面代码 login.asp: coon.asp: <% connstr = "DBQ=" + server.mappathuser.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)}" Set con=erver.createobject("ADODB.CONNECTION") conn.Open connstr %> 外加after_login.asp登录验证页面: <% Dim UserName,PassWord UserName=replace(trim(Request.Form("Username")),"'","‘") PassWord=replace(trim(Request.Form("PassWord")),"'","‘") If UserName="" or PassWord="" Then Response.Write (" |
|
发表于 2014-04-08 01:02:35 4楼 | |
中关村: coon.asp: <% connstr = "DBQ=" + server.mappathuser.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)}" Set con=erver.createobject("ADODB.CONNECTION") | |
发表于 2014-04-08 01:05:09 5楼 | |
|