<%
'根据ID号显示某个商品
'if request("PriceList")<>"" then
'sqlprod="select * from casemain where Online=true and PriceList='"&request.QueryString("PriceList")&"'"
'Set rsprod=Server.CreateObject("ADODB.RecordSet")
'else
sqlprod="select * from casemain where ProdNum="&request.QueryString("ProdNum")
Set rsprod=Server.CreateObject("ADODB.RecordSet")
'end if
rsprod.Open sqlprod,conn,1,1
if rsprod.bof and rsprod.eof then
response.write "| No add |
"
else
ProdDisc=rsprod("ProdDisc")
'if ProdDisc<>"" then ProdDisc=Autolink(ProdDisc)
MemoSpec=rsprod("MemoSpec")
'if MemoSpec<>"" then MemoSpec=Autolink(MemoSpec)
%>
Current position:
Home >
Gallery> <%=rsprod("prodid")%>
<%
if rsprod("ProdDisc")="" then
response.Write("In this case there is no fill in the content!")
else
response.Write replace(rsprod("ProdDisc"),"../","")
end if
%>
<%
'获取商品点击次数
'newtimes = rsprod("clicktime")+1
'rsprod("clicktime")= newtimes
'rsprod.update
rsprod.close
set rsprod=nothing
end if
%>