randomize timer
s=1+int(rnd*10000)
session("sfregidyz")=s
if hk=2 then
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from MEMB_INFO where memb___id = '"&accountname&"' and memb__pwd='"&password&"'"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "<script language=javascript>alert('\n\n帐号信息错误,请重新填写!');history.back()</script>"
response.end
end if
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from Character where AccountID='"&accountname&"'"
rs1.open sql1,conn,1,1
for i=1 to rs1.recordcount
if rs1("Name")=userchr then
hk=0
%><script language=javascript>alert('\n\n您的角色名包含非法字符,您必须重新命名!');history.back()</script><%
response.end
exit for
else
hk=1
end if
rs1.movenext
next
rs1.close
end if
if hk=1 then
response.write "<script language=javascript>alert('\n\n您的角色名包含非法字符,请重新命名!');history.back()</script>"
response.end
end if
call checkdata(accountname)
call checkdata(password)
call checkdata(userchr)
if accountname<>"" and password<>"" then
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from MEMB_INFO where memb___id = '"&accountname&"' and memb__pwd='"&password&"'"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "<script language=javascript>alert('\n\n您的帐号信息错误,请重新填写!');history.back()</script>"
response.end
else
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from Character where AccountID='"&accountname&"' and Name='"&userchr&"'"
rs1.open sql1,conn,1,3
if rs1.eof or rs1.bof then
response.write "<script language=javascript>alert('\n\n没有该角色【"&userchr&"】!');history.back()</script>"
response.end
end if
if rs1("money")<money then
response.write "<script language=javascript>alert('\n\n对不起,您身上的余额不足!');history.back()</script>"
response.end
end if
set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select * from BFB_SBK where ServerID='0' and IDX='1'"
rs3.open sql3,conn,1,3
if rs3.eof or rs3.bof then
else
%>
<script language=javascript>alert('\n\n已经有盟申请攻堡了 !');history.back()</script>
<%
response.end
end if
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="select * from Guild where G_Master='"&userchr&"'"
rs4.open sql4,conn,1,3
if rs4.eof or rs4.bof then
response.write "<script language=javascript>alert('\n\n只有盟主才可以申请 !');history.back()</script>"
response.end
else
gname=rs4("G_Name")
end if
set rs5 = Server.CreateObject("ADODB.Recordset")
sql5="select * from BFB_SBK where ServerID='0' and GuildName='"&gname&"'"
rs5.open sql5,conn,1,3
if rs5.eof or rs5.bof then
else
%>
<script language=javascript>alert('\n\n不能自己攻自己呀 !');history.back()</script>
<%
response.end
end if
set rs2 = Server.CreateObject("ADODB.Recordset")
sql="Insert into BFB_SBK (ServerID,IDX,GuildName,GuildTT) values ('0','1','"&gname&"','"&userchr&"')"
set rs2=conn.execute(sql)
%>
<script language=javascript>alert('恭喜【<%=userchr%>】,【<%=gname%>】盟申请攻堡成功 ,花费:<%=money/10000%>万MU币!');history.back()</script>
<%
response.end
end if