mss.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 30 行

<%
'成为杀手
nickname=Session("hxf_u_nickname")
if nickname="" then Response.Redirect "../error.asp?id=440"
Set cn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
datestr=Application("hg_connstr")
cn.open datestr
sql="SELECT 身份,allvalue,攻防 FROM 用户 WHERE 姓名='" & nickname & "'"
Set Rs=cn.Execute(sql)
if rs("身份")="掌门" then Response.Redirect "../error.asp?id=509"
zddj=int(rs("allvalue")/1000)
if zddj>99 then zddj=99
if zddj<10 or rs("攻防")<5000000 then%>
<script language=vbscript>
MsgBox "战斗等级高于10级,攻击500万以上才能申请杀手!"
location.href = "shashou.asp"
</script>
<%else	
sql="update 用户 set 门派='天网', 身份='杀手' where 姓名='" & nickname & "'"
cn.execute sql
session("mypai")="天网"
Session("mykind")="杀手"
cn.close		
set cn=nothing%>
<script language=vbscript>
MsgBox "你成功加入了我们庞大的天网杀人组织，现在你的任务就是收人钱财，替人消灾!!"
location.href = "shashou.asp"
</script>
<%end if%>