|
|
|
| |
|
|
|
<%
set rs=conn.execute("SELECT * from toupiao where IsChecked=1 ")
if rs.eof then
%>
暂无投票
<%else%>
<%end if%>
|
|
|
| |
 |
![](images/bg1_4color_.jpg") |
<%if ly="0" then%>
<%else%>
<%
Function unHtml(content)
ON ERROR RESUME NEXT
unHtml=content
IF content <> "" Then
unHtml=Server.HTMLEncode(unHtml)
unHtml=Replace(unHtml,vbcrlf,"
")
unHtml=Replace(unHtml,chr(9)," ")
unHtml=Replace(unHtml," "," ")
End IF
IF Err.Number <>0 Then
unHtml= "HTML转换中出错请联系管理员
"
Err.Clear
End IF
End Function
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_guestshop order by id desc",conn,3,2
'dim page
'dim e_page
'e_page=5 '每页显示留言数
'rs.pagesize=e_page
'if request.querystring("page")="" or request.querystring("page")=0 then
'page=1
'else
'page=request.querystring("page")
'rs.absolutepage=trim(request.querystring("page"))
'end if
%>
<%
if rs.eof and rs.bof then
%>
<%else%>
<%
rs.PageSize =5 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
per_page=rs.PageSize
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
|
<%
call PageControl(iCount,maxpage,page,"border=0 align=center"," ",per_page)
%>
|
<%
For i=1 To x
'do while not rs.eof and e_page>0
%>
|
 .gif"> |
姓名：<%=rs("name")%> <%if trim(rs("sex"))="boy" then response.write"先生" else response.write"小姐"%>
内容：<%=unHtml(rs("content"))%> |
| |
<%=rs("time")%> |
|
|
| |
管理员回复：
<%=unHtml(rs("reply"))%> |
|
<%
'e_page=e_page-1
'rs.movenext
'loop
RS.MoveNext
next
%>
|
<%
call PageControl(iCount,maxpage,page,"border=0 align=center"," ",per_page)
%>
|
<%
rs.close
set rs=nothing
end if
%>
|
|
|
<%end if%>
|
|
|
<%=rs("qq")%>
