<%session("guestbookver") = "en"%> u&t

u&t

 

||Message||Host||Home||

View Message
<%sqlstr="select * from t_guestbook_main where me_version='en' order by mydate desc,hf_date desc" set myrs=server.CreateObject("adodb.recordset") myrs.Open sqlstr,conn,1,1 if myrs.RecordCount>0 then myrs.PageSize=10'每页显示的记录数 total_page=myrs.PageCount total_red=myrs.RecordCount current_page=Request("me_page") if current_page="" then current_page=1 elseif not isnumeric(current_page) then current_page=1 else current_page=cint(current_page) end if if current_page>total_page then current_page=total_page elseif current_page<1 then current_page=1 end if myrs.AbsolutePage=current_page %>
 Totally <%=total_red%> messages <%=current_page%>/<%=total_page%> Pages <%call showpage%> Turn to Page
<%for j=1 to myrs.PageSize%> <%if myrs("hf_content")<>"" then%> <%end if%>
 Publisher <%=myrs("title")%> "> <%if myrs("hf_content")<>"" then%> edit <%else%> Host’s reply <%end if%>
 <%=myrs("g_name")%>
 Expression:">
<%if myrs("email")<>"" then%> ">E-mail:<%=myrs(" border="0" WIDTH="26" HEIGHT="14"> <%end if%> <%if myrs("url")<>"" then%> " target="_blank"><%=myrs(" border="0" WIDTH="26" HEIGHT="14"> <%end if%>
 Published on:<%=formatdatetime(myrs("mydate"),2)& " " & formatdatetime(myrs("mydate"),4)%>
<%=myrs("content")%>
 Host's reply Reply on :<%=formatdatetime(myrs("hf_date"),2) & " " & formatdatetime(myrs("hf_date"),4)%>
<%=myrs("hf_content")%>
<%myrs.MoveNext if myrs.EOF then exit for next %>
 Totally <%=total_red%> messages <%=current_page%>/<%=total_page%> Pages <%call showpage%> Turn to Page
<%else Response.Write "

Sorry!There is not massage!Back

" end if myrs.Close set myrs=nothing %>