bjxcar.asp

asp的网上卖东西的..看看还可以的吧

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Dv_User where username='"&username&"'",conn,1,3
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("sex")=trim(request("shousex"))
rs("useremail")=trim(request("useremail"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
rs("youbian")=trim(request("youbian"))
rs("usertel")=trim(request("usertel"))
rs("songhuofangshi")=trim(request("songhuofangshi"))
rs("zhifufangshi")=trim(request("zhifufangshi"))
rs.update
rs.close
set rs=nothing

if session("xiadan")<>minute(now) then
'再判断库存
'未写

dim shijian,dingdan
shijian=now()
'dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
'response.write bookid
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_action where username='"&username&"' and zhuangtai=7",conn,1,3
if request.Cookies("bjx")("username")<>"" then
'dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
dingdan=now()
dingdan=replace(trim(dingdan),"-","")
dingdan=replace(dingdan,":","")
dingdan=replace(dingdan," ","")
else
dingdan=username
end if
do while not rs.eof
'得到价格，减库存
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from BJX_goods where bookid="&rs("bookid"),conn,1,3
if request.Cookies("bjx")("reglx")=2 then 
danjia=rs2("vipjia")
else
danjia=rs2("huiyuanjia")
end if
rs2("chengjiaocount")=rs2("chengjiaocount")+rs("bookcount")
rs2("kucun")=rs2("kucun")-rs("bookcount")
rs2.update
rs2.close
set rs2=nothing
'rs.addnew
'rs("username")=trim(request.cookies("bookshop")("username"))
'rs("bookid")=rs2("bookid")
rs("actiondate")=shijian
'rs("bookcount")=CInt(Request("Godbook"&rs2("bookid")))
if request("zhifufangshi")=17 then    '送货上门或预存款支付，直接改为订单完成（已收到款）
rs("zhuangtai")=3
else
rs("zhuangtai")=1
end if
rs("dingdan")=dingdan
rs("youbian")=int(request("youbian"))
rs("shouhuoname")=trim(request("userzhenshiname"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
rs("zhifufangshi")=int(request("zhifufangshi"))
rs("songhuofangshi")=int(request("songhuofangshi"))
rs("shousex")=int(request("shousex"))
rs("liuyan")=HTMLEncode2(trim(request("liuyan")))
'rs("zonger")=request("zongji")
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("useremail")=trim(request("useremail"))
rs("usertel")=trim(request("usertel"))
rs("userid")=request("userid")
'新增
if request("fapiao")<>1 then 
fapiao=0
else
fapiao=1
end if
rs("fapiao")=fapiao
rs("feiyong")=request("feiyong")
rs("danjia")=danjia
rs.update
'rs.close
'set rs=nothing
'conn.execute "delete from BJX_action where username='"&request.cookies("bookshop")("username")&"' and bookid in ("&bookid&") and zhuangtai=6"
rs.movenext
loop
rs.close
set rs=nothing
'再改奖品
z_jifen=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_action_jp where username='"&username&"' and zhuangtai=7",conn,1,3
do while not rs.eof
rs("actiondate")=shijian
rs("zhuangtai")=5
rs("dingdan")=dingdan
rs("userid")=request("userid")
z_jifen=z_jifen+rs("jifen")
rs.update
rs.movenext
loop
rs.close
set rs=nothing
'减去积分
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Dv_User where username='"&username&"'",conn,1,3
rs("jifen")=rs("jifen")-z_jifen
'如果是在线支付，要扣预存款
if request("zhifufangshi")=17 then 
rs("yucun")=rs("yucun")-request("feiyong")-request("zongji")
end if
rs.update
rs.close
set rs=nothing

session("xiadan")=minute(now)
else
response.Write "<center>您不能重复提交！</center>"
response.End
end if

%>
        <table width="970" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
          <tr>
            <td class="table-shangxia" background="images/class_bg.jpg" height=50>　<img src="images/ring02.gif" width="23" height="15" align="absmiddle"> <a href=index.asp><%=webname%></a> >>定单提交成功</td>
          </tr>
        </table>
        <table width="970" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
          <tr>
            <td bgColor=#ffffff height=1></TD>
          </tr>
          <tr bgcolor="#ffffff">
            <td bgColor="#f1f1f1" height="30" align="center">您的订单已经成功提交，我们会在第一时间进行处理，请记清您的订单号以备查询。</td>
          </tr>
          <tr>
            <td bgColor=#cccccc height=1></TD>
          </tr>
          <tr>
            <td bgColor=#f1f1f1 height=3></TD>
          </tr>
          <tr>
            <td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">订单号：<font color=red><%=dingdan%></font></td>
          </tr>
		  <%if request.Cookies("bjx")("username")<>"" then%>
          <tr>
            <td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">订单查询：您可通过“<a href="javascript:;" onclick="javascript:window.open('user.asp','','')">我的专区</a>”&gt;&gt;“<a href="javascript:;" onclick="javascript:window.open('user.asp?action=dingdan','','')">我的订单</a>”查询您的订单状态。</td>
          </tr>
          <tr>
            <td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">购物积分：请在收货后通过“<a href="javascript:;" onclick="javascript:window.open('user.asp','','')">我的专区</a>”&gt;&gt;“<a href="javascript:;" onclick="javascript:window.open('user.asp?action=dingdan','','')">我的订单</a>”及时更改您的订单状态为“完成”，因为每笔订单的积分只有在订单完成后才能累计到您的购物积分中。 </td>
          </tr>
		  <%else%>
		  <tr>
            <td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">订单查询：因为您不是我们的会员，所以您不能查询您的订单状态。</td>
          </tr>
		  <tr>
            <td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">购物积分：因为您不是我们的会员，所以您不能获得积分奖励。 </td>
          </tr>
          <%
		  end if
		  if request("zhifufangshi")=17 then %>
          <tr>
            <td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">您是通过预存款支付的，我们会尽快地给你发货的！</td>
            <script language=javascript>alert('您是通过预存款支付的，我们会尽快地给你发货的！');</script>
          </tr>
          <%else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_songhuo where songid="&trim(request("zhifufangshi")),conn,1,1
if trim(rs("subject"))="货到付款" then
rs.close
set rs=nothing
%>
          <tr>
            <td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">您是选择的“货到付款”，我们会尽快给您送货的！</td>
            <script language=javascript>alert('您是选择的“货到付款”，请确认您的订单，我们会尽快给您送货的！');</script>
          </tr>
          <%else
rs.close
set rs=nothing%>
          <tr>
            <td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的<font color="#FF0000">订单号</font>！</td>
            <script language=javascript>alert('请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的订单号！');</script>
          </tr>
          <%end if%>
          <%end if%>
		  
  <%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_songhuo where songid="&request("zhifufangshi"),conn,1,1
if rs.eof and rs.bof then
'response.write "方式已经被删除"
else
'response.write rs("subject")
dim bjxpayway
if rs("subject")="在线支付" then
bjxpayway=1
end if

end if
rs.close
set rs=nothing
  if bjxpayway=1 then
  %>
    <tr>
    <td height="30" bgcolor="#FFFFFF" STYLE='PADDING-LEFT: 20px'>
<div align="center">
<%
dim SHJIAUserName,iiii,bjxbookname
iiii=int(request("feiyong"))+int(request("zongji"))
bjxbookname=request("bjxbookname")
SHJIAUserName="bjxshop_admin"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from BJX_PAY where SHJIAUserName='"&SHJIAUserName&"' ",conn,1,1	
if rs.eof and rs.bof then
response.Write "<script LANGUAGE='javascript'>alert('此店铺还没有设置在线支付帐号！');</script>"
else
if rs("BJX_PAY_CLASS")=2 then '网银支付
    
	 ' 表单的各项参数如下：

	 ' v_mid
	 '      商户号,这里为测试商户号1001，替换为自己的商户号即可
	 ' key
	 '      MD5私钥
	 ' v_oid
	 '      订单号，构成格式 年月日-商户号-小时分钟秒
	 ' v_amount
	 '      订单金额
	 ' v_moneytype
	 '      支付币种0为人民币
	 ' v_url
	 '      商户自定义返回接收支付结果的页面	 
	 ' remark1 
	 '      备注字段1
	 ' remark2 
	 '      备注字段2
	 ' style
	 '      指网关模式0(普通)，1(银行列表中带外卡)


	 '********以下几项与网上支付货款无关，建议不用**************
	 ' v_rcvname 
	 '      收货人
	 ' v_rcvaddr
	 '      收货地址	       
	 ' v_rcvtel
	 '      订货人电话	
	 ' v_rcvpost
	 '      邮编
	 ' v_ordername
	 '      发货人
	 ' v_orderemail
	 '      订货人EMAIL


	key = rs("BJX_PAY_MIYAO")
	v_mid = rs("BJX_PAY_ZHANGHAO")
	v_amount=formatnumber(iiii,2)
	v_moneytype = "0"
	style="0"
	v_url=rs("BJX_PAY_BACKURL")
	remark1=""
	remark2=""

	'根据系统时间产生订单，格式：YYYYMMDD-v_mid-HMMSS
	curdate=now()
	v_oid=year(curdate)&month(curdate)&day(curdate)&"-"&v_mid&"-"&hour(curdate)&minute(curdate)&second(curdate)
	text = v_amount&v_moneytype&v_oid&v_mid&v_url&key
	v_md5info=Ucase(trim(BJXSHOPWYMD5(text)))					'网银支付平台对MD5值只认大写字符串，所以小写的MD5值得转换为大写

	'**********以下几项与网上支付货款无关，建议不用**************
	v_rcvname="www_gzshopping_com"
	v_rcvaddr="BJX_STUDIO"
	v_rcvtel="02031241345"
	v_rcvpost="510090"
	v_ordername="BJXSHOP"
	v_orderemail = "[e-mail]"
	
%>
<form method="post" action="https://pay.chinabank.com.cn/select_bank" name="E_FORM" target="_parent">  
	<input type="hidden" name="v_md5info" size="100"  value="<%=v_md5info%>">
	<input type="hidden" name="v_mid" value="<%=v_mid%>">
	<input type="hidden" name="v_oid" value="<%=v_oid%>">
	<input type="hidden" name="v_amount" value="<%=v_amount%>">
	<input type="hidden" name="v_moneytype"  value="<%=v_moneytype%>">
	<input type="hidden" name="v_url" value="<%=v_url%>">
	<input type="hidden" name="style" value="<%=style%>">
	<input type="hidden" name="remark1" value="<%=remark1%>">
	<input type="hidden" name="remark2" value="<%=remark2%>">
	<!--以下几项与网上支付货款无关，建议不用//-->
	<input type="hidden" name="v_rcvname" value="<%=v_rcvname%>">
	<input type="hidden" name="v_rcvaddr" value="<%=v_rcvaddr%>">
	<input type="hidden" name="v_rcvtel" value="<%=v_rcvtel%>">
	<input type="hidden" name="v_rcvpost" value="<%=v_rcvpost%>">
	<input type="hidden" name="v_ordername"  value="<%=v_ordername%>">
	<input type="hidden" name="v_orderemail"  value="<%=v_orderemail%>">
	<input type=submit name=v_action value="进入购物系统在线支付平台">
</form>


	<%end if
	end if%>	
    </td>
    
  </tr><%end if%>	
		  
          <tr>
            <td height="30" bgcolor="ffffff" style='PADDING-LEFT: 100px' align="right"><a href="#" onClick=javascript:window.close()> 关闭窗口</a><font color="#999999">　订单提交完成 创建时间：<%=shijian%>&nbsp;</font> </td>
          </tr>
        </table>
        <%
		response.Cookies("bjx")("dingdanusername")=""
		end select%></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="service.asp"-->
<!--#include file="bjxfoot.asp"-->
</body>
</html>
<script language=javascript>
<!--
function regInput(obj, reg, inputStr)
{
	var docSel	= document.selection.createRange()
	if (docSel.parentElement().tagName != "INPUT")	return false
	oSel = docSel.duplicate()
	oSel.text = ""
	var srcRange	= obj.createTextRange()
	oSel.setEndPoint("StartToStart", srcRange)
	var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
	return reg.test(str)
}
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
   //-->
</script>