 现在所在位置：首页 >>>> 客户留言 |
|
| 主 题 |
分 类 |
留言人 |
留言日期 |
展开 |
<%
dim ors,irs,RecCount,i,aa
if not isobject(conn) then connectiondatabase
set ors=new cls_showopage
with ors
.pagesize=10
.sql="title,lylb,username,rjbb,content,hf,hfdate,createdate,id$ from c_guestbook where sh=0 and zd<>0 $id desc$id"
'response.Write(aa)
'response.End()
end with
reccount=ors.reccount
iRs=ors.ResultSet()
if reccount<1 then
%>
| 还没添加留言信息！ |
<%
Else
For i=0 To Ubound(iRs,2)
%>
| |
|
<%=irs(2,i)%> |
<%=irs(7,i)%> |
 |
管理员回复：
| |
 |
| 回复日期:<%=irs(6,i)%> | 我要留言 |
|
|
<%
Next
End If
%>
|
