<%
ProID=trim(request.QueryString("ProID"))
if ProID<>"" then
pl_execmenu="select ProID,ProName,ProContent1,ProModel,ProImage2,ProHits,ProFilePach,ProUpdateTime,MaxID from ProductList10 Where ProID="&ProID&" ORDER BY ProRank ASC,ProID desc"
set pl_rsmenu=server.createobject("adodb.recordset")
pl_rsmenu.open pl_execmenu,strConn,1,2
%>
""then response.Write("../../abcde/Product10/ProImage2/"&pl_rsmenu("ProImage2"))else response.Write("../../abcde/Images/Nophoto.gif")%>" width="190" height="240" alt="<%= pl_rsmenu("ProName") %>"/>
产品参数
<%=pl_rsmenu("ProName")%>
<%=Pl_rsmenu("ProModel")%>
<%=Pl_rsmenu("ProModel")%>
<%if Pl_rsmenu("ProFilePach")<>"" then%>" title="PDF 文档下载" target="_blank">
<%Else%><%End IF%>
<%Else%><%End IF%><%=Pl_rsmenu("ProContent1")%>
<%
pl_rsmenu("ProHits")=pl_rsmenu("ProHits")+1
MaxID=pl_rsmenu("MaxID")
Pl_rsmenu.Update
pl_rsmenu.close
set pl_rsmenu=Nothing
else
response.Write("错误：获取ID错误！")
end if
%>
相关产品
-
<%
ProID=trim(request.QueryString("ProID"))
if MaxID<>"" then
pl_execmenu="select Top 5 ProID,ProName from ProductList10 Where MaxID="&MaxID&" ORDER BY ProRank ASC,ProID desc"
set pl_rsmenu=server.createobject("adodb.recordset")
pl_rsmenu.open pl_execmenu,strConn,1,1
While Not pl_rsmenu.Eof
%>
- " title="<%=pl_rsmenu("ProName")%>"><%=pl_rsmenu("ProName")%> <% pl_rsmenu.MoveNext Wend pl_rsmenu.close set pl_rsmenu=Nothing End IF %>
公司其他产品
-
<%
pl_execmenu="select Top 5 ProID,ProName from ProductList10 ORDER BY ProRank ASC,ProID desc"
set pl_rsmenu=server.createobject("adodb.recordset")
pl_rsmenu.open pl_execmenu,strConn,1,1
While Not pl_rsmenu.Eof
%>
- " title="<%=pl_rsmenu("ProName")%>"><%=pl_rsmenu("ProName")%> <% pl_rsmenu.MoveNext Wend pl_rsmenu.close set pl_rsmenu=Nothing %>