<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Const ShowAll_num=10 Const NumPerPage=5 '每页列表个数,默认为20 Const footer=5 Const intro_len=280 '简介字数长度 const faq_num=5 id=CheckNum(Request.QueryString("id")) ConnectionDatabase if id>0 then title=conn.execute("select dir_name from product_dir where dir_id="&id)(0) else title="Product" end if %> <%=title%> - Liming Heavy Industry
Henan Liming Road & Bridge Heavy Industry Co., Ltd
简体中文 | English | Русский | Français | العربية |
Español | Português | Tiếng Việt | 日本語
Product
<%select case id%> <%case 1%>
<%case 5%>
<%case 8%>
<%case 9%>
<%case else%>
<%end select%>
  <%=title%>
<% if id=0 then set rs_dir=conn.execute("select * from product_dir order by dir_order") else set rs_dir=conn.execute("select * from product_dir where dir_id="&id) end if while not rs_dir.eof dirr_name=left((replace(rs_dir("dir_name")," ","")),34) set rs_product=conn.execute("select file_name,product_photo,post_title from product where dir_id="&rs_dir("dir_id")&" order by post_order") while not rs_product.eof Response.Write("
"&vbcrlf) Response.Write(""&vbcrlf) Response.Write("

"&rs_product("post_title")&"

"&vbcrlf) Response.Write("
"&vbcrlf) rs_product.movenext wend set rs_product=nothing Response.Write(""&vbcrlf) rs_dir.movenext wend set rs_dir=nothing %>