对数据保存及表单判断的ASP代码
对数据保存及表单判断的ASP代码
<%
If request.form("UserName")="" Then
Response.Write("<script language=""JavaScript"">alert(""Please enter the UserName"");history.go(-1);</script>")
response.end
end if
If request.form("Password")="" Then
Response.Write("<script language=""JavaScript"">alert(""Please enter the Password"");history.go(-1);</script>")
response.end
end if
If request.form("Password")<>request.form("PwdConfirm") Then
Response.Write("<script language=""JavaScript"">alert(""Please enter the Confirm Password"");history.go(-1);</script>")
response.end
end if
dim UserName,Password,PwdConfirm
UserName=trim(request("UserName"))
Password=trim(request("Password"))
PwdConfirm=trim(request("PwdConfirm"))
Question=trim(request("Question"))
Answer=trim(request("Answer"))
dim sqlReg,rsReg
sqlReg="select * from [User] where UserName='" & Username & "'"
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,conn,1,3
if not rsReg.eof then
Response.Write("<script language=""JavaScript"">alert(""Please enter other UserName! "");history.go(-1);</script>")
response.end
else
rsReg.addnew
rsReg("UserName")=UserName
rsReg("Password")=md5(Password)
rsReg.update
end if
rsReg.close
set rsReg=nothing
response.redirect "Saveok.asp?ok=ok"
%>
代码来源：www.auuo.com
联系我们
QQ：51193930(Ahoo)
MSN：auuocx@hotmail.com
网址：http://www.auuo.com
地址：慈溪天九商务中心525室
电话：189-0662-0882
我们的优势
拥有优秀的网站设计师与程序工程师，精通各种一流的图形设计软件，如Photoshop、Freehand CorlDraw、Flash、Dreamweaver、Fireworks等等制作网页和平面设计图。以及使用C语言、C#、ASP.NET框架、asp、php等语言为您开发项目，我们为您准备了最专业的技术服务。为您开发的网站精致实用，代码清晰，保证您的网站安全可靠修改方便，最重要的是符合市场需求，并随时为客户解决各种技术问题。
我们正在努力开拓...