<%=webname%>留言板 (教员、学员有问必答)

<% mypage=request("page") If mypage="" then mypage=1 end if rsjj.open "Select * from guestbook where ureply<>'' order by id desc",conn,1,1 '=== rsjj.pagesize=10 g_count=rsjj.recordcount maxpages=cint(rsjj.pagecount) maxrecs=cint(rsjj.pagesize) if(not rsjj.bof and not rsjj.eof ) then rsjj.absolutepage=mypage end if howmanyrecs=0 rec = 0 '=== color=0 do until rsjj.eof or rsjj.bof or rec=10 color=color+1 %> bgColor=#d7ecff<% Else %>bgcolor="#eef7ff"<% End If %> onMouseOver="e=this.style.backgroundColor;this.style.background='#FFFFCC'" onmouseout="this.style.backgroundColor=e;"> <% rsjj.movenext rec=rec+1 loop rsjj.close %>
留言内容
留言时间
回复内容
回复
时间
<%= rsjj("id") %> <%= rsjj("uname") %>.<%= rsjj("type") %> <%= left(rsjj("ucontent"),200) %> <%= rsjj("time1") %> <%= rsjj("ureply") %> <%= rsjj("time2") %>
<% if maxpages > 1 then if Request.QueryString("page") = "" then pge = 1 else pge = Request.QueryString("page") end if scriptname=request.servervariables("script_name") Response.Write ">>>共[" & g_count & "]条留言 共[" & maxpages & "]页 每页[" & 10 & "]条 " for counter=1 to maxpages if counter <> cint(pge) then ref=" [" & counter & "] " response.write ref & " " Else Response.Write "" & counter & " " End if next End if %>
在线留言