|
|
最新留言
<%
sql="Select * from [comment] Order by pinglunid DESC"
%>
<%if not (rs.bof or rs.eof) then
i=1
do until rs.eof or i>uspage
%>
<%
id=rs("id")
set rsn=server.createobject("adodb.recordset")
sql="select company from info where id="&id
rsn.open sql,conn,1,1
if rsn.eof or rsn.bof then
company="已删除"
else
company=rsn("company")
end if
%>
 企业: .html"
target="_blank"><%=company%>
.html#comment" target="_blank">我也要发表留言
|
<%=rs("pingluncontent")%>
来自:
的 <%=rs("pinglunname")%> 于 <%=rs("pinglundate")%> 发表的评论
|
<%
i=i+1
rs.movenext
loop
end if
%>
| <%=Spage(geturl,allpage,10)%> |
<%
rs.close
Set rs=nothing%>
|
| |
|