?? 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 + -