Discuz!NT官方社区

<%@ 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
%>

<iframe src="ph.asp?encoding=utf-8" frameborder=0 width=100% scrolling=no height=200></iframe>

原帖由 nellcome 于 2007-12-5 19:30:00 发表
今天通过潼南人论坛测试,用复制上面代码的方法居然会出错,虽然代码一样,但就是出错!不知道加上去是否另外加了代码?

给一个我服务器上用的文件,大家可以改动后直接使用!

[atta......

<img src=" <%=rs("poster")%'>"> <%=rs("poster")%>: