?? adduser.asp
字號:
<body bgcolor="#CC9933">
<%
dim name,pwd,email,person
dim sql
dim rs
if request("txt1")="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('請輸入用戶名！');" & "history.back()" & "</script>"
end if
if request("txt2")="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('密碼不充許為空！');" & "history.back()" & "</script>"
end if
if request("txt2")<>request("txt3") then
response.write "<script language=JavaScript>" & chr(13) & "alert('兩次輸入的密碼不一致！');" & "history.back()" & "</script>"
end if
name=request("txt1")
password=request("txt2")
email=request("txt4")
sex=request("sel1")
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from user where username='"&name&"'"
rs.Open sql,conn,1,1
if rs.EOF then
sql="insert into user(username,password,email,sex) values('"&name&"','"&password&"','"&email&"','"&sex&"')"
rs1.Open sql,conn,1,1
response.write "<script language=JavaScript>" & chr(13) & "alert('用戶注冊成功！');"&"window.location.href = 'index.asp'"&" </script>"
else
response.write "<script language=JavaScript>" & chr(13) & "alert('此用戶已有人使用！');" & "history.back()" & "</script>"
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -