<!-- #include file="conn.asp" -->
<%
Dim RS,RS1,RS2,RS3,RS4,RS5,RS6,RS7,Rsmax,RsEmail,SqlStr
Dim NewAccount,UserPass,UserChPass,UserEmail,zhpass
Dim TempString1,TempString2,dbname
Dim sGetCode
dim i
%>
<HTML>
<HEAD>
<TITLE>征途私服</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" href="gamemembers.css" type="text/css">
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" href="gamemembers.css" type="text/css">
<%
If Request.Form("act")="create" Then
UserEmail = checkStr(Request.Form("email_E"))
UserPass = checkStr(Request.Form("pwd_P"))
sGetCode = checkStr(Trim(Request("CheckCode")))
zhpass=checkStr(Trim(Request("idnum")))
If cstr(Session("GetCode"))<>sGetCode or cstr(Session("GetCode"))="" Then
TempString1="您输入的验证码和系统产生的不一致，请重新输入！"
TempString2="<BR><BR><BR><BR><FONT color=#0000FF>3秒后自动返回．．．</FONT>"
Response.Write("<META http-equiv=refresh content='3; url=create.asp'>")
else
MySQLConn.Open cnnString
Set RsEmail = MySQLConn.Execute("Select * From ACCSTORE0000 Where ACCOUNT='" & UserEmail & "'")
if not (RsEmail.bof and RsEmail.eof) then
TempString1="您填写的帐号已存在，请重新注册！"
TempString2="<BR><BR><BR><BR><FONT color=#0000FF>3秒后自动返回．．．</FONT>"
Response.Write("<META http-equiv=refresh content='3; url=create.asp'>")
else
if disan="1"then
Set RS = MySQLConn.Execute("Insert Into ACCSTORE0000(ACCOUNT,PASSWD,STATE,TYPE) Values ('" & UserEmail & "','" & UserPass & "','0','0')")
set RsEmail=nothing
Set RsEmail = MySQLConn.Execute("Select * From ACCSTORE0000 Where ACCOUNT='" & UserEmail & "'")
Set RS = MySQLConn.Execute("Insert Into POINTBONUS0000(UID,ACCOUNT,POINT,HADFILLED) Values ('" & RsEmail("UID") & "','" & UserEmail & "','1','1')")
else
Set RS = MySQLConn.Execute("Insert Into ACCSTORE0000(ACCOUNT,PASSWD,STATE,TYPE) Values ('" & UserEmail & "','" & UserPass & "','0','0')")
end if
set RS=nothing
set MySQLConn=nothing
TempString1="帐号注册成功！"
TempString2="<BR><BR><BR><BR><A href='index.asp'>返回首页</a>"
End If
End If
ElseIf Request.Form("act")="change" Then
UserEmail = checkStr(Request.Form("email_E"))
UserPass = checkStr(Request.Form("realname"))
UserChPass = checkStr(Request.Form("pwd_P"))
sGetCode = checkStr(Trim(Request("CheckCode")))
If cstr(Session("GetCode"))<>sGetCode or cstr(Session("GetCode"))="" Then
TempString1="您输入的验证码和系统产生的不一致，请重新输入！"
TempString2="<BR><BR><BR><BR><FONT color=#0000FF>5秒后自动返回．．．</FONT>"
Response.Write("<META http-equiv=refresh content='5; url=change.asp'>")
Else
MySQLConn.Open cnnString
'Set MySQLConn = Server.CreateObject("ADODB.Connection")
Set RsEmail = MySQLConn.Execute("Select ACCOUNT,PASSWD From ACCSTORE0000 Where ACCOUNT='" & UserEmail & "'")
If RsEmail.EOF Then
TempString1="您输入的帐号不存在！"
TempString2="<BR><BR><BR><BR><FONT color=#0000FF>5秒后自动返回．．．</FONT>"
Response.Write("<META http-equiv=refresh content='5; url=change.asp'>")
ElseIf UserPass <> RsEmail("PASSWD") Then
TempString1="旧密码错误，您不能修改密码！"
TempString2="<BR><BR><BR><BR><FONT color=#0000FF>5秒后自动返回．．．</FONT>"
Response.Write("<META http-equiv=refresh content='5; url=change.asp'>")
Else
Set Rs = MySQLConn.Execute("UpDate ACCSTORE0000 Set PASSWD='" & UserChPass & "' Where ACCOUNT='" & UserEmail & "'")
TempString1="密码修改成功！"
TempString2="<BR><BR><BR><BR><FONT color=#0000FF>5秒后自动返回．．．</FONT>"
Response.Write("<META http-equiv=refresh content='5; url=change.asp'>")
set RS=nothing
set MySQLConn=nothing
End If
End If
End If
%>
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<TABLE cellSpacing="0" cellPadding="0" width="100%" border="0">
<TBODY>
<TR>
<TD align='left' width='100%' background='registe/top_bg.jpg' height='157'><IMG src='registe/top1.jpg' alt='征途私服' width='1058' height='192'></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing="0" cellPadding="0" width="100%" border="0">
<TBODY>
<TR>
<TD vAlign="top" width="27" background="registe/kuang-bj2.jpg"><IMG height="44" src="registe/kuang-bj2.jpg" width="27"></TD>
<TD vAlign="top" bgColor="#fffbe7" colSpan="2"><TABLE cellSpacing="0" cellPadding="0" border="0">
<TBODY>
<TR>
<TD><img height="41" src="registe/register_title_03.gif" width="838" vspace="20"></TD>
</TR>
<TR>
<TD align="middle"></TD>
</TR>
<TR>
<TD align="middle"><TABLE cellSpacing="0" cellPadding="0" width="80%" border="0">
<TBODY>
<TR align="middle">
<TD><A href="step_1.shtml"></A></TD>
<TD><IMG height="48" src="registe/btn_edit_09.gif" width="165"></TD>
<TD><IMG height="24" src="registe/btn_arrow_14.gif" width="51"></TD>
<TD><IMG height="48" src="registe/btn_succ_11.gif" width="165"></TD>
</TR>
<TR align="middle">
<TD colSpan="4"></TD>
</TR>
<TR align="middle">
<TD colSpan="4"><TABLE cellSpacing="0" cellPadding="0" width="80%" align="center" border="0">
<TBODY>
<TR>
<TD vAlign=middle align=center><FONT color=#FF0000><%=TempString1%></FONT><%=TempString2%></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR align="middle">
<TD colSpan="4"></TD>
</TR>
<TR align="middle">
<TD colSpan="4"></TD>
</TR>
<TR align="middle">
<TD colSpan="4"></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign="top" height="16"><IMG height="44" src="registe/zuoxiajiao1.jpg" width="27"></TD>
<TD vAlign="top" background="registe/kuang-bj3.jpg" bgColor="#fffbe7"><IMG height="44" src="registe/zuoxiajiao2.jpg" width="14"></TD>
<TD vAlign="top" background="registe/kuang-bj3.jpg" bgColor="#fffbe7"></TD>
</TR>
</TBODY>
</TABLE>
</BODY>
</HTMP>
在这段代码里加上什么内容就可以限制30分钟同一ip不能注册了？
高手们帮帮忙
