📄 phbquery.asp

📁 聊天室源码呵呵你好用~~~~~~2.0版本

💻 ASP

字号:

<%@ LANGUAGE=VBScript%>
<%Server.ScriptTimeout=600
Response.Expires=0
username=Server.HTMLEncode(Trim(Request.Form("username")))
input=Application("a_c_reg_data")
countud=Application("a_c_reg_num")
countudnum=(countud-4)/8
cz=0
for i=5 to countud step 8
 if username=input(i) then
  userjy=input(i+4)
  cz=1
  exit for
 end if
next
if cz=1 then
usermc=1
for i=5 to countud step 8
 if int(input(i+4))>int(userjy) then usermc=usermc+1
next
end if%><html>
<head>
<title>聊吧聊神榜</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type='text/css'>
<!--
.p9 {line-height: 150%; font-size: 9pt;}
.p12 {line-height: 150%; font-size: 12pt;}
td {line-height: 150%; font-size: 12pt;}
body {line-height: 150%;font-size : 12pt;}
A  {text-decoration: none;}
A:Hover  {text-decoration : none;}
a:visited {  color: #0000FF}
-->
</style>
<script language="javaScript">
function load()
{var name=navigator.appName
var vers=navigator.appVersion
if(name=="Netscape")
{window.location.reload()
}else
{history.go(0)
}}</script>
</head>
<body bgcolor="FFFFFF">
<h1 align="center"><font color="0099FF"><a name="begin"></a>【衡 蠡 时 空 聊 吧 聊 神 榜】</font></h1>
<hr noshade size="1" color=009900>
<form method="post" action="phbquery.asp">
<div align="center">用户名：
<input type="text" name="username" size="10" maxlength="10" style="font-size:12pt" value="<%=username%>">
<input type="submit" name="query" value="查询" style="font-size:12pt">
<input type="button" value="刷新" onClick=load() style="font-size:12pt" name="button">
<a href="phb.asp">返回</a></div>
</form>
<hr noshade size="1" color=009900>
<div align="center">
<p>共有注册名 <font color="FF0000"><b><%=countudnum%></b></font> 个
<p>欲查询的用户名：<font color="#FF0000"><b><%=username%></b></font>
<p><%if cz=0 then%>该用户不存在！<%else%>经验值：<font color="#FF0000"><b><%=userjy%></b></font>　名次：<font color="#FF0000"><b><%=usermc%></b></font><%end if%>
<p>
</div>
<hr noshade size="1" color=009900>
<div align="center" class="p9"><script src="use.asp"></script>　<script src="sn.asp"></script><br><script src="copyright.asp"></script></div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -