-
<%
set rs=server.createobject("adodb.recordset")
sql="select * from proclass"
rs.open sql,conn,1,1
do while not rs.eof
%>
- _1.html"><%=rs("classname")%> <% rs.movenext loop rs.close set rs=nothing %>
产品分类
联系我们
留言中心
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from feedback where sh=1 order by id desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("
没有留言
") else rs.PageSize=10'留言显示条数 page=request.QueryString("page") if page="" then page=request.Form("page") page=clng(page) if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize question = rs("question") addtime= rs("time") answer=rs("answer") %>
<%
rs.movenext
if rs.eof then exit for
next
%>
<%end if
set rs=nothing
%>
没有留言
") else rs.PageSize=10'留言显示条数 page=request.QueryString("page") if page="" then page=request.Form("page") page=clng(page) if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize question = rs("question") addtime= rs("time") answer=rs("answer") %>
- 留言：
- <%=myReplace(question)%> <%if rs("answer")<>"" then%>
- 回答：
- <%=rs("answer")%> <%end if%>
- 留言时间：<%=rs("time")%> IP:<%=rs("ip")%>