<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% id=trim(request.QueryString("id")) sql="select nam from photos where id="&id rs.open sql,conn,1,1 if not rs.eof then %> <%=rs(0)%> <% end if rs.close %>—巩义市宇航机械厂
<% id=checkstr(request.querystring("id")) if id="" then response.end rs.open "update photos set hits=hits+1 where id="&request("id"),conn,3,3 sql="select id,bid,mid,fnam,nam,cont,hits from photos where id="&id rs.open sql,conn,1,1 if rs.eof then response.end bid=trim(rs(1)) mid1=trim(rs(2)) fnam=trim(rs(3)) name1=trim(rs(4)) cont=trim(rs(5)) hits=trim(rs(6)) rs.close sql="select nam from photo_class where id="&bid rs.open sql,conn,1,1 if rs.eof then response.end nam=trim(rs(0)) rs.close %> <% if mid1<>"0" then sql="select nam from photo_mid_class where id="&mid1 rs.open sql,conn,1,1 if rs.eof then response.end nam1=trim(rs(0)) rs.close end if %>
产品中心<%=name1%>

<%=name1%>

作者:<%=website%>  点击次数:<%=hits%>  更新时间:<%=tim%>  【打印此页】  【关闭
<%=name1%>
<%=cont%>
    <% id=trim(request.QueryString("id")) sql="select top 1 id, nam from photos where bid="&bid&" and id>"&id&" order by id asc" rs.open sql,conn,1,1 if not rs.eof then %> <% downid=rs(0) down=rs(1)%> <% end if rs.close %> <% id=trim(request.QueryString("id")) sql="select top 1 id,nam from photos where bid="&bid&" and id<"&id&" order by id desc" rs.open sql,conn,1,1 if not rs.eof then %> <% upid=rs(0) up=rs(1)%> <% end if rs.close %> <% if downid="" then %> 上一篇: <%=up%>下一篇:已经是最后一篇了! <% end if %> <% if upid="" then %> 上一篇:已经是第一篇了!下一篇:<%=down%> <% end if %> <% if upid<>"" and downid<>"" then %>
  • 上一篇: <%=up%>
  • 下一篇:<%=down%>
  • <% end if %>