📄 regok.asp
字号:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%vname=request("name")
vpass=request("pass")
vdizhi=request("dizhi")
vdianhua=request("dianhua")
voicq=request("oicq")
vemail=request("email")
vshengri=request("shengri")
%><% if vname="" or vpass="" then
response.write "<script language=JavaScript>{window.alert('用户名和密码不完整，请重新输入！');window.history.go(-1);}</script>"
elseif request("spass")<>vpass then
Response.Write "<script Language=Javascript>alert('对不起！您的2次密码不一样！');location.href = 'javascript:history.back()';</script>"
elseif vdizhi="" or vdianhua="" or vshengri="" then response.write "<script language=JavaScript>{window.alert('地址，电话，生日没有填写，请重新输入！');window.history.go(-1);}</script>"
response.end
else %>
<%set myconn=server.createobject("ADODB.CONNECTION")
dbpath=server.mappath("ccc22.mdb")
myconn.open "driver={Microsoft access driver (*.mdb)};dbq="&dbpath
SQL="select * from use where name='"&vname&"'"
set list=myconn.execute(sql)
%>
<% if list.eof then%>
<%
set rs=server.createobject("ADODB.RecordSet")
rs.Open "use", myconn, adOpenDynamic, 3
rs.addnew
rs("name")=vname
rs("pass")=vpass
rs("dianhua")=vdianhua
rs("shengri")=vshengri
rs("dizhi")=vdizhi
rs("oicq")=voicq
rs("email")=vemail
rs.update
rs.close
Response.Write "<script Language=Javascript>alert('用户: "&vname&"密码："&vpass&"');location.href = 'index.asp';</script>"
response.end
%>
<%else%>
<center>对不起，您的用户名<%=vname%>已被他人所用，请您换一个用户名申请<P><a href="./">返回申请页面</a></p></center>
<%end if%><%end if%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -