www.gusucode.com > 凡人网络购物系统 2008源码程序 > 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_sort order by sort_id desc" ,conn,1,1 do while not rs8.eof and not rs8.bof%><option value="baojia.asp?sort_id=<%=rs8("sort_id")%>"><%=rs8("sort_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?sort_id=<%=request("sort_id")%>">打印报价单</a></td></tr></table> <% if request("sort_id")<>"" then sortid=request("sort_id") chkid(sortid) else sortid=0 End If call getdan(sortid) function getdanp(sort_id,sort_name) set rs=server.createobject("adodb.recordset") rs.open "select hw_id,hw_name,hw_price1,hw_price2 from venshop_hw where sort_id="&sort_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><%=sort_name%></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="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="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(sort_id) set rss=server.createobject("adodb.recordset") if sort_id=0 then rss.open "select sort_id,sort_name from venshop_sort order by sort_id desc",conn,1,1 else rss.open "select sort_id,sort_name from venshop_sort where sort_id="&sort_id&"",conn,1,1 end if do while not rss.eof sort_id=rss("sort_id") sort_name=rss("sort_name") call getdanp(sort_id,sort_name) rss.movenext loop rss.close set rss=nothing end function%> </div> <!--#include file="IncAsp/venshop_copy.asp"-->