UC知道ASP VBSCRIPT 对变量如何排序？
来源：百度知道 编辑：UC知道 时间：2024/05/25 06:24:33
<!--#include file="../conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
dim i,Alluser,rs,sql,all,rs1,sql1,all1,rs2,sql2,all2,rs3,sql3,all3
SQL="select count(userpost) from [dv_user] where lastlogin>date() and Usercp>50"
Set Rs=Conn.Execute(SQL)
Alluser=Rs(0)
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select username from [dv_user] where lastlogin>date() and Usercp>50"
rs.open sql,conn,1,1
%>
<%= alluser%><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td scope="col">用户名</td>
</tr>
<%
for i= 1 to Alluser
if rs.eof then exit for
SQL1="select count(topicid) from [dv_topic] where postusername='"&rs(0)&"' and dateandtime>da
<!--#include file="inc/const.asp"-->
<%
dim i,Alluser,rs,sql,all,rs1,sql1,all1,rs2,sql2,all2,rs3,sql3,all3
SQL="select count(userpost) from [dv_user] where lastlogin>date() and Usercp>50"
Set Rs=Conn.Execute(SQL)
Alluser=Rs(0)
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select username from [dv_user] where lastlogin>date() and Usercp>50"
rs.open sql,conn,1,1
%>
<%= alluser%><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td scope="col">用户名</td>
</tr>
<%
for i= 1 to Alluser
if rs.eof then exit for
SQL1="select count(topicid) from [dv_topic] where postusername='"&rs(0)&"' and dateandtime>da
1、把all转换为数组
是用数组的方法来排序
javascript中可以用sort方法来排序，vbs我不清楚
2、把all转换为数组，使用冒泡算法
3、空间换时间，每一个用户增设一个字段用于记录发帖的总量
同意楼上的，学一下排序算法，很容易的。数据不多的话用冒泡排，多的话可以用快排等