📄 submit.asp
字号:
<%
response.buffer="True"
If request.form("pwd")<>request.form("cpwd") Then
response.write "<script>alert('对不起，您两次输入的密码不一致！');history.back();</Script>"
response.end
End If
If len(request.form("year"))<4 Then
response.write "<script>alert('请正确填写您的生日！');history.back();</Script>"
response.end
End If
If not isnumeric(request.form("oicq")) Then
response.write "<script>alert('对不起，您的OICQ号码输入错误！');history.back();</Script>"
response.end
End If
If len(request.form("oicq"))<5 Then
response.write "<script>alert('对不起，您的OICQ号码输入错误！');history.back();</Script>"
response.end
End If
%>
<!--#include file="conn.asp"-->
<%
dim rs_t
dim sql_t
dim uID,pwd,cpwd,question,answer,rname,sex,email,year,month,day,url,oicq
uID=Request.form("uID")
pwd=Request.form("pwd")
cpwd=Request.form("cpwd")
question=Request.form("question")
answer=Request.form("answer")
rname=Request.form("rname")
sex=Request.form("sex")
email=Request.form("email")
year=Request.form("year")
month=Request.form("month")
day=Request.form("day")
url=Request.form("url")
oicq=Request.form("oicq")
set rs_t=Server.CreateObject("adodb.recordset")
sql_t ="select uID from member where uID='"&uID&"'"
rs_t.open sql_t,conn,1,1
If not rs_t.eof then
response.write "<script>alert('对不起，您设定的用户名已经被别人占用了！');history.back();</Script>"
response.end
End If
dim rs,sql
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from member where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("uID")=uID
rs("pwd")=pwd
rs("question")=question
rs("answer")=answer
rs("rname")=rname
rs("sex")=sex
rs("email")=email
rs("year")=year
rs("month")=month
rs("day")=day
If url<>"http://" Then
rs("url")=url
End If
rs("oicq")=oicq
rs("date")=date()
rs("time")=time()
rs("ip")=request.ServerVariables("REMOTE_ADDR")
rs.update
rs_t.close
set rs_t=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect"success.htm"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title>
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -