jszx.asp

这是惠州城市超市购物管理系统的源代码

		else
			fudongjia_dj=rs_s("smhy")
		end if
	 elseif cint(request("songhuofangshi"))=1 then	'看是不是“平邮”
		if request.Cookies("snsn")("reglx")=2 then
			fudongjia_dj=rs_s("pyvip")
		else
			fudongjia_dj=rs_s("pyhy")
		end if
	 else
		if request.Cookies("snsn")("reglx")=2 then
			fudongjia_dj=rs_s("emsvip")
		else
			fudongjia_dj=rs_s("emshy")
		end if
	 end if
	mailbody=mailbody & fudongjia_dj
	rs_s.close
	set rs_s=nothing

 mailbody=mailbody & "</font></div></td>"
 mailbody=mailbody & "<td > <div align=center><font color=#FF3300>"
	if tmpPIFA=1 then
		mailbody=mailbody & rs("vipjia")*rs("shopcount")
	else
		mailbody=mailbody & rs("zonger")
	end if
   mailbody=mailbody & "</font>元</div></td>"
   mailbody=mailbody & "</tr>"
	jianshu=jianshu+rs("shopcount")
	if tmpPIFA=1 then
		zongji=zongji+rs("vipjia")*rs("shopcount")
	else
		zongji=zongji+rs("zonger")
	end if

	set rs_s=server.CreateObject("adodb.recordset")
	rs_s.open "select * from shop_fudong where id="&rs("banci"),conn,1,1
	fudongjia=fudongjia+rs("shopcount")*fudongjia_dj
	rs_s.close
	set rs_s=nothing

	rs.movenext
	loop
	rs.close
	set rs=nothing
 mailbody=mailbody & "<tr bgcolor=#FFFFFF>"
 mailbody=mailbody & "<td height=36 colspan=7 >"
 mailbody=mailbody & "<div align=center> 货款总计："&zongji&"元</div></td>"
 mailbody=mailbody & "</tr>"
	set snsn=server.CreateObject("adodb.recordset")
	snsn.open "select * from shop_action_jp where username='"&request.cookies("snsn")("username")&"' and zhuangtai=7",conn,1,1
	if snsn.recordcount>0 then
	mailbody=mailbody & "<tr bgcolor=#FFFFFF> "
	mailbody=mailbody & "<td colspan=6 > "
	mailbody=mailbody & "<table width=96% border=0 cellspacing=0 cellpadding=0 align=center  >"
  mailbody=mailbody & "<tr bgcolor=#FFFFFF> "
  mailbody=mailbody & " <td colspan=2 ><b> 您已选择的奖品清单</font></b></td>"
  mailbody=mailbody & "</tr>"
  mailbody=mailbody & "<tr align=center  > "
   mailbody=mailbody & "<td height=22  class=a1><font color="&flzhzt&">奖品名称</font></td>"
   mailbody=mailbody & "<td height=22  class=a1><font color="&flzhzt&">使用积分</font></td>"
   mailbody=mailbody & "</tr>"
   while not snsn.eof
    mailbody=mailbody & "<tr bgcolor=#FFFFFF > "
    mailbody=mailbody & "<td>"
    set snsn1=server.CreateObject("adodb.recordset")
	snsn1.open "select * from shop_jiangpin where shopid="&snsn("shopid"),conn,1,1
	if snsn1.recordcount=1 then
		mailbody=mailbody & "<font color=blue>"&snsn1("shopname")&"</font>"
	end if
		snsn1.close
	set snsn1=nothing
     mailbody=mailbody & "</td>"
     mailbody=mailbody & "<td align=center>"&snsn("jifen")&"</td>"
     mailbody=mailbody & "</tr>"
    snsn.movenext
   wend
    mailbody=mailbody & "</table></td>"
    mailbody=mailbody & "</tr>"
    end if
	snsn.close
	set snsn=nothing
    mailbody=mailbody & "</table>"

	mailbody=mailbody & "<table width=98% border=0 align=center cellpadding=0 cellspacing=0 class='table-zuoshang'>"

    mailbody=mailbody & " <tr bgcolor=#FFFFFF> "
    mailbody=mailbody & "<td width=594  align=center valign=top>"
    mailbody=mailbody & "<table width=96% border=0 cellspacing=0 cellpadding=0  >"
    mailbody=mailbody & "<tr align=center  class=a1> "
    mailbody=mailbody & "<td height=22 colspan=2 ><b> 您的订单信息</font></b></td></tr><tr bgcolor=#FFFFFF> <td width=23% >姓名<br></td><td width=77% >"&request("userzhenshiname")&"</td></tr><tr bgcolor=#FFFFFF> <td width=23% >邮编<br></td><td width=77% >"&request("youbian")&"</td></tr><tr bgcolor=#FFFFFF> <td width=23% >地址<br>  </td><td width=77% >"&request("shouhuodizhi")&"</td></tr>"
    mailbody=mailbody & "<tr bgcolor=#FFFFFF> "
    mailbody=mailbody & "<td width=23% >电话<br></td>"
    mailbody=mailbody & "<td width=77% >"&request("usertel")&"</td></tr>"
    mailbody=mailbody & "<tr bgcolor=#FFFFFF> "
    mailbody=mailbody & "<td width=23% >邮箱</td>"
    mailbody=mailbody & "<td width=77% >"&request("useremail")&"</td></tr>"
    mailbody=mailbody & " <tr bgcolor=#FFFFFF> "
    mailbody=mailbody & "<td width=23% >送货 </td>"
    mailbody=mailbody & "<td width=77% > "
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&request("songhuofangshi"),conn,1,1
	mailbody=mailbody & rs("subject")
