syscode_shop.asp

后台登陆admin.asp

rs("totalcash")=clng(totalcash)
rs("jifen")=clng(totaljf)
if wb_num>0 then 
   rs("hg")=True
   rs("hgjifen")=wb_num
end if
   rs("fapiao")=fapiao
rs.update
rs.close
set rs=nothing
Response.Write "<BR>"
Response.Write "<table width='98%' border='1' cellspacing='0' cellpadding='0' align='center' style=""border-collapse: collapse"" bordercolor='#f0f0f0'>"
Response.Write "<tr>"
Response.Write "<td colspan='4' height='40' style=""padding-left:10px;""><LI>"&user_id&"，恭喜您完成购物的全过程；</LI><LI>请及时依照您选择的支付方式在七日内汇款；</LI><LI>确认您的货款后，我们将按您的运送方式向您发货或与您联系；</LI><LI>您可以在个人 [<b><font color='#FF6600'>订单查看</font></b>] 中查看到您的订单，并且您的 <font color='#996600'>购物车</font> 已被清空。</LI></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height='28' align='right' width='18%'>订单号：</td>"
Response.Write "<td colspan='3' style=""padding-left:10px;""><b>"&order_number&"</b></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height='28' align='right'>收货人：</td>"
Response.Write "<td width='32%' style=""padding-left:10px;"">"&to_name&" </td>"
Response.Write "<td width='18%' align='right'>E-mail：</td>"
Response.Write "<td width='32%' style=""padding-left:10px;"">"&email&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td align='right'>邮政编码：</td>"
Response.Write "<td height='28' style=""padding-left:10px;"">"&postcode&"</td>"
Response.Write "<td align='right'>联系电话：</td>"
Response.Write "<td style=""padding-left:10px;"">"&tel&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height='28' align='right'>付款方式：</td>"
Response.Write "<td style=""padding-left:10px;"">"&paymenttype&"</td>"
Response.Write "<td align='right'>配送方式：</td>"
Response.Write "<td style=""padding-left:10px;"">"&sendtype&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height='28' align='right'>收货地址：</td>"
Response.Write "<td colspan=3 style=""padding-left:10px;"">"&to_adds&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height='28' align='right'>简短留言：</td>"
Response.Write "<td colspan=3 style=""padding-left:10px;"">"&other&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td align='center' colspan=4 height='28'><font color='#FF3300'>商品总价："&totalcash&" 元 &nbsp;&nbsp;配送费用："&fei&" 元&nbsp;&nbsp; 总计：￥ "&summoney&" 元</font>&nbsp;，&nbsp;积分换购 "&wb_num&"</td>"
Response.Write "</tr>"
if totaljf<>"0" then
Response.Write "<tr><td colspan=4 height='28' style=""padding-left:10px;""><LI>此定单成交后，你将获得本站赠送您"&moneyname&":"&totaljf&"，感谢你的支持！</LI></td></tr>"
end if
Response.Write "</table>"
else
response.write"<SCRIPT language=JavaScript>alert(' 非法操作，参数错误 ！');"
response.write"JavaScript:window.close()</SCRIPT>"
response.end
end if
end sub
sub Myuser_shop()
if UserLogined<>True then
        response.write"<SCRIPT language=JavaScript>alert('对不起，您不是我们的会员或还没有登陆，请注册或登陆！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if request("action")="dingdan" then
Dim CurPage,Url_Add
Url_Add="?action=dingdan&"
If Request.QueryString("Page")<>"" Then
   Curpage=Request.QueryString("Page")
   If IsInteger(Curpage)=False Then Curpage=1
Else
   Curpage=1
End If
sql="select * from shop_orders where user_id='"&Hx66_name&"' order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<table width='100%' border='1' cellspacing='1' cellpadding='0' align='center' style=""border-collapse: collapse"" bordercolor='#f0f0f0'>"
Response.Write "<tr align='center'>"
Response.Write "<td height='25' width='*'>订单号</td><td width='14%'>支付金额</td><td width='12%'>支付积分</td><td width='23%'>下单时间</td><td width='15%'>定单状态</td><td width='8%'>操作</td>"
Response.Write "</tr>"
if not rs.eof then
   Dim Hx_Nums,MultiPages,i
   Hxperpage=20
   Rs.PageSize=Hxperpage
   Rs.AbsolutePage=CurPage
   Hx_Nums=Rs.RecordCount
   MultiPages="<tr><td colspan=""6"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rs.EOF OR i=Hxperpage
