") fString = Replace(fString, CHR(10), "
") HTMLEncode = fString else HTMLEncode = fString end if end function dim PageNumber,RecordNumberPerPage,subcateid,hang,l if Request.QueryString("PageNumber").count >0 and trim(Request.QueryString("PageNumber"))<>"" then PageNumber = Request.QueryString("PageNumber")(1) else PageNumber = 1 end if hang=7 l=2 RecordNumberPerPage =hang*2 subcateid=trim(request("proclassid")) if not isNumeric(subcateid) then response.Redirect("adjuster.htm") end if Dim conn Set conn=server.createobject("ADODB.connection") conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("sysmanage/data/widewell200707010101.mdb") conn.open Dim sqlstr,rs,i,str Sqlstr = "select * from product where subcateid="&subcateid&" order by orderindex desc" Set rs = Server.CreateObject("ADODB.RecordSet") Rs.open sqlstr,conn,1,2 %> <% Sqlstr = "select * from subcate where subcateid="&subcateid Set rs2 = Server.CreateObject("ADODB.RecordSet") Rs2.open sqlstr,conn,1,2 if not rs2.eof then subcatename=rs2("subcatename") cateid=rs2("cateid") set rs2=conn.execute("select * from cate where cateid="&cateid&"") catename=rs2("catename") end if rs2.close set rs2=nothing %>

产品介绍 >>> 意大利INDRA(英达尔)公司产品 >>> 高温高压仪表阀

<% str="" if not rs.eof then rs.PageSize = RecordNumberPerPage rs.AbsolutePage = PageNumber for ii=1 to hang str = str & "" for jj=1 to l str = str & "" next str = str & "" str = str & "" next else str = str & "" end if response.write str if rs.recordcount>0 then %> <% end if %> 高温高压仪表阀 " if not rs.eof then str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & " " str = str & " " str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" if trim(rs("filelink"))<>"" then str = str & "" else str = str & "" end if str = str & "" str = str & "" str = str & " " str = str & " "&rs("pro_name")&" "&HTMLEncode(rs("pro_info"))&" " rs.movenext() else end if str = str & " 暂无添加产品