leaveword_view.asp

来自「一个诚信信息港门户网 功能: 系统设置 企业会员 个人」· ASP 代码 · 共 30 行

<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<%sortid=int(request.querystring("sortid"))
tableid=int(request.querystring("tableid"))
if sortid="" then sortid=0
if tableid="" then tableid=0


set rs=Server.CreateObject("Adodb.Recordset")
sql="select top 8 * from SMT_leaveword where SMT_book_sort="&sortid&" and SMT_book_table="&tableid&" order by SMT_book_id desc"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
book_view="<table width=""100%"" border=0 cellspacing=0 cellpadding=3>"
n=0
do while not rs.eof
n=n+1
book_view=book_view&"<tr><td bgcolor=fafafa><strong>"&rs("SMT_book_user")&"</strong> 留言于 <font color=#999999>"&rs("SMT_book_date")&" ("&rs("SMT_book_contact")&")</font></td></tr>"&_
"<tr><td height=40>　　"&trim(rs("SMT_book_content"))&"</td></tr>"&_
"<tr><td background="&application("cityurl")&"img/list_line_1.gif></td></tr>"&_
rs.movenext
loop
book_view=book_view&"</table>"
else
book_view="<div align=center>暂无留言</div>"
end if
rs.close
set rs=nothing

%>
document.write('<%=book_view%>')