gwc.asp

书店的管理系统。不错的一个源程序。提供给大家。

		For j = 1 to res1.recordcount
			jg=res1("定价")*res1("number")
			tot1=tot1+jg

			tot1_zk=tot1_zk+jg*Cdbl(res1("折扣"))*0.1
%>
			<tr align="left">

			<td bgcolor="#e8e8ec" align="center">
			<form action="gwc.asp" method="post" id=formaddtogwc LANGUAGE=javascript onsubmit="return formaddtogwc_onsubmit(this)">
			  <input type="hidden" name="ShopID" value="<%=Application("ZDID")%>">
			  <input type="hidden" name="XHBID" value="<%=res1("XHBID")%>">
			  <input type="hidden" name="flag" value="upda">
			  <INPUT name=number value="<%=res1("number")%>" style="HEIGHT: 22px; WIDTH: 32px" size=3 maxlength=3>册
		      <input type="submit" value="修改数量" style="font-size: 9pt" name=submit1> 
			</form></td>
          
			<td bgcolor="#e8e8ec"><a Href="title_detail.asp?XHBID=<%=res1("XHBID")%>&amp;book_name=<%=res1("正书名")%>"><%=res1("正书名")%></a> </td>
          
	        <td bgcolor="#e8e8ec" align="right"> <%=res1("定价")%> </td>
          
		    <td bgcolor="#e8e8ec" align="right"> <font color="#FF0000"> <%=res1("折扣")%> </font> </td>
          
	        <td bgcolor="#e8e8ec" align="right"> <%=jg%> </td>
          
		    <td bgcolor="#e8e8ec" align="right"> <%=res1("ISBN")%> </td>

			<td bgcolor="#e8e8ec" align="right"> <font color="#FF0000"> <%=res1("备注")%> </font> </td>
          
	        <td bgcolor="#e8e8ec" align="center">
			<form action="gwc.asp" method="post" id=formdelfromgwc>
			  <input type="hidden" name="ShopID" value="<%=Application("ZDID")%>">
			  <input type="hidden" name="XHBID" value="<%=res1("XHBID")%>">
			  <input type="hidden" name="flag" value="dele">
			<input type="submit" value="放回书架" style="font-size: 9pt" name=submit1> 
			</form></td>
        
	        </tr>
<%
			res1.movenext
		Next 
		
		tot1_zk=round(tot1_zk,1)
%>

		<tr>
		<td bgcolor=#eee8aa colspan=4 align="right">小计：</td>
		<td bgcolor="#eee8aa" align="right"><%=tot1%></td>
		<td bgcolor="#eee8aa" align="right"> <font color="#FF0000"> 优惠价：<%=tot1_zk%> </font> </td>
		<td bgcolor="#eee8aa" colspan=2></td>
		</tr>
<%	end if  'res1.recordcount>0

	res1.close

%>




<%
	'///////////////////计算和显示 总店的 普通 书
	
	res2.source="select XHBID ,number, 正书名,ISBN,定价,折扣,备注 from tempgwc where s_id='"&session_id&"' and 书店ID='"&Application("ZDID")&"' and 折扣 IS NULL ORDER BY 定价 desc"
	res2.cursorlocation=3
	res2.open ,,adOpenDaynamic

	tot2=0.0             '实洋
	tot2_zk=0.0          '实收
	if res2.recordcount>0 then
	
		For j = 1 to res2.recordcount
			jg=res2("定价")*res2("number")
			tot2=tot2+jg
%>
			<tr align="left">

			<td bgcolor="#e8e8ec" align="center">
			<form action="gwc.asp" method="post" id=formaddtogwc LANGUAGE=javascript onsubmit="return formaddtogwc_onsubmit(this)">
			  <input type="hidden" name="ShopID" value="<%=Application("ZDID")%>">
			  <input type="hidden" name="XHBID" value="<%=res2("XHBID")%>">
			  <input type="hidden" name="flag" value="upda">
			  <INPUT name=number value="<%=res2("number")%>" style="HEIGHT: 22px; WIDTH: 32px" size=3 maxlength=3>册
		      <input type="submit" value="修改数量" style="font-size: 9pt" name=submit1> 
			</form></td>
          
			<td bgcolor="#e8e8ec"><a Href="title_detail.asp?XHBID=<%=res2("XHBID")%>&amp;book_name=<%=res2("正书名")%>"><%=res2("正书名")%></a> </td>
          
	        <td bgcolor="#e8e8ec" align="right"> <%=res2("定价")%> </td>
          
		    <td bgcolor="#e8e8ec" align="right"> <font color="#FF0000"> <%=res2("折扣")%> </font> </td>
          
	        <td bgcolor="#e8e8ec" align="right"> <%=jg%> </td>
          
		    <td bgcolor="#e8e8ec" align="right"> <%=res2("ISBN")%> </td>

			<td bgcolor="#e8e8ec" align="right"> <font color="#FF0000"> <%=res2("备注")%> </font> </td>
          
	        <td bgcolor="#e8e8ec" align="center">
			<form action="gwc.asp" method="post" id=formdelfromgwc>
			  <input type="hidden" name="ShopID" value="<%=Application("ZDID")%>">
			  <input type="hidden" name="XHBID" value="<%=res2("XHBID")%>">
			  <input type="hidden" name="flag" value="dele">
			<input type="submit" value="放回书架" style="font-size: 9pt" name=submit1> 
			</form></td>
        
	        </tr>
<%
			res2.movenext
		Next %>

<%
		if tot2>1000 then
			tot2_zk=tot2*0.73
			zk_level="73折"
		else
			if tot2<=500 then
				tot2_zk=tot2*0.8
				zk_level="8折"
			else
				tot2_zk=tot2*0.75
				zk_level="75折"
			end if
		end if
		
		tot2_zk=round(tot2_zk,1)
%>

		<tr>
		<td bgcolor="#eee8aa" colspan=4 align="right">小计：</td>
		<td bgcolor="#eee8aa" align="right"><%=tot2%></td>
		<td bgcolor="#eee8aa" align="right"> <font color="#FF0000"> 优惠价：<%=tot2_zk%> </font> </td>
		<td bgcolor="#eee8aa" colspan=2 align=center>您享受<font color="#FF0000"><%=zk_level%></font>优惠</td>
		</tr>
<%	end if  'res2.recordcount>0

	res2.close

%>

	</table><p></p>

<%
	tot=tot1+tot2
	tot_zk=tot1_zk+tot2_zk
%>

	合计：<%=tot%>元，

	打折后价格为<font color="#FF0000"><%=tot_zk%>元</font>，您共节省了<font color="#FF0000"><%=tot-tot_zk%>元</font>
	<p></p><p></p>


	<form action="../payment/pay1.asp" method="post">
         <input type="submit" value="去'新华书店总店'交款处" style="font-size: 9pt" name=submit1> 
    </form>


<%
end if  'res.recordcount>0

Res.close

'以上计算和显示 总店 的书
%>








<%
	'''''''''''''''''''''''''''''''''''''''''''''''''
	'''以下显示 加盟书店的书
	'''''''''''''''''''''''''''''''''''''''''''''''''

res.source="select 书店ID from tempgwc where s_id='"&session_id&"' and 书店ID <> '"&Application("ZDID")&"' GROUP BY 书店ID"
res.cursorlocation=3
res.open ,,adOpenDaynamic

AllShopNum=res.recordcount
if AllShopNum<1 then
	Res.close 
	con.Close 
	Response.End
else
	Dim AllShopID
	ReDim AllShopID(AllShopNum)
	For i = 0 to AllShopNum-1
		AllShopID(i)=res("书店ID")
		Res.movenext
	Next
	
	Res.close
end if



For i = 0 to AllShopNum-1
	res.source="select 书店名称 from JMSD where 书店ID='"&AllShopID(i)&"'"
	res.cursorlocation=3
	res.open ,,adOpenDaynamic

	if res.recordcount<>1 then
		Response.Write "购买的过程中出现错误！"
		Res.close 
		con.Close 
		Response.End 
	end if
	
	ShopName=res("书店名称")
	Res.close
%>


<p></p><p></p><p></p><p></p><p></p><p></p><p></p>
<div align="left">
<%
	Response.Write ShopName
%>
</div>

	<div align="center"><center>
	<table border="0" width="100%" style="font-size: 9pt">
        <tr align="center">
          <td bgcolor="yellow"><strong>购买</strong></td>
          <td bgcolor="yellow"><strong>书名</strong></td>
          <td bgcolor="yellow"><strong>单价(元)</strong></td>
          <td bgcolor="yellow"><strong>折扣</strong></td>
          <td bgcolor="yellow"><strong>总价(元)</strong></td>
          <td bgcolor="yellow"><strong>ISBN</strong></td>
          <td bgcolor="yellow"><strong>备注</strong></td>
          <td bgcolor="yellow"><strong>取消购买</strong></td>
        </tr>


<%
	res1.source="select XHBID ,number, 正书名,ISBN,定价,折扣,备注 from tempgwc where s_id='"&session_id&"' and 书店ID='"&AllShopID(i)&"' ORDER BY 定价 desc"
	res1.cursorlocation=3
	res1.open ,,adOpenDaynamic

	tot1=0.0             '实洋
	tot1_zk=0.0          '实收
	if res1.recordcount>0 then
	
		For j = 1 to res1.recordcount
			jg=res1("定价")*res1("number")
			tot1=tot1+jg

			if isnull(res1("折扣")) or res1("折扣")="" then
				tot1_zk=tot1_zk+jg
			else
				tot1_zk=tot1_zk+jg*Cdbl(res1("折扣"))*0.1
			end if
%>
			<tr align="left">

			<td bgcolor="#e8e8ec" align="center">
			<form action="gwc.asp" method="post" id=formaddtogwc LANGUAGE=javascript onsubmit="return formaddtogwc_onsubmit(this)">
			  <input type="hidden" name="ShopID" value="<%=AllShopID(i)%>">
			  <input type="hidden" name="XHBID" value="<%=res1("XHBID")%>">
			  <input type="hidden" name="flag" value="upda">
			  <INPUT name=number value="<%=res1("number")%>" style="HEIGHT: 22px; WIDTH: 32px" size=3 maxlength=3>册
		      <input type="submit" value="修改数量" style="font-size: 9pt" name=submit1> 
			</form></td>
          
			<td bgcolor="#e8e8ec"><a Href="JMSDtitle_detail.asp?ShopID=<%=AllShopID(i)%>&amp;XHBID=<%=res1("XHBID")%>&amp;book_name=<%=res1("正书名")%>"><%=res1("正书名")%></a> </td>
          
	        <td bgcolor="#e8e8ec" align="right"> <%=res1("定价")%> </td>
          
		    <td bgcolor="#e8e8ec" align="right"> <font color="#FF0000"> <%=res1("折扣")%> </font> </td>
          
	        <td bgcolor="#e8e8ec" align="right"> <%=jg%> </td>
          
		    <td bgcolor="#e8e8ec" align="right"> <%=res1("ISBN")%> </td>

			<td bgcolor="#e8e8ec" align="right"> <font color="#FF0000"> <%=res1("备注")%> </font> </td>
          
	        <td bgcolor="#e8e8ec" align="center">
			<form action="gwc.asp" method="post" id=formdelfromgwc>
			  <input type="hidden" name="ShopID" value="<%=AllShopID(i)%>">
			  <input type="hidden" name="XHBID" value="<%=res1("XHBID")%>">
			  <input type="hidden" name="flag" value="dele">
			<input type="submit" value="放回书架" style="font-size: 9pt" name=submit1> 
			</form></td>
        
	        </tr>
<%
			res1.movenext
		Next 
		
		tot1_zk=round(tot1_zk,1)
%>

		<tr>
		<td bgcolor=#eee8aa colspan=4 align="right">合计：</td>
		<td bgcolor="#eee8aa" align="right"><%=tot1%></td>
		<td bgcolor="#eee8aa" align="right"> <font color="#FF0000"> 优惠价：<%=tot1_zk%> </font> </td>
		<td bgcolor="#eee8aa" colspan=2></td>
		</tr></table>
<%	end if  'res1.recordcount>0

	res1.close
%>

	<form action="../payment/JMSDpay1.asp" method="post" id=form1 name=form1>
		<input type="hidden" name="ShopID" value="<%=AllShopID(i)%>">
        <input type="submit" value="去'<%=ShopName%>'交款处" style="font-size: 9pt" name=submit1> 
    </form>

<%
Next

	'''''''''''''''''''''''''''''''''''''''''''''''''
	'''以上显示 加盟书店的书
	'''''''''''''''''''''''''''''''''''''''''''''''''
%>






<%
con.Close 
%>

</BODY>
</HTML>