dim conn,connstr,rs
connstr="DBQ="+server.mappath("../db/dir.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" '數據庫連接地址
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
Dim action
action=Trim(Request("action"))
if action="usreg" then
Dim nid,pid,qq,nick,sex,mail,rsc,dsql,zNum
pws=Trim(Request.Form("pws"))
nid =Trim(Request.Form("nid"))
pid =Trim(Request.Form("pid"))
qq =Trim(Request.Form("qq"))
nick =Trim(Request.Form("nick"))
sex =Trim(Request.Form("sex"))
mail =Trim(Request.Form("mail"))
if request("GetCode")<>Session("GetCode") then
Response.Write "<script>alert('非法操作：驗證碼錯誤！');this.location.href='userreg.asp';</SCRIPT>"
Response.End
end if
if len(nid)>16 or len(nid)<2 then
Response.Write "<script>alert('賬戶名稱必需為2-16個字符！');history.back();</script>"
Response.End
end if
if len(pid)>16 or len(pid)<6 Then
Response.Write "<script>alert('密碼必需為6-16個字符！');history.back();</script>"
Response.End
end if
If nid="" or pid="" or qq="" or nick="" or sex="" or mail="" Then
Response.Write "<script>alert('資料不完整，請重新填寫！');history.back();</script>"
Response.End
end if
nid=request.Form("nid")
dsql="Select Top 1 * From users where nid='"& nid &"'"
set rsc=Conn.Execute(dsql)
if not rsc.eof then
Response.Write "<script>alert('該賬戶已經存在！');this.location.href='userreg.asp';</SCRIPT>"
Response.End
Else '存在滿足條件的記錄
sql = "Select * from users"
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,3,2
rs.addnew
Rs("nid")=nid
Rs("pid")=pid
Rs("qq")=qq
Rs("nick")=nick
Rs("mail")=mail
Rs("sex")=sex
Rs("dates")=date()
rs.update
rs.close
Set rs = Nothing
Session("nid")=nid
Session("nick")=nick
Response.Write "<script>alert('賬戶創建成功，馬上提交網站！');this.location.href='addsite.asp';</SCRIPT>"
End If
end if
%>
<script language="javascript">
function chkForm()
{
var pid = document.uform.pid.value;
var pws = document.uform.pws.value;
if(pid!=pws)
{
alert("兩次密碼輸入不壹致");
return false;
}
return true;
}
</SCRIPT>
<form method="POST" action="?action=usreg" name="uform" onsubmit="return chkForm();">
<div style="width:610px;height:485px;float:right;">
<div class="us_logs">
<strong>如果已有賬戶 請<a href="login.asp" style="color:#0000FF;TEXT-DECORATION:none;">登陸</a></strong>
</div>
<div class="us_log">
<strong>用戶註冊：<span style="font-weight:normal;">（均為必填）</span></strong >
<li id="log1"><span>賬戶名稱：</span><label for="hitme"><input type="text" name="nid" size="25"></label></li>
<li id="log2"><span>由2-16位字母、數字、下劃線組成。</span></li>
<li id="log1"><span>設置密碼：</span><label for="hitme"><input type="password" name="pid" size="25"></label></li>
<li id="log2"><span>由6-16位字母、數字組成，區分大小寫。</span></li>
<li id="log1"><span>確認密碼：</span><label for="hitme"><input type="password" name="pws" size="25"></label></li>
<li id="log1"><span>QQ：</span><label for="hitme"><input type="text" name="qq" size="25"></label></li>
<li id="log1"><span>昵稱：</span><label for="hitme"><input type="text" name="nick" size="25"></label></li>
<li id="log2"><span>用於對網站點評時顯示。</span></li>
<li id="log1"><span>性別：</span><label for="hitme"><input type="radio" value="男性" checked name="sex">男性?<input type="radio" name="sex" value="女性">女性</label></li>
<li id="log1"><span>電子郵箱：</span><label><input type="text" name="mail" size="25"></label></li>
<li id="log2"><span>例：mymail@example.com，用以找回密碼。</span></li>
<li id="log1"><span>驗證碼：</span><label for="hitme"><input type="text" id="GetCode" name="GetCode" size="4">?
<img src="getcode.asp" alt="驗證碼,看不清楚?請點擊刷新驗證碼" height="10" style="cursor : pointer;" onclick="this.src='getcode.asp?t='+(new Date().getTime());" /></label></li>
<li id="log1"><span>?</span><label for="hitme"><input type="submit" value="登陸" name="B1">?<input type="reset" value="重置" name="B2"></label></li>
</div>
</form>
</div>
我用著的,自己改改吧!