regsave.asp

起点9 V2.0小说整站系统 介绍： 1、 采用企业级标准应用三层架构

<%
session.CodePage = 65001
Response.Buffer=true
Response.Expires=0
%>
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%Response.ContentType = "text/vnd.wap.wml" %><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/ wml_1.1.xml">
<wml>
<card id="main" title="在线注册">
<p>

<%
Function Filter_SQL(strData)
strdata=replace(strdata," ","")
strdata=replace(strdata,"　","")
strdata=replace(strdata,"＇","")
strdata=replace(strdata,"'","")
Filter_SQL=strData


End Function 

pnum=request("pnum")
username=Filter_SQL(request("username"))
busername=Filter_SQL(request("busername"))
userpass=Filter_SQL(request("userpass"))
userpassqr=Filter_SQL(request("userpassqr"))
usermail=request("usermail")
if username="" or busername="" or userpass="" or userpassqr="" or usermail="" then

response.write "不能为空!<a href=""reg.asp?pnum="&pnum&""">返回</a><br/>"
%>
<!--#include file="bootom_ad.asp"--></p></card></wml>
<%
response.end
end if

set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from "&prefix&"userpro where username='"&username&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.write "帐号已经存在!<a href=""reg.asp?pnum="&pnum&""">返回</a><br/>"
%>
<!--#include file="bootom_ad.asp"--></p></card></wml>
<%
rs.close
response.end
end if

set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from "&prefix&"userpro where busername='"&busername&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.write "昵称已经存在!<a href=""reg.asp?pnum="&pnum&""">返回</a><br/>"
%>
<!--#include file="bootom_ad.asp"--></p></card></wml>
<%
rs.close
response.end
end if
if userpass<>userpassqr then
response.write "2次输入密码不一样!<a href=""reg.asp?pnum="&pnum&""">返回</a><br/>"
%>
<!--#include file="bootom_ad.asp"--></p></card></wml>
<%
response.end
end if


Function chk_Email(email)
 Dim i,k
 Dim At
 Dim Email_1,Temp

 If email="" Then
  chk_Email=False
  Exit Function
 End If

 Email_1=Cstr(trim(email))

 If Len(Email_1)<5 Then
  chk_Email=False
  Exit Function
 End If

 At=False

 For i=1 To Len(Email_1)
  Temp=Mid(Email_1,i,1)
  If Temp="@" Then
   at=True
   Exit For
  End If
 Next

 If At=False Then
  Chk_Email=False
  Exit Function
 End If
 
 k=0

 For i=1 To Len(Email_1)
  Temp=Mid(Email_1,i,1)
  If Temp="." then
   k=k+1
  End If
 Next

 If k=0 Or k>2 Then
  Chk_Email=False
  Exit Function
 End If


 
  
 chk_email=True
End Function
if chk_Email(usermail)=false then
response.write "邮件地址错误!<a href=""reg.asp?pnum="&pnum&""">返回</a><br/>"
%>
<!--#include file="bootom_ad.asp"--></p></card></wml>
<%
response.end
end if
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from "&prefix&"userpro"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("userpass")=md5(userpass)
rs("busername")=busername
rs("groupid")=10
rs.update
rs.close

set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from "&prefix&"userpro where username='"&username&"'"
rs.open sql,conn,1,1


set rs1=server.CreateObject("ADODB.RecordSet")
sql="select * from "&prefix&"userproinfo"
rs1.open sql,conn,1,3
rs1.addnew
rs1("uid")=rs("id")
rs1("userrealname")=username
rs1("usermail")=usermail
rs1.update
rs1.close







%>
注册成功!<a href="index.asp?pnum=<%=pnum%>&amp;uid=<%=rs("id")%>&amp;ups=<%=rs("userpass")%>">返回</a>
<br/>
<!--#include file="bootom_ad.asp"--></p></card></wml>