b_salediscount.asp

一个很好的在线购物系统

<%
'----------			页面说明			------------
'对产品价格折扣率（按照销售金额）进行调整。
'产品编码，产品名称，产品定价通过参数PRODID从产品信息表A_ProductInfo中调出
'五级销售金额阀值，以及相应的折扣率根据参数PRODID从客户扣率表B_Tblxldjkl中调出
'用户可对其进行重新编辑，并保存设置。

'程序员：魏歆
%>

<!--#include file="../include/Pubconn.asp"-->

<%
'Response.Buffer =true
%>
<%
'建立数据连接
dim conn
set conn=server.CreateObject("adodb.connection")
set conn=pubconn
%>

<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
%>

<%
'获取数据
m_prodidsave=trim(request("TCpbm"))
m_prodcodesave=trim(request("prodcode"))
m_page=trim(request("page"))
m_type=trim(request("mytype"))

if request("TLow1")<>"" then
	m_sellsumsave1=round(eval(request("TLow1")),2)
else
	m_sellsumsave1=0
end if
if request("THigh1")<>"" then
	m_sellsumsave2=round(eval(request("THigh1")),2)
else
	m_sellsumsave2=0
end if
if request("THigh2")<>"" then
	m_sellsumsave3=round(eval(request("THigh2")),2)
else
	m_sellsumsave3=0
end if
if request("THigh3")<>"" then
	m_sellsumsave4=round(eval(request("THigh3")),2)
else
	m_sellsumsave4=0
end if
if request("THigh4")<>"" then
	m_sellsumsave5=round(eval(request("THigh4")),2)
else
	m_sellsumsave5=0
end if
if request("TDiscountrate1")<>"" then
	m_discountratesave1=round(eval(request("TDiscountrate1")),2)
else
	m_discountratesave1=0
end if
if request("TDiscountrate2")<>"" then
	m_discountratesave2=round(eval(request("TDiscountrate2")),2)
else
	m_discountratesave2=0
end if
if request("TDiscountrate3")<>"" then
	m_discountratesave3=round(eval(request("TDiscountrate3")),2)
else
	m_discountratesave3=0
end if
if request("TDiscountrate4")<>"" then
	m_discountratesave4=round(eval(request("TDiscountrate4")),2)
else
	m_discountratesave4=0
end if
if request("TDiscountrate5")<>"" then
	m_discountratesave5=round(eval(request("TDiscountrate5")),2)
else
	m_discountratesave5=0
end if
if request("TRemark")<>"" then
	m_remarksave=trim(request("TRemark"))
else
	m_remarksave=" "
end if
'保存数据
set klrs=server.createobject("adodb.recordset")
klsql= "select * from B_Tblxldjkl where prodcode='" & m_prodidsave & "'"
klrs.open klsql,pubconn,1,3
if klrs.eof then
klrs.addnew 
    klrs.Fields("prodcode")=m_prodidsave
    klrs.Fields("discountrate1")=m_discountratesave1
	klrs.Fields("discountrate2")=m_discountratesave2
	klrs.Fields("discountrate3")=m_discountratesave3
	klrs.Fields("discountrate4")=m_discountratesave4
	klrs.Fields("discountrate5")=m_discountratesave5
	
	klrs.Fields("sellsum1")=m_sellsumsave1
	klrs.Fields("sellsum2")=m_sellsumsave2
	klrs.Fields("sellsum3")=m_sellsumsave3
	klrs.Fields("sellsum4")=m_sellsumsave4
	klrs.Fields("sellsum5")=m_sellsumsave5
	klrs.Fields("remark")=m_remarksave
    klrs.update  
else

set rstsave=server.CreateObject("adodb.recordset")
if rstsave.State =1 then 
	rstsave.Close 
end if

rstsave.Open "select * from B_Tblxldjkl where prodcode='" & m_prodidsave & "'",pubconn,1,3
if rstsave.RecordCount >0 then
	rstsave.Fields("discountrate1")=m_discountratesave1
	rstsave.Fields("discountrate2")=m_discountratesave2
	rstsave.Fields("discountrate3")=m_discountratesave3
	rstsave.Fields("discountrate4")=m_discountratesave4
	rstsave.Fields("discountrate5")=m_discountratesave5
	rstsave.Fields("sellsum1")=m_sellsumsave1
	rstsave.Fields("sellsum2")=m_sellsumsave2
	rstsave.Fields("sellsum3")=m_sellsumsave3
	rstsave.Fields("sellsum4")=m_sellsumsave4
	rstsave.Fields("sellsum5")=m_sellsumsave5
	rstsave.Fields("remark")=m_remarksave
	rstsave.Update 