Response.Write "<tr>"
Response.Write "<td height='25'>&nbsp;&nbsp;<font color=#FF0000>"&i+1&"、</font>"&rs("order_number")&"</td>"
Response.Write "<td align='center'>"&rs("summoney")&"</td>"
Response.Write "<td align='center'>"&rs("hgjifen")&"</td>"
Response.Write "<td>&nbsp;"&rs("order_time")&"</td>"
Response.Write "<td align='center'>"
        if rs("order_zf")=false then order_zt="货款未支付"
        if rs("order_zf")=true then order_zt="<font color=#FF6600>货款已划出</font>"
        if rs("order_sk")=1 then order_zt="<font color=#0000FF>商家已收款</font>"
        if rs("order_zt")=true then order_zt="<font color=#CC00CC>商家已发货</font>"
        if rs("order_sh")=1 then order_zt="<font color=#009933>交易已完结</font>"
        if rs("order_cw")=true then order_zt="<font color=#FF0000>无效的订单</font>"
Response.Write ""& order_zt &"</td>"
Response.Write "<td align='center'>[<a href='shop_myuser.asp?action=views&order_number="&rs("order_number")&"'>详情</a>]</td>"
Response.Write "</tr>"
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
Response.Write "<tr align='center'>" & vbCrLf
Response.Write "<td align=middle height='60' colSpan=5>"
Response.Write "你还没有任何定单！"
Response.Write "</td></tr>" & vbCrLf
end if
end if
Response.Write(MultiPages)
Response.Write "</table>" & vbCrLf
rs.close
set rs=nothing
elseif request("action")="views" then
Response.Write "<table width='100%' border='1' style=""border-collapse: collapse;border:dotted 1px"" bordercolor='#ffffff' cellpadding='0' cellspacing='0' align='center'>"
order_number=trim(replace(request("order_number"),"'",""))
user_id=trim(replace(request("user_id"),"'",""))
sql="select * from shop_orders where user_id='"&Hx66_name&"' and order_number='"&order_number&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1, 1
if rs.eof then
        response.write "<tr><td align='center'>没有此订单信息,请确认你的订单号输入是否正确</td></tr>"
        response.end
else
        if rs("order_zf")=false then order_zt="订单尚未处理，如您已经支付了货款，请确认修改定单状态。"
        if rs("order_zf")=true then order_zt="您的货款支付，请等待我们确认。"
        if rs("order_sk")=1 then order_zt="您的支付已经确认，我们将在24小时内给你发货。"
        if rs("order_zt")=true then order_zt="商品已递出，请注意查收。收货后请确认修改定单状态。"
        if rs("order_sh")=1 then order_zt="此订单已经交易完结。谢谢您的支持！"
        if rs("order_cw")=true then order_zt="此订单为无效订单。"
Response.Write "<tr>"
Response.Write "<td height='25' colspan='4'><font color=#FF0000>·</font>订单号为：<font color='#FF0000'>"&order_number&"</font>&nbsp;&nbsp;&nbsp;&nbsp;<a href='shop_myuser.asp?action=Myuser_dell&id="&rs("id")&"&order_number="&rs("order_number")&"&user_id="& rs("user_id") &"'>[删除此订单]</a></td>"
Response.Write "</tr>"
session("summoney")=rs("summoney")
session("dingdan")=order_number
Response.Write "<tr bgcolor='#F7F7F7'>"
Response.Write "<td height='26' width='15%'>&nbsp; 支付金额：</td>"
Response.Write "<td width='35%'>&nbsp; "&rs("summoney")&"</td>"
Response.Write "<td width='15%'>&nbsp; 下单时间：</td>"
Response.Write "<td width='35%'>&nbsp; "&rs("order_time")&"</td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor='#F7F7F7'>"
Response.Write "<td height='26'>&nbsp; 支付积分：</td>"
Response.Write "<td>&nbsp; "&rs("hgjifen")&"</td>"
Response.Write "<td>&nbsp; 支付方式：</td>"
Response.Write "<td>&nbsp; "&rs("paymenttype")&"</td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor='#F7F7F7'>"
Response.Write "<td height='26'>&nbsp; 发票需求：</td>"
Response.Write "<td>&nbsp;" 
if rs("fapiao")=1 then Response.Write "&nbsp;需要发票" else Response.Write "&nbsp;不需要发票" end if
Response.Write "</td>"
Response.Write "<td>&nbsp; 配送方式：</td>"
Response.Write "<td>&nbsp; "&rs("sendtype")&"</td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor='#F7F7F7'>"
Response.Write "<td height='26'>&nbsp; 收货人姓名：</td>"
Response.Write "<td>&nbsp; "&rs("to_name")&"</td>"
Response.Write "<td>&nbsp; 联系Email：</td>"
Response.Write "<td>&nbsp; "&rs("email")&"</td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor='#F7F7F7'>"
Response.Write "<td height='26'>&nbsp; 收货人地址：</td>"
Response.Write "<td colspan='3'>&nbsp; "&rs("to_adds")&"</td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor='#F7F7F7'><form name='form1' method='post' action='shop_myuser.asp?id="&rs("id")&"&action=Myuser_edit'>"
Response.Write "<td colspan='4' height='30'>&nbsp;&nbsp;" 
if rs("order_cw")=false then
Response.Write "<input name='checkbox' type='checkbox' DISABLED id='checkbox' value='checkbox' checked>未作任何处理<span style='font-family:Wingdings;'>à</span>" 
   if rs("order_zf")=false then
       Response.Write "<input name='order_zf' type='checkbox' id='order_zf' value='ok'>用户确认支付"
   else
       Response.Write "<input name='checkbox' type='checkbox' DISABLED id='checkbox' value='checkbox' checked>用户已划出款"
       if rs("order_sh")=0 then
            if rs("order_sk")=1 then Response.Write "<span style='font-family:Wingdings;'>à</span><input name='checkbox' type='checkbox' DISABLED id='checkbox' value='checkbox' checked>商家已经收到款"
            if rs("order_zt")=true then Response.Write "<span style='font-family:Wingdings;'>à</span><input name='checkbox' type='checkbox' DISABLED id='checkbox' value='checkbox' checked>商家已经发货"
            if rs("order_sh")=0 and rs("order_sk")=1 and rs("order_zt")=true then Response.Write "<span style='font-family:Wingdings;'>à</span><input name='order_sh' type='checkbox' id='order_sh' value='ok'>用户收到货确认"
       else
            Response.Write "<span style='font-family:Wingdings;'>à</span><input name='checkbox' type='checkbox' DISABLED id='checkbox' value='checkbox' checked>用户已收到货"
       end if
   end if
