<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% starttime=timer() sqlrunNum=0 %> <% user=request("user") if user="" then user="huiyun" %> <% set rs=server.createobject("adodb.recordset") sql="select * from [user] where 用户名='"& user &"'" sqlrunNum=sqlrunNum + 1 rs.open sql,conn,1,1 if rs.eof or rs.bof then%> <%else%> 泰兴市汇云消防器材有限公司
  产品列表:
手提、推车贮压式BC干粉系列
手提、推车贮压式ABC干粉系列
手提式CO2系列
手提式1211系列
称重型CO2自动灭火系列
手提、推车贮压机械式泡沫系列
 

友情链接:

在线留言  

<% sql2="select * from [book] where 用户='"& user & "'order by ID desc" sqlrunNum=sqlrunNum + 1 set gbook=server.createobject("adodb.recordset") gbook.open sql2,conn,1,1 if gbook.eof and gbook.bof then %>

<%else '如果有人已经留言了。 %>
<% dim temptable '用来控制在最上面不显示吊链 temptable = 0 gbook.pagesize=rs("count") gbook.absolutepage=1 if request("page")<>"" then gbook.absolutepage=request("page") rowcount=gbook.pagesize total=gbook.recordcount do while not gbook.eof and rowcount>0 if request("page")<>"" then t=rowcount+total-request("page")*gbook.pagesize else t=rowcount+total-gbook.pagesize end if %>

<%if temptable<>0 then%> <%end if temptable=1 %> <% if not gbook("回复")="" then %> <%end if%>
 第 <%=t%> 条留言  留言者:<%=gbook("昵称")%>  主题:<%if not gbook("title")="" then%><%=gbook("title")%><%else%><%=left(gbook("内容"),20)%><%end if%>
  <%if gbook("image")<>"" then%>
  <% if session("book_session")=gbook("用户") then%> [密] <%=gbook("内容")%> <%else%>  此留言为悄悄话,留言内容只有版主才能查看……[密] <%end if%> <%else%> <%=gbook("内容")%> <%end if%>
〖版主回复〗

    <%=gbook("回复")%>

[">回复]  [" onClick="return ConfirmDel(<%=t%>);">删除]   <%if gbook("oicq")<>"" then%>" target="_blank" title=<%=gbook("OICQ")%>><%end if%> <%if gbook("home")<>"" then%>" target=_blank title=访问<%=gbook("昵称")%>的主页><%end if%> <%if gbook("email")<>"" then%>" title="给<%=gbook("昵称")%>发信"><%end if%>    IP: <%if session("book_session")<>user then:response.write(left(gbook("ip"),7)&"*"):else:response.write(gbook("ip")):end if%>     发表于:<%=gbook("时间")%>

<% gbook.movenext rowcount=rowcount-1 loop %>

第 [ <% if gbook.pagecount>0 then for i=1 to gbook.pagecount response.write " " & i & "" next end if%> ] <% endtime=timer() response.Write("
程序执行了:"&formatnumber((endtime-starttime)*1000,5)&"毫秒,查询了"&sqlrunNum&"次数据库。") %>

 

泰兴汇云消防器材有限公司 版权所有
©2005-2006 taixing huiyun fire fighting Co., Ltd.
<% end if gbook.close set gbook=nothing rs.close set rs=nothing end if conn.close set conn=nothing %>