{$Mr_会员分类信息列表}
<%
Page = WRMPS.CheckStr(Request("page"),1)
Content = Content & "" & vbCrLf
Sql = "select WM_Pic,WM_title,WM_PostTime,WM_ID,WM_ADType,WM_Commend,WM_Content from WM_ClassAD where WM_Key=1 and WM_PostType=1 and WM_Post='"&UserName&"' order by WM_id desc"
Rs.Open Sql, Conn, 1, 1
If Rs.EOF Then
Content = Content & " | " & vbCrLf
Else
'分页的实现
ListNum = 15
Rs.PageSize = ListNum
If Page = "" Then Page = 1
If Page < 1 Then Page = 1
Rs.AbsolutePage = Page
i = 0
If Page = "" Then N = 0 Else N = ListNum * (Page - 1)
Do While Not Rs.EOF And i < ListNum
N = N + 1
Content = Content & " |
"
End If
Content = Content & ""
If WRMPS.Getlenxing(rs(4)) <> "" Then Content = Content & WRMPS.Getlenxing(rs(4)) &"|"
Content = Content & rs(1)
Content = Content & ""
if rs(5)=1 then
Content = Content & " 
"
end if
Content = Content & " "&datevalue(rs(2))&" 回复