<% '-------A登录信息 if myid=0 then Response.write "欢迎您:登陆/注册
----------
"& chr(13) else '检查有几条新留言 dim newguest newguest = 0 IF myid > 0 THEN newguest = ForNewGuest(myid) END IF if newguest > 0 then Response.write "您有"&newguest&"条新消息
"& chr(13) end if end if '--------------------------- dim ids,id,cid,pa,TP ids=Trim(request.QueryString("class")) TP=Trim(request.QueryString("TP")) if ids="" or IsNumeric(ids)=False then Call Error("ID无效！") end if id=Trim(request.QueryString("id")) if id="" or IsNumeric(id)=False then Call Error("ID无效！") end if pa=Trim(request.QueryString("pa"))%>
发表评论
<% set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from pin where fileid="&id&" order by id desc",conn,1,2 If Not rs.eof Then Dim PageSize,i PageSize=5 Dim Count,page,pagecount,gopage gopage="pilist.asp?id="&id&"&cid="&cid&"&class="&ids&"&pa="&pa&"&TP="&TP&"&sid="&sid&"&" Count=conn.execute("Select count(ID) from [pl] where smsid="&id&"")(0) page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For response.write "["&i+(page-1)*PageSize&"楼]." if rs("uid")=0 then response.write""&ubb(rs("ip"))&"说:
" else response.write""&ubb(rs("ip"))&"说:
" end if response.write rs("pin")&"("&fordate(rs("pltime"))&")
" rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页[GO]
" Else response.write"暂时没有评论！
" end if rs.close set rs=nothing conn.close set conn=nothing %>
返回上级
返回栏目
返回首页