post.asp

来自「多媒体学习教育软件」· ASP 代码 · 共 38 行

<%
name=request("name")
psw=request("psw")
num=request("num")
if name="" then 
Response.End 
end if

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from user where name='"&name&"'"
rs.open sql,conn,3,3
if not rs.eof then
rs.close
set rs=nothing
response.write"<SCRIPT language=JavaScript>alert('用户名重复，请重新选择一个用户名！');"
response.write"javascript:history.go(-1)</SCRIPT>"

else

rs.close
set rs=nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sq2="select * from user"
rs.open sq2,conn,3,3
rs.addnew
rs("name")=name
rs("psw")=psw
rs("num")=num
rs.update
rs.close
set rs=nothing

session("check")="yes"
session("name")=name
response.write"<SCRIPT language=JavaScript>alert('注册成功,进入网站！');"
response.write"this.location.href='start.asp';</SCRIPT>"  
end if 
%>