rs.close
set rs=nothing
    mailbody=mailbody & "</td></tr>"
    mailbody=mailbody & "<tr bgcolor=#FFFFFF> "
    mailbody=mailbody & " <td width=23% >支付</td>"
    mailbody=mailbody & " <td width=77% > "
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&request("zhifufangshi"),conn,1,1
	mailbody=mailbody &  rs("subject")
rs.close
set rs=nothing
    mailbody=mailbody & "</td></tr>"
    mailbody=mailbody & "<tr bgcolor=#FFFFFF> "
    mailbody=mailbody & "<td width=23% ><br> </td>"
    mailbody=mailbody & "<td width=77% >&nbsp; </td></tr> </table></td>"
    mailbody=mailbody & "<td width=356  align=center valign=top> "
    mailbody=mailbody & "<table width=96% border=0 cellspacing=0 cellpadding=0  >"
    mailbody=mailbody & "<tr align=center > "
    mailbody=mailbody & "<td height=22 colspan=2  class=a1><b> 送货费计算</font></b></td> </tr>" 
'计算费用
'先取出参数
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_sys ",conn,1,1
t_sm1=rs("sm1")
t_sm2=rs("sm2")
t_sm3=rs("sm3")
t_py1=rs("py1")
t_py2=rs("py2")
t_py3=rs("py3")
t_ems1=rs("ems1")
t_ems2=rs("ems2")
t_ems3=rs("ems3")

'先看是不是送货
'set rs=server.CreateObject("adodb.recordset")
'rs.open "select * from shop_songhuo where songid="&trim(request("songhuofangshi")),conn,1,1
if cint(request("songhuofangshi"))=3 then	'先看是不是送货
	'rs.close
	if request.cookies("snsn")("reglx")=2 then
		if zongji>=t_sm3 then 
			jijia=0
		else
			jijia=t_sm1
		end if
	else
		if zongji>=t_sm2 then 
			jijia=0
		else
			jijia=t_sm1
		end if
	end if
	feiyong=jijia+fudongjia
	'fudongjia=0
else
	'不是送货上门的还要看是什么方式送货
	if cint(request("songhuofangshi"))=1 then	'看是不是"普通平邮"
		'rs.close
		if request.cookies("snsn")("reglx")=2 then
			if zongji>=t_py2 then 
				jijia=t_py1-t_py3
			else
				jijia=t_py1
			end if
		else
				jijia=t_py1
		end if
	else
		rs.close
		if request.cookies("snsn")("reglx")=2 then
			if zongji>=t_ems2 then 
				jijia=t_ems1-t_ems3
			else
				jijia=t_ems1
			end if
		else
				jijia=t_ems1
		end if
	
	end if
	'算商品基价+浮动价=费用
	
	feiyong=jijia+fudongjia
end if

	mailbody=mailbody & "<tr><td bgcolor=#FFFFFF >&nbsp;</td></tr>"
	mailbody=mailbody & "<tr><td style='PADDING-right: 20px' align=right bgcolor=#FFFFFF >您的送货费用计：　"&feiyong&" 元<br>(其中　　基价："&jijia&"元)<br>(浮动价："&fudongjia&"元)</td></tr>"
    mailbody=mailbody & "<tr> <td bgcolor=#FFFFFF >&nbsp;</td></tr>"
    mailbody=mailbody & "<tr><td style='PADDING-right: 20px' align=right bgcolor=#FFFFFF ><b><font color=red>您的订单总金额：　"&feiyong+zongji&" 元</font></b></td> </tr>"
    mailbody=mailbody & "<tr><td height=20 bgcolor=#FFFFFF ></td></tr>"
    mailbody=mailbody & "<tr><td align=right bgcolor=#FFFFFF ><a href='"&weburl&"/help.asp?action=feiyong' target=_blank>查看送货费用说明</a></td></tr> </table></td></tr>"
    mailbody=mailbody & "</table></td></tr>"


	mailbody=mailbody & "<tr><td><table width=98% border=0 align=center cellpadding=0 cellspacing=0 class='table-zuoshang'><tr><td>"
	mailbody=mailbody & request.cookies("snsn")("username")&"("&trim(request("userzhenshiname"))&")"&"，您好：<br><br>"
	mailbody=mailbody & "感谢您在本购物中心，我们将提供给您最好的服务！<br>"
	mailbody=mailbody & "下面是您在" & webname & "的订单信息：<br><br>"
	mailbody=mailbody & "订单号："& dingdan &"<br>"
	mailbody=mailbody & "<br><br>"
	mailbody=mailbody & "<center><font color=red>再次感谢您使用本系统！</font>"
	mailbody=mailbody & "</TD></TR></TABLE></TD></TR></TABLE><br><hr width=95% size=1>"
	mailbody=mailbody & "</body>"
	mailbody=mailbody & "</html>"
