<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% response.charset="utf-8" %> <% if request.QueryString("ID")="" then SeoTitle="产品中心" elseif not IsNumeric(request.QueryString("ID")) then SeoTitle="参数错误" elseif conn.execute("select * from Ameav_Products Where ViewFlag and ID="&request.QueryString("ID")).eof then SeoTitle="参数错误" else set rs = server.createobject("adodb.recordset") sql="select * from Ameav_Products where ViewFlag and ID="&request.QueryString("ID") rs.open sql,conn,1,1 SeoTitle=rs("ProductName") rs.close set rs=nothing end if %> <%=SiteTitle %>-硫酸镁产品-<%=SeoTitle %>
产品展示
  <% Datafrom="ameav_ProductSort" ListView="Product" ListSort(0) %>
信息搜索
 
  <%=SearchForm()%>
山东利通化工产品展示<% if not request.QueryString("SortID")="" then WebLocation(request.QueryString("SortID")) %>
  <%=WebContent()%>  
<% Function WebLocation(ID) Dim rs,sql,LocationText Set rs=server.CreateObject("adodb.recordset") sql="Select * From Ameav_ProductSort where ViewFlag and ID="&ID rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write ""&"错误" exit function end if LocationText=""&rs("SortName")&"" if rs("ParentID")<>0 then WebLocation rs("ParentID") response.write LocationText End Function function WebContent() dim ID ID=request.QueryString("ID") if ID="" or (not isnumeric(ID)) then response.write "
数据读取异常错误
" exit function end if dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Ameav_Products where ViewFlag and ID="&ID rs.open sql,conn,1,3 response.write"" if rs.bof and rs.eof then response.write "" else if ViewNoRight(rs("GroupID"),rs("Exclusive")) then dim BigPicPath BigPicPath=HtmlSmallPic(rs("GroupID"),rs("BigPic"),rs("Exclusive")) response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" else response.write "" response.write "" response.write "" end if rs("ClickNumber")=rs("ClickNumber")+1 rs.update rs.close response.write "" response.write "" response.write "" end if response.write"
暂无相关信息
名称:"&rs("ProductName")&"
编号:"&rs("ProductNo")&"
价格:"&rs("Price")&"
时间:"&rs("AddTime")&"
购买:
"&rs("Content")&"

名称:"&rs("ProductName")&"时间:"&rs("AddTime")&"

" Dim IDmax,IDmin IDmax=ID+1 set rs = server.createobject("adodb.recordset") sql="select * from Ameav_Products where ViewFlag and ID="&IDmax rs.open sql,conn,1,1 if not rs.eof then Response.Write "上一篇:"&rs("ProductName")&"
" else Response.Write "上一篇:暂无新闻
" end if rs.close IDmin=ID-1 set rs = server.createobject("adodb.recordset") sql="select * from Ameav_Products where ViewFlag and ID="&IDmin rs.open sql,conn,1,1 if not rs.eof then Response.Write "下一篇:"&rs("ProductName")&"" else Response.Write "下一篇:暂无新闻" end if rs.close response.write "
【刷新页面】【加入收藏】【打印此文】 【关闭窗口】
" rs.close set rs=nothing end function %>