chx_resign.asp

功能最强大的ASP网站

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
function   GernerateHtml(str)   
  if   str   <>   ""   then   
  str   =   Replace(str,"&","&amp;")   
  str   =   Replace(str,"<","&lt;")   
  str   =   Replace(str,">","&gt;")   
  str   =   Replace(str,"   ","&nbsp;")   
  str   =   Replace(str,"　","&nbsp;&nbsp;")   
  str   =   Replace(str,vbCrLf,"<br>") 
  GernerateHtml   =   str   
  else   
  GernerateHtml   =   ""   
  end   if   
  end   function
%>
<%
function FullChinese(str)
dim i  
i = Len(str)  
if i = 0 then 
FullChinese = false 
exit function 
end if  
do while i > 0 
if asc(mid(str, i, 1)) < 10000 and asc(mid(str, i, 1)) > -10000 then 
FullChinese = false 
exit function 
end if  
i = i - 1 
loop  
FullChinese = true 
end function
}
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from user"
rs.open sql,conn,1,3
dim url
url="resign.asp"

name1=GernerateHtml(request("name"))
password=GernerateHtml(md5(request("password")))
qq=GernerateHtml(request("qq"))
money=GernerateHtml(request("money"))
use=GernerateHtml(request("user"))
e-mail=GernerateHtml(request("e-mail"))

Set rs1 = Server.CreateObject ("ADODB.Recordset")
sql1 = "select * from userlogin where name='"&name1&"'"
rs1.Open sql1,conn,1,3
if rs1.eof then
if password="" then
 response.write "<script language='javascript'>" & chr(13)
		response.write "alert('请输入密码！');" & Chr(13)
		response.write "window.document.location.href='"&url&"';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
end if
if name1="" then
 response.write "<script language='javascript'>" & chr(13)
		response.write "alert('请输入用户名！');" & Chr(13)
		response.write "window.document.location.href='"&url&"';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
else
rs.addnew
rs("name")=name1
rs("password")=password
rs("qq")=qq
rs("e-mail")=e-mail
rs("money")=money
rs("qjg")=use
rs("resign_time")=now
rs.update
rs.close
set rs=nothing
end if
else
 response.write "<script language='javascript'>" & chr(13)
		response.write "alert('相同用户名！');" & Chr(13)
		response.write "window.document.location.href='"&url&"';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
end if
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('感谢你的注册！');" & Chr(13)
		response.write "window.document.location.href='login.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
%>