phb.asp

来自「聊天室源码呵呵你好用~~~~~~2.0版本」· ASP 代码 · 共 100 行

ASP
100 行
字号 
<%@ LANGUAGE=VBScript%>
<%Server.ScriptTimeout=600
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj = s & ":" & f & ":" & m
sj2= n & "-" & y & "-" & r & " " & sj
input=Application("a_c_reg_data")
countud=Application("a_c_reg_num")
countudnum=(countud-4)/8
if countudnum<100 then
 phrs=countudnum*2
else
 phrs=200
end if
dim phb(200)
for i=1 to phrs step 2
 p=1
 phbtemp=-1
 for j=5 to countud-1 step 8
  if int(phbtemp)<int(input(j+4)) then
   phbtemp=input(j+4)
   p=j
  end if
 next
 phb(i)=input(p)
 phb(i+1)=input(p+4)
 input(p+4)=-1
next%><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">
<input type="submit" name="query" value="查询" style="font-size:12pt">
<input type="button" value="刷新" onClick=load() style="font-size:12pt" name="button">
</div>
</form>
<p><b>[列出前 100 名铁杆聊神]</b>　共有注册名 <font color="FF0000"><b><%=countudnum%></b></font> 
个　刷新时间：<%=sj2%> 
<p>
<hr noshade size="1" color=009900>
<div align="center"> 
<table border="1" width="75%" bgcolor="FFCC99" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr bgcolor="0066FF"> 
<td>
<div align="center"><font color="FFFFFF">名次</font></div>
</td>
<td>
<div align="center"><font color="FFFFFF">用　户　名</font></div>
</td>
<td>
<div align="center"><font color="FFFFFF">经　验　值</font></div>
</td>
<%for i=1 to 200 step 2%></tr>
<tr> 
<td> 
<div align="center"><%=(i+1)/2%></div>
</td>
<td>　<%=phb(i)%></td>
<td>　<%=phb(i+1)%></td>
</tr><%next%></table>
<hr noshade size="1" color=009900>
<a href="#begin">返回页首</a></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>

phb.asp - 源码说明

本页面展示了「聊天室源码呵呵你好用~~~~~~2.0版本」中的 phb.asp 源码文件，采用 ASP 编程语言编写，共 100 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与聊天室相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?