www.gusucode.com > 运动用品商城网站系统源代码程序 > baojia.asp
<!--#include file="conn.asp"--> <!--#include file="IncAsp/venshop_top.asp"--> <div align="center"> <table border="0" cellpadding="0" cellspacing="0" width="980" bgcolor="#FFFFFF"> <tr><td> <script> function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"' "); if (restore) selObj.selectedIndex=0; } </script> <%If Request.ServerVariables("QUERY_STRING") = "" Then url="http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME") Else url="http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME")&"?"&Request.ServerVariables("QUERY_STRING") End If%> <select name="menu1" onChange="MM_jumpMenu('self',this,0)" class="font"> <option value="index.asp" selected>请选择分类</option> <%set rs8=server.CreateObject("adodb.recordset") rs8.open "select * from venshop_pinpai order by pinpai_id desc" ,conn,1,1 do while not rs8.eof and not rs8.bof%><option value="baojia.asp?pinpai_id=<%=rs8("pinpai_id")%>"><%=rs8("pinpai_name")%></option> <%rs8.movenext loop rs8.close set rs8=nothing%></select></td> <td align="center"> <p align="right" style="margin: 5px"> <a href="baojiap.asp?pinpai_id=<%=request("pinpai_id")%>">打印报价单</a></td></tr></table> <% if request("pinpai_id")<>"" then pinpaiid=request("pinpai_id") chkid(pinpaiid) else pinpaiid=0 End If call getdan(pinpaiid) function getdanp(pinpai_id,pinpai_name) set rs=server.createobject("adodb.recordset") rs.open "select hw_id,hw_name,hw_price1,hw_price2,hw_price3 from venshop_hw where pinpai_id="&pinpai_id&" and hw_kucun>0 order by hw_id desc",conn,1,1%> <table border=0 cellpadding=5 cellspacing=1 width="980" bgcolor="#FFFFFF"> <tr><td colspan="5" class="cartshowa"><b><font color="EF790E"><%=pinpai_name%></font></b></td></tr> <tr><td width="200"class="cartshow0"><b>商品</b></td> <td width="120"class="cartshow0"><b>零售价</b></td> <td width="120"class="cartshow0"><b>普通会员价</b></td> <td width="120"class="cartshow0"><b>VIP会员价</b></td> <td width="60" align="center"class="cartshow0"><b>购买</b></td> <td width="100"class="cartshow0"><b>详细介绍</b></td> </tr> <%i=1 do while not rs.eof i=-i%> <tr<%if i=-1 then%> class="cartshow1"<%else%> class="cartshow0"<%end if%>> <td width="200"><a href=views.asp?hw_id=<%=rs("hw_id")%> target=_blank><%=rs("hw_name")%></a></td> <td width="120"><%=fuhao%><%=trim(rs("hw_price1"))%><%=danwei%></td> <td width="120"><font color=#ff0000><%=fuhao%><%=trim(rs("hw_price2"))%><%=danwei%></font></td> <td width="120"><font color=#ff0000><%=fuhao%><%=trim(rs("hw_price3"))%><%=danwei%></font></td> <td width="60" align="center"><a href="basket.asp?hw_id=<%=rs("hw_id")%>">购买</a></td> <td width="100"><a href=views.asp?hw_id=<%=rs("hw_id")%> target=_blank>详细介绍</a></td> </tr> <%rs.movenext loop%> </table> <%rs.close set rs=nothing end function function getdan(pinpai_id) set rss=server.createobject("adodb.recordset") if pinpai_id=0 then rss.open "select pinpai_id,pinpai_name from venshop_pinpai order by pinpai_id desc",conn,1,1 else rss.open "select pinpai_id,pinpai_name from venshop_pinpai where pinpai_id="&pinpai_id&"",conn,1,1 end if do while not rss.eof pinpai_id=rss("pinpai_id") pinpai_name=rss("pinpai_name") call getdanp(pinpai_id,pinpai_name) rss.movenext loop rss.close set rss=nothing end function%> </div> <!--#include file="IncAsp/venshop_copy.asp"-->