源興水果專賣店

<%ConnectionDatabase()%> <% ProductID = Trim(Request.QueryString("pid")) IF ProductID = "" Then Response.Redirect("products.asp") Set rs = Server.CreateObject("Adodb.Recordset") sql = "Select PName,ClassID From HTX_Product Where ProductID=" & ProductID rs.open sql,conn,1,1 IF not rs.eof Then ProductName = rs("PName") ClassID = rs("ClassID") End IF rs.close Set rs = Nothing Set rs = Server.CreateObject("Adodb.Recordset") sql = "Select ClassName,FileURL From HTX_Product_Class Where ClassID=" & ClassID rs.open sql,conn,1,1 IF not rs.eof Then ClassName = rs("ClassName") ClassFile = rs("FileURL") End IF rs.close Set rs = Nothing %> 源興水果專賣店

<% Set rs = Server.CreateObject("Adodb.Recordset") sql = "Select * From HTX_Product Where ProductID=" & ProductID rs.open sql,conn,1,1 IF not rs.eof Then %>

<%=rs("PName")%>

<%IF rs("SpecialPrice")=0 Then%> <%Else%> <%End IF%>

貨品編號：<%=rs("PCode")%>
價格：HK$ <%=FormatNumber(rs("ListPrice"),2,-1)%>
原價：HK$ <%=FormatNumber(rs("ListPrice"),2,-1)%>		特價：HK$ <%=FormatNumber(rs("SpecialPrice"),2,-1)%>

<%IF CInt(rs("PStore"))>0 Then%>

[<%=rs("PUnit")%>]

<%Else%>

已售完

<%End IF%>

<%if rs("PIntro") <>"" then%> <%end if%>

<%=rs("PIntro")%>
<%=rs("PDetail")%>

<%IF rs("PPicture1")<>"" Then%> <%End IF%> <%IF rs("PPicture2")<>"" Then%> <%End IF%> <%IF rs("PPicture3")<>"" Then%> <%End IF%> <%IF rs("PPicture4")<>"" Then%> <%End IF%> <%IF rs("PPicture5")<>"" Then%> <%End IF%>

" target="_blank">" width="279" border="0" onload="javascript:DrawImage(this,279,189);">
" target="_blank">" width="279" border="0" onload="javascript:DrawImage(this,279,189);">
" target="_blank">" width="279" border="0" onload="javascript:DrawImage(this,279,189);">
" target="_blank">" width="279" border="0" onload="javascript:DrawImage(this,279,189);">
" target="_blank">" width="279" border="0" onload="javascript:DrawImage(this,279,189);">

<% End IF rs.close Set rs = Nothing %>

<%CloseConn()%>