%
Set rs= Server.CreateObject("ADODB.Recordset")
'请勿改动下面这二行代码
MaxPerPage=Procount
HeadTitle="产品展示"
%>
<%
dim ID
ID=replace(Trim(request("ID")),"'","")
if ID="" then
response.Redirect("Product.asp")
end if
sql="select * from okuoo_Product where ID=" & ID & ""
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write""
else
ClassID=rs("ClassID")
MaxPerPage=Procount
strFileName="Product.asp?ClassID=" & ClassID
Set rs1= Server.CreateObject("ADODB.Recordset")
sql1="select * from okuoo_ProductClass where ClassID="& ClassID &" order by ClassID"
rs1.open sql1,conn,1,3
bsortname=rs1("ClassName")
if len(bsortname)=0 then
bsortname="产品超市"
end if
rs1.close
Set rs1= nothing
rs("Hits")=rs("Hits")+1
rs.update
Title=Trim(rs("Title"))
HeadTitle=Title
const ChannelID=2
'call MenuJS()
if HeadTitle<>"" then
SiteTitleAll= HeadTitle & "-" & SiteTitle
else
SiteTitleAll=SiteTitle
end if
%>
<% set pdrs=server.createobject("adodb.recordset")
sql="select * from okuoo_ProductClass where ParentID=0 order by ClassID"
pdrs.open sql,conn,1,3
do while not pdrs.eof
%>
<% pdrs.movenext
loop
pdrs.close
set pdrs=nothing
%>
|
|
|
|
<%= bsortname %> |
<% call ShowClassGuide() %> |
<%=Title%> |
",target="_blank"> |
|
|
<%fileExt=lcase(getFileExtName(rs("DefaultPicUrl")))%>
|
产品编号: |
<%=rs("Product_Id")%> |
产品名称: |
<%=rs("title")%> |
规 格: |
<%=rs("Spec")%> |
产品备注: |
<%=rs("Memo")%> |
|
产品说明 |
|
<%call ShowProductContent()%> |
|
|
|
上一个产品:
<% call ShowPrevProduct(200) %>
下一个产品:
<% call ShowNextProduct(200) %>
|
|
点击数:<%=rs("Hits")%> 录入时间:<%= FormatDateTime(rs("UpdateTime"),2) %> 【打印此页】 【关闭】 |
",target="_blank"> |
|
|
|