要不我把源文件贴上来大家帮看看。
<!--#include virtual="conn.asp"-->
<!--#include virtual="NOCACHE.asp"-->
<!--#include virtual="config.asp"-->
<%http = Request.ServerVariables("HTTP_REFERER")
If instr(http,"reg.asp")=0 Then
Response.Redirect "err.asp?id=13"
response.end
end if
Function IsEmail(Email)
ValidFlag = False
If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
atCount = 0
SpecialFlag = False
For atLoop = 1 To Len(Email)
atChr = Mid(Email, atLoop, 1)
If atChr = "@" Then atCount = atCount + 1
If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
Next
If (atCount = 1) And (SpecialFlag = False) Then
BadFlag = False
tAry1 = Split(Email, "@")
UserName = tAry1(0)
DomainName = tAry1(1)
If (UserName = "") Or (DomainName = "") Then BadFlag = True
If Mid(DomainName, 1, 1) = "." then BadFlag = True
If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True
ValidFlag = True
End If
End If
If BadFlag = True Then ValidFlag = False
IsEmail = ValidFlag
End Function
function checkpass(a)
checkpass=false
for i=1 to len(a)
b=asc(mid(a,i,1))
if b<48 or (b>57 and b<97) or b>122 then
checkpass=true
exit for
end if
next
end function
extcode=int(request.form("extcode"))
extcoded=left(request.form("extcoded"),10)
ps_loginname=left(request.form("ps_loginname"),10)
ps_nickname=left(request.form("ps_nickname"),10)
ps_password=left(request.form("ps_password"),10)
ps_repassword=left(request.form("ps_repassword"),10)
ps_email=request.form("ps_email")
ps_question=left(request.form("ps_question"),10)
ps_answer=left(request.form("ps_answer"),10)
ps_person_id=left(request.form("ps_person_id"),18)
if instr(ps_loginname,"'")<>0 or instr(ps_loginname,"=")<>0 or instr(ps_loginname,"&")<>0 or instr(ps_loginname,"%")<>0 then
Response.Redirect "err.asp"
response.end
elseif instr(ps_question,"'")<>0 or instr(ps_question,"=")<>0 or instr(ps_question,"&")<>0 or instr(ps_question,"%")<>0 then
Response.Redirect "err.asp"
response.end
elseif instr(answer,"'")<>0 or instr(answer,"=")<>0 or instr(answer,"&")<>0 or instr(answer,"%")<>0 then
Response.Redirect "err.asp"
response.end
elseif instr(ps_person_id,"'")<>0 or instr(ps_person_id,"=")<>0 or instr(ps_person_id,"&")<>0 or instr(ps_person_id,"%")<>0 then
Response.Redirect "err.asp"
response.end
elseif len(ps_loginname)<6 or len(ps_loginname)>10 then
response.redirect "err.asp?id=1"
response.end
elseif checkpass(ps_loginname)=true then
response.redirect "err.asp?id=2"
response.end
elseif len(ps_person_id) < 15 or len(ps_person_id)=16 or len(ps_person_id)=17 or len(ps_person_id)>18 then
response.redirect "err.asp?id=3"
response.end
elseif isemail(ps_email)=false then
response.redirect "err.asp?id=4"
response.end
elseif len(ps_question)="" or len(ps_answer)="" then
response.redirect "err.asp?id=5"
response.end
elseif len(ps_question) < 6 or len(ps_answer) < 6 then
response.redirect "err.asp?id=6"
response.end
elseif len(ps_nickname)="" then
response.redirect "err.asp?id=7"
response.end
elseif extcode<>int(session("regzcm")) or extcode="" then
response.redirect "err.asp?id=8"
response.end
elseif len(ps_password)<6 or len(ps_password)>15 then
response.redirect "err.asp?id=46"
response.end
elseif ps_password<>ps_repassword then
response.redirect "err.asp?id=47"
response.end
else
set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from MEMB_INFO where memb___id = '"&ps_loginname&"'"
rs1.open sql,conn ,1,1
if not rs1.eof then
response.redirect "err.asp?id=9"
response.end
else
set rs2 = Server.CreateObject("ADODB.Recordset")
sql="INSERT INTO MEMB_INFO (memb___id,memb__pwd,memb_name,sno__numb,post_code,addr_info,addr_deta,tel__numb,mail_addr,phon_numb,fpas_ques,fpas_answ,job__code,appl_days,modi_days,out__days,true_days,mail_chek,bloc_code,ctl1_code) VALUES ('"&ps_loginname&"','"&ps_password&"','"&ps_nickname&"', '1','1234','11111','"&ps_person_id&"','12343','"&ps_email&"','12345','"&ps_question&"','"&ps_answer&"','1','2003-1-1','2003-1-1','2003-1-1','2003-1-1','0','0','0')"
set rs2=conn.execute(sql)
sql="select memb_guid from MEMB_INFO where memb___id= '"&ps_loginname&"'"
set rs=conn.execute(sql)
musf=rs("memb_guid")
sql2="INSERT INTO VI_CURR_INFO (ends_days,chek_code,used_time,memb___id,memb_name,memb_guid,sno__numb,Bill_Section,Bill_value,Bill_Hour,Surplus_Point,Surplus_Minute,Increase_Days ) VALUES ('20051111','1',1234,'"&ps_loginname&"','"&ps_nickname&"','"&musf&"','1','6','3','6','6','2003-11-25 00:00:00','0' )"
set rs2=conn.execute(sql2)
if xinshouqian<>0 then
sql3="INSERT INTO warehouse (AccountID,Money ) VALUES ('"&ps_loginname&"',"&xinshouqian&" )"
set rs2=conn.execute(sql3)
end if
end if
end if
set rs2=conn.execute(sql)
set rs2=conn.execute(sql2)
session("regzcm")=""
Session.Abandon
rs1.close
rs2.close
conn.close
set rs1=nothing
set rs2=nothing
set conn=nothing%>
<!--#include file="sky.asp" -->
<HTML><HEAD><TITLE>>>>>XX奇迹网站<<<<</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="main/main.css" type=text/css rel=stylesheet>
<META content="Microsoft FrontPage 6.0" name=GENERATOR>
<style type="text/css">
<!--
.style3 {color: #FF0000}
-->
</style>
</HEAD>
<BODY bgColor=#228B22 leftMargin=0 topMargin=0 MARGINHEIGHT="0" MARGINWIDTH="0">
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FAFEE9" height="314">
<td width="200" bgcolor="#99cc01" valign="top" height="250" style="font-size: 12px; color: #333333; line-height: 150%" align="center">
<br style="font-size: 12px; color: #333333; line-height: 150%">
<img src="images/tj.gif" width="200" height="24"> <table border="0" width="100%" style="border-collapse: collapse" height="187">
<tr>
<td align="center" valign="top" height="187"><table border="0" style="border-collapse: collapse" width="79">
<tr>
<td align="center"><span style="letter-spacing: 1px">
<font color="#FF0000">>></font><a href="reg.asp?action=reg"><font color="#0066FF">帐号注册</font></a></span></td>
</tr>
<tr>
<td align="center"><span style="letter-spacing: 1px">
<font color="#FF0000">>></font><a href="getpw.asp"><font color="#0066FF">取回密码</font></a></span></td>
</tr>
<tr>
<td align="center"><span style="letter-spacing: 1px">
<font color="#FF0000">>></font><a href="modify.asp"><font color="#0066FF">修改密码</font></a></span></td>
</tr>
<tr>
<td align="center"><span style="letter-spacing: 1px">
<font color="#FF0000">>></font><a href="wgjb.asp"><font color="#0066FF">外挂举报</font></a></span></td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" valign="top"> </td>
</tr>
</table>
</td>
<td bgcolor="#999999" width="1" style="font-size: 12px; color: #333333; line-height: 150%"></td>
<td style="font-size: 12px; color: #333333; line-height: 150%" align="center">
<table border="1" width="59%" style="border-collapse: collapse" bordercolor="#228B22" height="254">
<tr>
<td bgcolor="#99CC01" style="text-indent: 10"><font color="#0066FF"><strong style="font-weight: 400">
<img border="0" src="images/BALL2.gif" width="12" height="12"> </strong></font>
<strong style="font-weight: 400"><font color="#0066FF">注册成功</font></strong></td>
</tr>
<tr>
<td bgcolor="#F0FFFA" align="center">
<table border="0" width="82%" style="border-collapse: collapse">
<tr>
<td style="line-height: 200%"><font color="#0066FF">登陆名称：</font><font color="#FF0000"><%=ps_loginname%>
</font><font color="#0066FF">
<br>
登陆密码：</font><font color="#FF0000"><%=ps_password%> </font>
<font color="#0066FF"> <br>
电子邮箱：</font><font color="#FF0000"><%=ps_email%><br>
</font><font color="#0066FF">证件号码：</font><font color="#FF0000"><%=ps_person_id%><br>
</font><font color="#0066FF">密码找回提示问题：</font><font color="#FF0000"><%=ps_question%><br>
</font><font color="#0066FF">密码找回提示答案：</font><font color="#FF0000"><%=ps_answer%><p class="style12">
<font color="#FF0000" style="font-size: 9pt">请牢记你的登陆密码,如果觉得难记可以去修改密码</font></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table><!--#include file="copy.asp" -->
</BODY></HTML>
[此贴子已经被作者于2005-3-15 12:35:43编辑过]