end if
'sql="update B_Tblxldjkl set discountrate1='"& m_discountratesave1 &"',discountrate2='"& m_discountratesave2 &"',discountrate3='"& m_discountratesave3 &"',discountrate4='"& m_discountratesave4 &"',discountrate5='"& m_discountratesave5 &"',sellsum1='" & m_sellsumsave1  & "',sellsum2='" & m_sellsumsave2  & "',sellsum3='" & m_sellsumsave3  & "',sellsum4='" & m_sellsumsave4  & "',sellsum5='" & m_sellsumsave5  & "',remark='" & m_remarksave & "' where prodcode='" & m_prodidsave & "'"
'set rstsave=conn.Execute(sql)
end if%>
<script language="vbscript">
		window.location="B_ProductView.asp?mytype=2&page=1"
 </script>
<%
'Response.Redirect "b_SaleDiscount.asp?prodcode="&m_prodidsave&"&prodid="&m_prodcodesave&"&page="&m_page&"&mytype="&m_type&""
%>

<%else%>
<!--#include file="../include/PubCode.asp"-->
<%
'----------------通过参数PRODID调出产品名称，产品定价，成本价------------------

dim rst			'变量--记录集对象
dim m_prodid	'变量--商品编码
dim m_cpmc		'变量--产品名称
dim m_cpdj		'变量--产品定价
dim m_cbj		'变量--成本价

m_prodid=request("prodcode")
m_prodcode=request("prodid")
m_page=request("page")
m_type=request("mytype")

'调出商品名称，商品定价
set rst=server.CreateObject("adodb.recordset")
if rst.State =1 then
	rst.Close 
end if
rst.Open "select * from A_ProductInfo where prodcode='" & m_prodid & "'",conn,1,3
if rst.RecordCount >0 then
	rst.MoveFirst 
	m_cpmc=rst.Fields("prodname")
	m_cpdj=rst.Fields("saleprice")
	m_cbj=rst.Fields("costprice")
else
	m_cpmc=""
	m_cpdj=""
	m_cbj=""
end if
rst.close

'----------------------根据参数PRODID调出对应的折扣率,促销时间段----------------------------


if rst.State =1 then
	rst.Close 
end if
rst.Open "select * from B_Tblxldjkl where prodcode='" & m_prodid & "'",conn,1,3
if	rst.RecordCount >0 then
	rst.MoveFirst 
	m_discountrate1=rst.Fields("discountrate1")
	m_discountrate2=rst.Fields("discountrate2")
	m_discountrate3=rst.Fields("discountrate3")
	m_discountrate4=rst.Fields("discountrate4")
	m_discountrate5=rst.Fields("discountrate5")
	
	m_discount1=round(eval(m_discountrate1*m_cpdj/100),2)
	m_discount2=round(eval(m_discountrate2*m_cpdj/100),2)
	m_discount3=round(eval(m_discountrate3*m_cpdj/100),2)
	m_discount4=round(eval(m_discountrate4*m_cpdj/100),2)
	m_discount5=round(eval(m_discountrate5*m_cpdj/100),2)
	
	m_sellsum1=rst.Fields("sellsum1")
	m_sellsum2=rst.Fields("sellsum2")
	m_sellsum3=rst.Fields("sellsum3")
	m_sellsum4=rst.Fields("sellsum4")
	m_sellsum5=rst.Fields("sellsum5")
	
	m_remark=rst.Fields("remark")
	
	
else
	m_discountrate1=""
	m_discountrate2=""
	m_discountrate3=""
	m_discountrate4=""
	m_discountrate5=""
	
	m_discount1=""
	m_discount2=""
	m_discount3=""
	m_discount4=""
	m_discount5=""
	
	m_sellsum1=""
	m_sellsum2=""
	m_sellsum3=""
	m_sellsum4=""
	m_sellsum5=""
	
	m_remark=""
end if
rst.Close 
'------------------------------------------------------------------------------------------
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 2</title>

<script ID=clientEventHandlersVBS language="vbscript">
	sub TDiscountrate1_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.TDiscountrate1.value,"Num",window.event.keyCode)
	end sub
	
	sub TDiscountrate1_onkeyup
		if isnumeric(document.form1.TDiscountrate1.value) then
			document.form1.TDiscount1.value=round(eval(document.form1.TDiscountrate1.value*document.form1.TCpdj.value/100),2)
		end if
	end sub
	
	sub TDiscountrate2_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.TDiscountrate2.value,"Num",window.event.keyCode)
	end sub