📄 ling.asp
字号:
<%
'掌门令
function ling(fn1,from1,to1)
fn1=trim(fn1)
username=session("hxf_u_nickname")
grade=session("hxf_u_grade")
mykind=session("mykind")
mypai=session("mypai")
if username="" then Response.Redirect "../error.asp?id=440"
if mykind<>"掌门" then
Response.Write "<script language=JavaScript>{alert('〖"&from1&"〗你不是掌门,不能发掌门令!');}</script>"
exit function
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="SELECT * FROM 用户 WHERE 姓名='" & from1 & "'"
Set Rs=conn.Execute(sql)
jin=rs("经验")
if jin < 500 then
ling="〖系统〗对[<a href=javascript:parent.sw('["&from1&"]'); target=f2>" & from1 & "</a>]说:你的经验不够,发一次掌门令需要500经验"
else
ling="<table bgcolor=#669900 width=40% align=center border=0 cellspacing=0 cellpadding='0'><tr><td bgcolor=#FFFFFF align=center height='16'><font color='#FFFFFF' size='2'><b><font size='2' color='#9D64C4'><b><font color='#F8330A' face='Wingdings' size='5'>[</font></b></font> <font color='#FF0000' size='5'>掌 门 令</font><font color='#000000' size='5'><font face='Wingdings' color='#F8330A' size='2'></font></font><font color='#FFFFFF' size='5'><b><font color='#9D64C4'><b><font color='#F8330A' face='Wingdings'>[</font></b></font></b></font></b></font></td><tr><td height='17'><div align='center'><font size='2' color='#9D64C4'><b><font color='#FFFFFF'size='2'>"&mypai&mykind&from1&"令:门下弟子听令,"&fn1&"</font></b></font></div></td></tr></table>"
'sql="update 用户 set 经验=经验-500 where 姓名='"&from1&"'"
'set rs=conn.execute(sql)
'ling="〖系统〗对[<a href=javascript:parent.sw('["&from1&"]'); target=f2>" & from1 & "</a>]说:你的金币不够,发一次掌门令需要500经验"
end if
rs.close
set rs=nothing
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -