WEB源码(ASP,PHP,...)

开发平台：

Windows_Unix

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("sfzh"))<>15 and len(request.form("sfzh"))<>18 Then
response.write "<script>alert('你输入的身份证号码数目不对！');history.back();</Script>"
response.end
End If
If not isnumeric(request.form("sfzh")) Then
response.write "<script>alert('对不起，您的身份证号码输入错误！');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,mz,year,month,day,blcjzl,oicq,user_province,user_city,jbyydm,sfzh,tel1,addr1,zy,whcd,yzkzh
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")
mz=Request.form("mz")
year=Request.form("year")
month=Request.form("month")
day=Request.form("day")
blcjzl=Request.form("blcjzl")
user_province=Request.form("user_province")
user_city=Request.form("user_city")
jbyydm=Request.form("jbyydm")
sfzh=Request.form("sfzh")
oicq=Request.form("oicq")
tel1=Request.form("tel1")
addr1=Request.form("addr1")
zy=Request.form("zy")
whcd=Request.form("whcd")
yzkzh=Request.form("yzkzh")
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("mz")=mz
rs("year")=year
rs("month")=month
rs("day")=day
If blcjzl<>"http://" Then
rs("blcjzl")=blcjzl
End If
rs("user_province")=user_province
rs("user_city")=user_city
rs("jbyydm")=jbyydm
rs("sfzh")=sfzh
rs("tel1")=tel1
rs("addr1")=addr1
rs("zy")=zy
rs("whcd")=whcd
rs("yzkzh")=yzkzh
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>

						