'response.write mailbody
'response.end
	Set JMail=Server.CreateObject("JMail.Message")
	JMail.Charset="gb2312"
	JMail.ContentType = "text/html"
	jmail.from = mailsend
	jmail.silent = true
	jmail.Logging = true
	jmail.FromName = mailname
	jmail.mailserverusername = mailusername
	jmail.mailserverpassword = mailuserpass
	jmail.AddRecipient trim(request("useremail"))
	jmail.body=mailbody
	JMail.Subject=topic
	if not jmail.Send ( mailaddress ) then
		response.write "<script language=javascript>alert('发送失败')</script>"
	else
		response.write "<script language=javascript>alert('发送成功')</script>"
	end if
%>
      <table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
        <tr class="a1"> 
          <td height="23" bgcolor="f1f1f1"   > <div align="center"><b>您的订单已经成功提交，我们会在第一时间进行处理，请记清您的订单号以备查询。</b></div></td>
        </tr>
        <tr> 
          <td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 50px'  >订单号：<%=dingdan%>&nbsp; 
            <%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_pay ",conn,1,3
username=trim(rs("username"))
leixing=trim(rs("leixing"))
ver=trim(rs("ver"))
xinxi=trim(rs("xinxi"))
payid=trim(rs("payid"))
urlback=trim(rs("urlback"))
fangshi=trim(rs("fangshi"))
email=trim(rs("email"))
handphone=trim(rs("handphone"))
rs.Close
set rs=nothing
%>
            <a href="http://www.1st-pay.net/work/work.asp?username=<%=username%>&leixing=<%=leixing%>&ver=<%=ver%>&xinxi=<%=xinxi%>&payid=<%=payid%>&cash=<%=request("zongji")%>&urlback=<%=urlback%>&fangshi=<%=fangshi%>&shopname=<%=request("shopname")%>&email=<%=email%>&handphone=<%=handphone%>"><font color="#FF0000">&gt;&gt;点击进入网上银行在线支付</font></a></td>
        </tr>
        <tr> 
          <td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 50px'  >订单查询：您可通过“<a href="user.asp">我的专区</a>”&gt;&gt;“<a href="user.asp?action=dingdan">我的订单</a>”查询您的订单状态。</td>
        </tr>
        <tr> 
          <td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 50px'  >购物积分：请在收货后通过“<a href="user.asp">我的专区</a>”&gt;&gt;“<a href="user.asp?action=dindan">我的订单</a>”及时更改您的订单状态为“完成”，因为每笔订单的积分只有在订单完成后才能累计到您的购物积分中。 
          </td>
        </tr>
        <%if request("zhifufangshi")=17 then %>
        <tr> 
          <td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 50px'  >您是通过预存款支付的，我们会尽快地给你发货的！</td>
          <script language=javascript>alert('您是通过预存款支付的，我们会尽快地给你发货的！');</script>
        </tr>
        <%else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&trim(request("zhifufangshi")),conn,1,1
if trim(rs("subject"))="货到付款" then
                          rs.close
                          set rs=nothing
%>
        <tr> 
          <td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 50px'>您是选择的“货到付款”，我们会尽快给您送货的！</td>
          <script language=javascript>alert('您是选择的“货到付款”，请确认您的订单，我们会尽快给您送货的！');</script>
        </tr>
        <%else
                          rs.close
                          set rs=nothing%>
        <tr> 
          <td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 50px'  >请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的订单号！</td>
          <script language=javascript>alert('请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的订单号！');</script>
        </tr>
        <%end if%>
        <%end if%>
        <tr> 
          <td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 50px'  > <div align="right"><a href="#" onClick=javascript:window.close()> 
              关闭窗口</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;订单完成 创建时间：<%=shijian%>&nbsp;</div></td>
        </tr>
      </table>
      <br> 
      <%end select%>
    </td>
    <td width="1" bgcolor="C9C9C8"><img src="../images/block.gif" width="1" height="1"></td>
  </tr>
</table>
<!--#include file="copyright.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>