?? product.asp
字號:
<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<%
prono=Request.QueryString("prono")
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
%>
<!-- #include file="begin.asp" -->
<TABLE WIDTH="778" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR VALIGN="TOP">
<TD WIDTH="180">
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD><IMG SRC="../images/english/product_tp_home.gif" WIDTH="180" HEIGHT="33"></TD>
</TR>
<TR>
<TD BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
</TR>
<%
sqltext="select classcode,classname2 from product_class where parentcode='101' order by classcode"
rs2.Open sqltext,cn,1,1
do while not rs2.EOF
%>
<TR>
<TD BGCOLOR="#efefef" ALIGN="RIGHT" HEIGHT="25" CLASS="title"><b><FONT COLOR="#00309C"><%=trim(rs2(1))%></FONT></b> </TD>
</TR>
<TR>
<TD BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
</TR>
<%
sqltext="select productno,title2 from product where classcode='"+rs2(0)+"' order by sortnum"
rs.Open sqltext,cn,1,1
do while not rs.EOF
if prono="" then prono=rs(0)
%>
<TR>
<TD CLASS="bodytext" ALIGN="RIGHT"><A HREF="product.asp?prono=<%=rs(0)%>"><%=trim(rs("title2"))%></A> </TD>
</TR>
<TR>
<TD BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
</TR>
<%
rs.MoveNext
loop
rs.Close
rs2.MoveNext
loop
rs2.Close
%>
</TABLE>
<P> </P>
<P> </P>
</TD>
<TD WIDTH="1" BGCOLOR="#9C9A9C"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
<%
if prono<>"" then
sqltext="select * from product where productno="&prono
rs.Open sqltext,cn,1,3
if not rs.EOF then
title=trim(rs("title2"))
basclass=trim(rs("basclass"))
spec=trim(rs("spec2"))
describe=trim(rs("describe2"))
content=trim(rs("content2"))
picflag=trim(rs("picflag"))
end if
rs.Close
end if
%>
<TD height=360>
<P><IMG SRC="../images/english/product_tp.jpg"></P>
<TABLE WIDTH="90%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER" BGCOLOR="efefef">
<TR>
<TD CLASS="title"><FONT COLOR="#00309C"><B> <%=title%></B></FONT></TD>
</TR>
</TABLE>
<BR>
<TABLE WIDTH="90%" BORDER="0" CELLSPACING="4" CELLPADDING="0" ALIGN="CENTER">
<TR VALIGN="TOP">
<%if basclass<>"" then%>
<img src="../admin/pic_displayacc.asp?keyno=<%=basclass%>&code=basclass" border="0">
<%end if%>
<TD CLASS="bodytext" WIDTH="40%">
<P><FONT COLOR="#003399"><B>Molecular Formula:</B><%=spec%></FONT></P>
<P><B><FONT COLOR="#003399">Describe:</FONT></B><br><%=checkstr(describe)%></P>
<P><a href="Javascript:opencart('<%=prono%>','<%=yhprice%>','<%=title%>')"><IMG SRC="../images/english/icon_addToCart.gif" BORDER="0"></A></P>
</TD>
<TD WIDTH="40%">
<%if picflag="1" then%>
<img src="../admin/pic_displayacc.asp?keyno=<%=prono%>&code=product" border="0">
<%else%>
<%end if%>
</TD>
</TR>
</TABLE>
<BR>
<TABLE WIDTH="90%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER">
<TR>
<TD CLASS="bodytext">
<%=checkstr(content)%>
</TD>
</TR>
</TABLE>
<P ALIGN="CENTER"> </P>
</TD>
</TR>
</TABLE>
<!-- #include file="end.asp" -->
<!-- #include file="func.asp" -->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -