vieworder.asp

信运网店系统是一套功能完善、简洁美观

<!--#include file="conn.asp"-->
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'添加权限管理员
if session("rank")=2 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim goods,username,rs2,strTitle,LngUserID,YourPrice
goods=SafeRequest("dan",1)
username=SafeRequest("username",0)
LngUserID=SafeRequest("UserID",1)

action=SafeRequest("action",0)
if action="adminmemo" then
	sql = "Update Orders set AdminMemo = '"&SafeRequest("adminmemo",0)&"' where username='"&username&"' and goods='"&goods&"' "
	conn.execute(sql)
end if
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select [User].UserID,b2b_userjb.GrpName,b2b_userjb.GrpID from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where UserID="&LngUserID,conn,1,1
strTitle = rs2("GrpName")
LngGrpID = rs2("GrpID")
mUserID=rs2("UserID")
rs2.close
LstPrice = "Price2"
Select Case LngGrpID
Case "" 
LstPrice = "Price1"

Case 4
LstPrice = "Price2"

Case 30
LstPrice = "Price3"

Case 31
LstPrice = "Price4"

Case 32
LstPrice = "Price5"

End Select
dim webbj5
rs2.Open "select webbj5 from b2b_systemdata",conn,1,1
webbj5=CLng(trim(rs2("webbj5")))
rs2.Close

set rs=server.CreateObject("adodb.recordset")
rs.open "select product.id,product.name,product.amount,product.price1,product.price2,product." & LstPrice & ",product.vipprice,orders.actiondate,orders.UserSex,orders.ActionID,orders.remarks,orders.realname,orders.receipt,orders.goods,orders.postcode,orders.comments,orders.paymethord,orders.deliverymethord,orders.state,orders.paid,orders.score,orders.useremail,orders.usertel,orders.paid,orders.userid,orders.address,orders.productnum,orders.UserMemo,orders.AdminMemo,product.code from product inner join orders on product.id=orders.id where orders.username='"&username&"' and goods='"&goods&"' ",conn,1,1
if rs.eof and rs.bof then
rs.Close
Set rs = Nothing
conn.close
set Conn = Nothing
response.write "<center>此订单中已有商品被管理员删除，无法处理，请手动删除此订单！ "
response.write "<input type=button name=Submit3 value=删除订单 onClick=""location.href='save.asp?action=del&dan="&goods&"&username="&username&"'""> </center>"
response.End
end if
%> <style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style><table width="100%" border="2" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
        <tr> 
          <td colspan="3" align="center" background="images/topbg.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="90%" align="center"><b><font color="#FF0000"><img src="images/pic17.gif" width="17" height="15" align="absmiddle" />订单号：<%=goods%></font></b> ，<img src="images/pic18.gif" width="17" height="15" align="absmiddle" />下单用户：<%=UserName%>（<%=strTitle%>），<a href="####" onClick="window.open('addmes.asp?UserID=<%=muserid%>','','width=600,height=500')"><img src="images/pic19.gif" width="18" height="15" border="0" align="absmiddle" >给此用户发送站内信息</a></td>
                <td width="10%" align="center"> <input name="Submit4" type="button" class="input_bot" onClick="javascript:window.print()" value="打 印">                </td>
              </tr>
          </table></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td height="25" align="right" bgcolor="#f4f4f4"><strong>订单状态：</strong></td>
          <td height="25" colspan="2"> <table width="98%" align="center" border="0" cellspacing="1" cellpadding="0" bgcolor="#F4F4F4">
              <form name="orderstate" method="post" action="save.asp?dan=<%=goods%>&action=save&username=<%=username%>">
                <tr bgcolor="#FFFFFF">
                  <td > 
                    <% grade() %>&nbsp;<input name="Submit" type="submit" class="input_bot" value="修改订单状态"></td>
                </tr>
              </form>
          </table></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td width="17%" height="25" align="right" bgcolor="#f4f4f4"><strong>相关信息：</strong></td>
          <td height="25" colspan="2"><table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#f2f2f2">
              <tr align="center" bgcolor="#F7F7F7" height="20"> 
                <td WIDTH="20%" height="25" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>商品名称</strong></td>
                <td WIDTH="12%" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>编号</strong></td>
                <td WIDTH="6%" height="25" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>数量</strong></td>
                <td WIDTH="14%" height="25" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>市场价</strong></td>
                <td WIDTH="14%" height="25" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>普通会员价</strong></td>
                <td WIDTH="14%" height="25" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>结算价</strong></td>
				<td WIDTH="6%" height="25" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>积分</strong></td>
                <td WIDTH="14%" height="25" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>商品金额</strong></td>
            </tr>
              <%dim iii,jjj
		do while not rs.eof
		YourPrice =  Round(rs("" & LstPrice & ""),2)
%>
              <tr bgcolor="#FFFFFF" align="center" height="20"> 
                <td height="25" align="left">&nbsp;<a href=../b2b_cpinfo.asp?id=<%=rs("id")%> target=_blank><%=trim(rs("name"))%></a></td>
                <td height="25" align="left"><%=rs("Code")%></td>
                <td height="25"><%=rs("productnum")%></td>
                <td height="25"><%=rs("price1")%>元</td>
                <td height="25"><%=rs("price2")%>元</td>
                <td height="25"><%=Round(YourPrice,2) %>元</td>
				<td height="25"><%=rs("score")%>分</td>
                <td height="25"><%=Round(rs("paid"),2)%>元</td>
              </tr>
              <%
			  iii=rs("paid")+iii
			  jjj=rs("score")+jjj
		rs.movenext
		loop
		rs.movefirst%>
            </table>
            <br>
            <table width="99%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#f2f2f2">
              <tr align="center" bgcolor="#F7F7F7">
                <td height="25" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>配送方式</strong></td>
                <td height="25" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>配送费用</strong></td>
                <td height="25" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>附加费</strong></td>
                <td height="25" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>金额总计</strong></td>
                <td height="25" background="images/topbg.gif" bgcolor="#F7F7F7"><strong>获得积分</strong></td>
              </tr>
<%'
          set rs2=server.CreateObject("adodb.recordset")
          rs2.Open "select * from delivery where deliveryid="&int(rs("deliverymethord")),conn,1,1
		  if rs2.eof and rs2.bof then
		  A="此方式已经被删除"
		  B="0元"
		  C="0%"
		  D=Round(iii,2)
		  E=jjj&"分"
		  else
		  iii = iii*(1+ rs2("payfee")/100)
		  Dim LngFee
		  IF webbj5 = 0 Then
		  LngFee = rs2("fee")
		  Else
		  If iii >=webbj5 then
		  LngFee = 0
		  Else
		   LngFee = rs2("fee")
		  End If
		  End IF
			A=trim(rs2("subject"))
			B=rs2("fee")&"元"
			C=rs2("payfee")&"%"
			D=Round((iii+LngFee),2)&"元"
			E=jjj&"分"		  
		  end if
		  rs2.Close
		  set rs2=nothing
		  %>			  
              <tr bgcolor="#FFFFFF">
          		<td height="25" align="center"><%=A%></td>
          		<td height="25" align="center"><%=B%>
       		    <% IF webbj5 <> 0 Then
		  		response.write "，满&nbsp;<font color=red>"&webbj5&"</font>&nbsp;元免附加邮费。"
		    End IF%></td>
          		<td height="25" align="center"><%=C%></td>
          		<td height="25" align="center"><%=D%></td>
          		<td height="25" align="center"><%=E%></td>
              </tr>
            </table></td>
        </tr>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td height="25" align="right" background="images/topbg.gif" bgcolor="#FFFFFF"><strong>收货人：</strong></td>
          <td height="25" colspan="2"><%=trim(rs("receipt"))%>
		  <% 
		   if trim(rs("UserSex")) = 0 then
    response.Write "&nbsp;(先生)"
    else
    response.Write "&nbsp;(女士)"
    end if%>	</td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td height="25" align="right" background="images/topbg.gif" bgcolor="#FFFFFF"><strong>收货地址：</strong></td>
          <td height="25" colspan="2"><%=trim(rs("address"))%></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td height="25" align="right" background="images/topbg.gif" bgcolor="#FFFFFF"><strong>邮政编码：</strong></td>
          <td height="25" colspan="2"><%=trim(rs("postcode"))%></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td height="25" align="right" background="images/topbg.gif" bgcolor="#FFFFFF"><strong>联系电话：</strong></td>
          <td height="25" colspan="2"><%=trim(rs("usertel"))%></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td height="25" align="right" background="images/topbg.gif" bgcolor="#FFFFFF"><strong>电子邮件：</strong></td>
          <td height="25" colspan="2"><%=trim(rs("useremail"))%></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td height="25" align="right" background="images/topbg.gif" bgcolor="#FFFFFF"><strong>送货方式：</strong></td>
          <td height="25" colspan="2"> 
          <%set rs2=server.CreateObject("adodb.recordset")
    rs2.Open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
     if rs2.eof and rs2.bof then
		  response.write "方式已被删除"
		  else
		  response.Write trim(rs2("subject"))
          end if
    rs2.Close
    %>          </td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td height="25" align="right" background="images/topbg.gif" bgcolor="#FFFFFF"><strong>支付方式：</strong></td>
          <td height="25" colspan="2"> 
            <%
          rs2.Open "select * from delivery where deliveryid="&int(rs("paymethord")),conn,1,1
          if rs2.eof and rs2.bof then
		  response.write "方式已被删除"
		  else
		  response.Write trim(rs2("subject"))
          end if
		  rs2.close
          set rs2=nothing %>          </td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td height="25" align="right" background="images/topbg.gif" bgcolor="#FFFFFF"><strong>用户留言：</strong></td>
          <td width="62%" height="25"><%=trim(rs("comments"))%></td>
          <td width="21%" rowspan="2" align="right"><a href="####"><img src="images/pic20.gif" onClick="window.open('addmes.asp?UserID=<%=muserid%>','','width=600,height=500')" width="200" height="51" border="0" /></a></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td height="25" align="right" background="images/topbg.gif" bgcolor="#FFFFFF"><strong>下单日期：</strong></td>
          <td height="25"><%=rs("actiondate")%></td>
        </tr>
        <tr> 
          <td height="32" colspan="3" align="center" bgcolor="#F4F4F4">&nbsp;&nbsp;
            <input name="Submit3" type="button" class="input_bot" onClick="if(confirm('您确定要删除吗?')) location.href='save.asp?action=del&dan=<%=goods%>&username=<%=username%>';else return;" value="删除订单"> 
            &nbsp;&nbsp; <input name="Submit2" type="button" class="input_bot" onClick=javascript:window.close() value="关闭窗口">          </td>
        </tr>
      </table>
<br>
<%sub grade()
select case rs("state")
case "1"%> 
<input type="checkbox" name="checkbox1" value="2" DISABLED checked>未作任何处理<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox2" value="3">服务商已收到款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox3" value="4" DISABLED>服务商已发货<span style='font-family:Wingdings;'></span> 
<%case "2"%> 
<input type="checkbox" name="checkbox1" value="2" DISABLED checked>未作任何处理<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="state" value="3">服务商已收到款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox3" value="4" DISABLED>服务商已发货<span style='font-family:Wingdings;'></span> 
<%case "3"%> 
<input type="checkbox" name="checkbox1" value="2" DISABLED checked>未作任何处理<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox2" value="3" checked DISABLED>服务商已收到款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="state" value="4" >服务商已发货<span style='font-family:Wingdings;'></span> 
<%case "4"%> 
<input type="checkbox" name="checkbox1" value="2" DISABLED checked>未作任何处理<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox2" value="3" DISABLED checked>服务商已收到款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox3" value="4" DISABLED checked>服务商已发货<span style='font-family:Wingdings;'></span> 
<%case "5"%> 
<input type="checkbox" name="checkbox1" value="2" checked DISABLED>未作任何处理<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox2" value="3" checked DISABLED>服务商已收到款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox3" value="4" checked DISABLED>服务商已发货<span style='font-family:Wingdings;'></span> 
<%end select
end sub%>