28,406
社区成员
发帖
与我相关
我的任务
分享 <%
dim outstr,content,strParam
set rs = server.CreateObject(G_KW_RS)
sql = "select Ble_Topic.*,Ble_user.* from Ble_topic inner join Ble_user on Ble_topic.userid=Ble_user.id order by Ble_topic.id desc"
rs.open sql,conn,1,1
%>
<div id="stream" class="message">
<h3>看看</h3>
<ol class='wa'>
<%
dim intRsCount,intPageSize,intPageCount,intPageNo
intPageSize=15
if pageDivide(intRsCount,intPageSize,intPageCount,intPageNo) then
dim intTemp
for intTemp=1 to intPageSize
if rs.EOF then exit for
%>
<li><a href='info.asp?uid=<%=rs("Ble_user.id")%>' title='<%=rs("username")%>' class='avatar'><img src="<%=rs("headimg")%>"></a><a href='info.asp?uid=<%=rs("Ble_user.id")%>' title='<%=rs("username")%>' class='author'><%=rs("username")%></a> <span class='content'><%=left(rs("Ble_topic.content"),50)%></span><span class='stamp'><%=rs("updatetime")%></span></li>
<%
Rs.MoveNext
next
end if
%>