<% '根据ID号显示某个商品 if request("PriceList")<>"" then sqlprod="select * from casemain where gb='ch' and Online=true and PriceList='"&request.QueryString("PriceList")&"'" Set rsprod=Server.CreateObject("ADODB.RecordSet") else sqlprod="select * from casemain where gb='ch' and Online=true and Id='"&request.QueryString("zid")&"'" Set rsprod=Server.CreateObject("ADODB.RecordSet") end if rsprod.Open sqlprod,conn,1,3 if rsprod.bof and rsprod.eof then response.write "尚未添加 " else ProdDisc=rsprod("ProdDisc") 'if ProdDisc<>"" then ProdDisc=Autolink(ProdDisc) MemoSpec=rsprod("MemoSpec") 'if MemoSpec<>"" then MemoSpec=Autolink(MemoSpec) %>

<%=rsprod("gbcode")%> >> <%=rsprod("prodid")%>

<%=rsprod("prodid")%>

<% if rsprod("Memospec")="" then response.Write("描述尚未添加 ") else response.Write replace(rsprod("MemoSpec"),"","") end if %>

[返回]

<% '获取商品点击次数 'newtimes = rsprod("clicktime")+1 'rsprod("clicktime")= newtimes 'rsprod.update rsprod.close set rsprod=nothing end if %>