查看收藏 (<%=DjName%>) 的评论 - <%=webname%> http://<%=weburl%>

<% dj_id = SafeRequest("id","get") Set CmsDjView = New CmsDj_Com_View Set CmsDjMusic = New CmsDj_Com_Dj set commdj=CmsDjMusic.GetRs("CD_ID,CD_Name",0,"CD_ID="&Dj_ID) DjName=commdj("CD_Name") Set commdj=nothing %> 查看收藏 (<%=DjName%>) 的评论 - <%=webname%> http://<%=weburl%>

<% page=int(request.QueryString ("page")) if page<=0 or page="" then page=1'初始化分页参数 i=0 Set Rs=CmsDjView.GetRs("",0,"channel=0 and cid="&dj_id&" order by ctime asc,id") If Not(rs.bof And rs.EOF) Then rs.pagesize=15 '每页数据 rs.AbsolutePage=page m=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 %>

<%=List_Page(m,z,page,"?id="&dj_id&"",11,5)%>

" Response.write ""&i&"楼 " Response.write ""&rs("cname")&" 访问TA的个人主页发表于: "&rs("ctime")&"" Response.write "" Response.write "

"&RemoveHTML(rs("content"))&"

" if rs("admin")<>"" then Response.write "

管理员回复："&rs("admin")&"

"end if rs.movenext loop Else Response.write "

沙发空缺中，赶快来抢吧! ^_^" End If rs.Close Set rs=nothing %>

<%=List_Page(m,z,page,"?id="&dj_id&"",11,5)%>

评论内容：
<%if UserLogined=True then%>

<%end if%>

<% Function List_Page(Numbers,Perpage,Curpage,Url_Add,PageA,OffsetA) 'Numbers ------- 数据总数 'Perpage ------- 每页数量 'CurPage ------- 当前页数 'Url_Add ------- 文件地址 ListUrl=Url_Add&"&page=" List_Page="" Dim Page,Offset,PageI If Int(Numbers)>Int(PerPage) Then Page=PageA Offset=OffsetA Dim Pages,FromPage,ToPage If Numbers Mod Cint(Perpage)=0 Then Pages=Int(Numbers/Perpage) Else Pages=Int(Numbers/Perpage)+1 End If FromPage=Curpage-Offset ToPage=Curpage+Page-Offset-1 If Page>Pages Then FromPage=1 ToPage=Pages Else If FromPage<1 Then Topage=Curpage+1-FromPage FromPage=1 If (ToPage-FromPage)Pages Then FromPage =Curpage-Pages +ToPage ToPage=Pages If (ToPage-FromPage)1 Then List_Page=List_Page&"" List_Page=List_Page&"" Else List_Page=List_Page&"" 'List_Page=List_Page&"9 " 'List_Page=List_Page&"7 " End If For PageI=FromPage TO ToPage If PageI<>CurPage Then List_Page=List_Page&""&PageI&"" Else List_Page=List_Page&""&PageI&"" End If Next If Curpage" List_Page=List_Page&"" Else List_Page=List_Page&"" 'List_Page=List_Page&"

" 'List_Page=List_Page&"

" End If Else List_Page=List_Page&"" List_Page=List_Page&"1" List_Page=List_Page&"" End If List_Page=List_Page&"" List_Page=List_Page&"" End Function %>