-
<%
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 %>
產(chǎn)品分類(lèi)
聯(lián)系我們
留言中心
<%
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("
沒(méi)有留言
") else rs.PageSize=10'留言顯示條數(shù) 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
%>
沒(méi)有留言
") else rs.PageSize=10'留言顯示條數(shù) 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%>
- 留言時(shí)間：<%=rs("time")%> IP:<%=rs("ip")%>