通过2天的试用，数据调用不存在错误。只是美化没做好！希望喜欢的自己去改改！好东西大家共享！
演示：
http://www.738e.com1、首先把这段代码另存为文件放在论坛根目录下，里面的参数自己设定
<%@ CODEPAGE=65001 %>
<% Response.CodePage=65001%>
<% Response.Charset="UTF-8" %>
<%
dim conn
set conn=server.createobject("ADODB.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=服务器;UID=用户名;PWD=密码;DATABASE=数据库;"
sql="SELECT top 10 posterid,poster,count(*) as postsnum FROM dnt_posts1 WHERE (CONVERT(varchar(10),postdatetime,120) = CONVERT(varchar(10),getdate(),120)) group by posterid,poster order by postsnum desc"
set rs=server.CreateObject("adodb.recordset")
RS.open Sql,conn,1,3
If RS.RecordCount=0 then
response.write "对不起，数据库中没有相关信息！"
response.end
else
RS.PageSize = 15
Totalpage=INT(RS.recordcount / rs.pagesize * -1)*-1
PageNo = Request.QueryString ("PageNo")
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
If PageNo = "" then PageNo = 1
'Rs.AbsolutePage = PageNo
End If
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
fileName = Mid(fileName,postion)
Dim RowCount
RowCount =15
row=1
%>
<%
Do while Not Rs.eof and RowCount>0
%>
<td valign="top">
<font size=2px color="#3f4e5a">
<img src=" <%=rs("poster")%'>http://www.738e.com/c.gif"> <%=rs("poster")%>:
<%=rs("postsnum")%><br></td></img></font>
<%
row=row+1
RowCount = RowCount - 1
Rs.MoveNext
Loop
%>
2，在5格调用中的把最后那条调用总排行的用以下替换
<iframe src="ph.asp?encoding=utf-8" frameborder=0 width=100% scrolling=no height=200></iframe>
或者直接下载这个：
附件: 5格.rar (2007-11-27 15:44:33, 1.05 K)
该附件被下载次数 177
重新生成就可以了。
