📄 mt.asp
字号:
<%Response.Buffer=true
Response.Expires=0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"%>
<!--#include file="../config/config.asp"-->
<%nickname=Session("hxf_u_nickname")
id=Request.Form("id")
if id="" then id=Trim(Request.QueryString("id"))
id2=LCase(id)
if InStr(id2,"'")<>0 or InStr(id2,"`")<>0 or InStr(id2,"=")<>0 or InStr(id2,"-")<>0 or InStr(id2,",")<>0 then
Response.Write "<script language=JavaScript>{alert('你想做什么？想捣乱吗？！');}</script>"
Response.End
end if
%>
<html>
<head>
<title>江湖密探</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<style type=text/css>
body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}
td{font-family:宋体;font-size:9pt;}
input { font-family: 宋体; font-size: 9pt; background-color: buttonface; color:
#0000FF }
</style>
</head>
<body oncontextmenu=self.event.returnValue=false leftmargin="4" topmargin="4">
<%if id2="" then%>
<br>
<p align="center"><font color=red>江湖密探</font></p>
<hr>
<form method="POST" action="mt.asp">
<div align="center">
<center>
<p>请在这里输入需要查询的用户名
<input type="text" name="id" size="10" maxlength="10" style="background-color: #FFFFFF">
<input type="submit" value="查询" name="B1" style="border-style: groove">
<input type="reset" name="Submit3" value="清空" style="border-style: groove">
<br>
</p>
</center>
</div>
</form>
<hr>
<font color="#008000">
<ul>
<li>使用江湖密探可以查看对方的详细资料</li>
<li>使用江湖密探需要花费10万银两</li>
<li>网管使用江湖密探查看资料不需要花银子</li>
</font>
<hr>
<%
else
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="select * from 用户 where 姓名='" & nickname & "'"
set rs=conn.execute(sql)
pai=rs("门派")
if pai<>"六扇门" and rs("银两")<100000 then
rs.close
conn.close
set rs=nothing
set conn=nothing%>
<script language=vbscript>
MsgBox "没钱也想来查资料？！"
location.href = "mt.asp"
</script>
<%
else
sql="Select * from 用户 where 姓名='"&id2&"'"
set rs=conn.Execute(sql)
if rs.Eof and rs.Bof then
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<script language=vbscript>
MsgBox "有没有搞错啊，哪里有这个人呀!"
location.href = "mt.asp"
</script>
<%
else
if pai<>"六扇门" then
conn.execute "update 用户 set 银两=银两-100000 where 姓名='"& nickname &"'"
end if
if rs("会员")=true then
huiyuan="江湖会员"
hdate=year(rs("会员日期"))&"年"&month(rs("会员日期"))&"月"&day(rs("会员日期"))&"日"
jinbi=rs("金币")
else
huiyuan="非会员"
hdate="非江湖会员"
jinbi="非江湖会员"
end if
if rs("保护")=true then
lg="练功保护"
else
lg="闯荡江湖"
end if
zddj=int(rs("allvalue")/1000)
if zddj>99 then zddj=99
%>
<table border="0" cellpadding="0" align="center" cellspacing="0" width="347" height="149">
<tr align="center">
<td colspan="5" height="24" width="345">
[<%=rs("姓名")%>]的详细状态(<%=huiyuan%>)
<hr>
</td>
</tr>
<tr align="center">
<td width="72" height="25">姓 名：</td>
<td width="81" height="25">
<input type="text" size="12" value="<%=rs("姓名")%>" readonly>
<td width="73" height="25">配 偶：</td>
<td width="83" height="25">
<input type="text" size="12" value="<%=rs("配偶")%>" readonly>
</td>
<td width="28" height="25">
</td>
</tr>
<tr align="center">
<td width="72" height="25">门 派：</td>
<td width="81" height="25">
<input type="text" size="12" value="<%=rs("门派")%>" readonly>
</td>
<td width="73" height="25">身 份：</td>
<td width="83" height="25">
<input type="text" size="12" value="<%=rs("身份")%>" readonly>
</td>
<td width="28" height="25">
</td>
</tr>
<tr align="center">
<td width="72" height="25">体 力：</td>
<td width="81" height="25">
<input type="text" size="12" readonly value="<%=rs("体力")%>">
</td>
<td width="73" height="25">内 力：</td>
<td width="83" height="25">
<input type="text" size="12" value="<%=rs("内力")%>" readonly>
</td>
<td width="28" height="25">
</td>
</tr>
<tr align="center">
<td width="72" height="25">道 德：</td>
<td width="81" height="25">
<input type="text" size="12" readonly value="<%=rs("道德")%>">
</td>
<td width="73" height="25">魅 力：</td>
<td width="83" height="25">
<input type="text" size="12" value="<%=rs("魅力")%>" readonly>
</td>
<td width="28" height="25">
</td>
</tr>
<tr align="center">
<td width="72" height="25">经 验：</td>
<td width="81" height="25">
<input type="text" size="12" readonly value="<%=rs("经验")%>">
</td>
<td width="73" height="25">攻 防：</td>
<td width="83" height="25">
<input type="text" size="12" value="<%=rs("攻防")%>" readonly>
</td>
<td width="28" height="25">
</td>
</tr>
<tr align="center">
<td width="72" height="25">泡 点：</td>
<td width="81" height="25">
<input type="text" size="12" readonly value="<%=rs("allvalue")%>">
</td>
<td width="73" height="25">战斗等级：</td>
<td width="83" height="25">
<input type="text" size="12" value="<%=zddj%>" readonly>
</td>
<td width="28" height="25">
</td>
</tr>
<tr align="center">
<td width="72" height="25">银 两：</td>
<td width="81" height="25">
<input type="text" size="12" readonly value="<%=rs("银两")%>">
</td>
<td width="73" height="25">状 态：</td>
<td width="83" height="25">
<input type="text" size="12" readonly value="<%=lg%>">
</td>
<td width="28" height="25">
</td>
</tr>
<tr align="center">
<td width="72" height="25">杀 人：</td>
<td width="81" height="25">
<input type="text" size="12" readonly value="<%=rs("杀人数") & "/" &killman & "/" &rs("总杀人")%>">
</td>
<td width="73" height="25">金 币：</td>
<td width="83" height="25">
<input type="text" size="12" value="<%=jinbi%>" readonly>
</td>
<td width="28" height="25">
</td>
</tr>
<tr align="center">
<td width="72" height="25">会 期：</td>
<td width="154" height="25" colspan="2">
<input type="text" size="24" value="<%=hdate%>" readonly>
</td>
<td width="83" height="25">
<input type=button value=江湖密探 onClick="window.open('mt.asp','zt')" name="button" style="color: #FF0000; border-style: groove"></td>
<td width="28" height="25">
</td>
</tr>
<tr align="center">
<td width="72" height="25">登录IP：</td>
<td width="154" height="25" colspan="2">
<input type="text" size="24" value="<%=rs("lastip")%>" readonly>
</td>
<td width="83" height="25">
<input type=button value=关闭窗口 onClick='window.close()' name="button" style="color: #FF0000; border-style: groove">
</td>
<td width="28" height="25">
</td>
</tr>
</table>
</body>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
end if
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -