📄 jrss.asp
字号:
<%
'加入天网
function jrtw(from1)
if session("hxf_u_grade")<8 then
join="<font color=00000>〖<a href=javascript:parent.sw('["&from1&"]'); target=f2>" & from1 & "</a>〗</font>,你的等级太低了,要8级才能加入天网组织!"
Response.End
exit function
end if
Set cn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
datestr=Application("hg_connstr")
cn.open datestr
sql="SELECT 武功,攻击 FROM 用户 WHERE 姓名='" & from1 & "'"
Set Rs=cn.Execute(sql)
if rs("武功")<500000 or rs("攻击")<8000000 then
Response.Write "<script language=JavaScript>{alert('武功50万,攻击800万以上才能申请杀手');}</script>"
Response.End
exit function
end if
jrtw="〖<a href=javascript:parent.sw('["&from1&"]'); target=f2>" & from1 & "</a>〗你成功加入了我们庞大的天网杀人组织,现在你的任务就是收人钱财,替人消灾!"
sql="update 用户 set 门派='天网', 身份='杀手' where 姓名='" & from1 & "'"
cn.execute sql
session("mypai")="天网"
onlinelist=Application("hxf_c_onlinelist")
ubl=UBound(onlinelist)
for i=1 to ubl step 6
if onlinelist(i+1)=from1 then onlinelist(i+3)="天网"
next
APPlication("hxf_c_onlinelist")=onlinelist
cn.close
set cn=nothing
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -