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"-->