else
       Response.Write "此订单为无效订单"
end if
Response.Write "</td></tr>"
Response.Write "<tr bgcolor='#F7F7F7'>"
Response.Write "<td height='30'>&nbsp; 订单状态：</td>"
Response.Write "<td colspan='3'>&nbsp; "
if rs("order_sh")<>1 and rs("order_cw")=false then
Response.Write "<input class='input' name='submit' value='修改订单状态' type='submit'>"
else
response.write "<font color=red><b>订单工作流程全部完成，</b></font>"
end if
Response.Write "&nbsp;"& order_zt &"</td></form></tr>"
rs.close
set rs=nothing
Response.Write "</table>"
Response.Write "<br>"
Response.Write "<table width='98%' border='0' style=""border-collapse: collapse;border:dotted 1px"" cellpadding='0' cellspacing='0' align='center' bordercolor='#808080'>"
Response.Write "<tr>"
Response.Write "<td colspan='5' height='25'>&nbsp;&nbsp;= 此订单商品详情 =</td>"
Response.Write "</tr>"
sql="select * from shop_basket where user_id='"&Hx66_name&"' and order_number='"&order_number&"'"
set rsa=server.createobject("adodb.recordset")
rsa.open sql, conn, 3, 3
do while not rsa.eof
Response.Write "<tr>"
Response.Write "<td width='14%' height='25'>&nbsp; 商品名称：</td>"
Response.Write "<td width='*'>&nbsp;"& rsa("product_name") &"</td>"
Response.Write "<td width='15%' align='center'>数量/单价(元)</td>"
Response.Write "<td width='18%'>&nbsp;"&rsa("basket_count")&"/"&rsa("price")&"</td>"
Response.Write "<td width='18%' align='center'>"
if rsa("auct")=True then 
Response.Write "<font color=red>积分换购:"&rsa("hgjifen")&"</font>" 
else 
Response.Write "——" 
end if
Response.Write "</td></tr>"
rsa.movenext
loop
rsa.close
set rsa=nothing
end if
Response.Write "</table>"
else
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
end if
end sub

if request("action")="Myuser_edit" then
dim tit_fir
    set rs=server.CreateObject("adodb.recordset")
    sqlstrs="select * from shop_orders where user_id='"&Hx66_name&"' and id="&int(request("id"))
    rs.open sqlstrs,conn,1,3
    if rs.bof and rs.eof then
       response.write"<SCRIPT language=JavaScript>alert('请指定操作对象！');"
       response.write"javascript:history.go(-1)</SCRIPT>"
       response.end
    else
       order_number=rs("order_number")
       order_zf=rs("order_zf")
       order_sk=clng(rs("order_sk"))
       order_sh=clng(rs("order_sh"))
       jifen=clng(rs("jifen"))
       if request.form("order_zf")="ok" and order_zf=false then 
            rs("order_zf")=true
            tit_fir="提交成功"
       else
            if request.form("order_sh")="ok" and order_sk=1 and order_sh=0 then 
                 rs("order_sh")=1
                 tit_fir="提交成功"
                 if order_sh=0 and jifen>0 then 
                     conn.execute "UPDATE [user] SET points = points + "&jifen&" where userid="&Hx66_uid
                     tit_fir="提交成功，此次购物你已获得"&jifen&""&moneyname&""
                 end if
            end if
       end if
       rs.update   
       rs.close
    end if
url="shop_myuser.asp?action=views&order_number="&order_number&""
response.write"<SCRIPT language=JavaScript>alert('"&tit_fir&"！');"
response.write"this.top.locatio