?? orderofind.asp
字號:
<%@ LANGUAGE="VBScript" %>
<!--#include file="Inc/Conn.asp" -->
<%
Form_ID = Request.form("Form_Id")
IF Session("UserName")="" Then
response.redirect "orderlogin.asp"
Else
set Rs3 = Server.CreateObject("ADODB.recordset")
sql3="select * from OrderList where Form_Id="&Form_Id&""
rs3.open sql3,conn,1,1
IF rs3.RecordCount >=1 then
IF Session("UserName")=rs3("UserName") Then
%>
<html>
<head>
<title>客戶訂貨單詳細信息</title>
<meta name="Author" content="Hypo">
<meta name="Contact" content="Hypo@Wz163.com">
<meta name="Copyright" content="Lw163.com">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Inc/Css.css" rel="stylesheet" type="text/css">
</head>
<%
id=Form_Id
set rs=server.createobject("adodb.recordset")
sqltext="select * from OrderList where Form_Id=" & id
rs.open sqltext,conn,1,1
%>
<body>
<br> <div align="center">
<center>
<TABLE cellSpacing=1 cellPadding=4 width=562 bgColor=#006699 height="159">
<TBODY>
<TR>
<TD width="548" height="10" colSpan=2 valign="top" bgcolor="#DBDBDB"></TD>
</TR>
<TR bgColor=#eeeeee>
<TD width="548" height="32" colSpan=2><font color="#000000">客戶訂貨單詳細資料</font></TD>
</TR>
<TR>
<TD width=126 bgColor=#DBDBDB height=12 align="right"><font color="#000000">訂貨單號：</font></TD>
<TD width=410 height=12 bgcolor="#eeeeee"> <%=rs("Form_Id")%></TD>
</TR>
<TR>
<TD bgColor=#DBDBDB height=12 align="right">公司名稱<font color="#000000">：</font></TD>
<TD width=410 height=12 bgcolor="#eeeeee"> <%=rs("Comane")%></TD>
</TR>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right"><font color="#000000">收貨人姓名：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("Somane")%></TD>
</TR>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right"><font color="#000000">收貨地址：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("Add")%></TD>
</tr>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right"><font color="#000000">郵政編碼：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("Zip")%></TD>
</tr>
<tr>
<TD width=126 bgColor=#DBDBDB height=12 align="right"><font color="#000000">聯系電話：</font></TD>
<TD width=410 height=12 bgcolor="#eeeeee"> <%=rs("Phone")%></TD>
</tr>
<tr>
<TD bgColor=#DBDBDB height=12 align="right">聯系傳真<font color="#000000">：</font></TD>
<TD width=410 height=12 bgcolor="#eeeeee"> <%=rs("Fox")%></TD>
</tr>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right"><font color="#000000">電子信箱：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("Email")%></TD>
</tr>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right"><font color="#000000">所選匯款賬號：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("Pays")%></TD>
</tr>
<tr>
<TD width=126 height=25 align="right" bgColor=#DBDBDB><font color="#000000">備注：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("Remark")%></TD>
</tr>
<tr>
<TD width=126 bgColor=#DBDBDB height=24 align="right"><font color="#000000">訂貨日期：</font></TD>
<TD width=410 height=24 bgcolor="#eeeeee"> <%=rs("RegTime")%></TD>
</tr>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right"><font color="#000000">訂單是否已經處理：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee">
<%If rs("Flag")="尚未處理" Then%>
尚未處理
<%else%>
已經發貨
<%End If%>
</TD>
</tr>
<TR>
<TD width="548" height="31" colSpan=2 valign="top" bgcolor="#eeeeee">
<p align="center">訂貨<font color="#000000">產品</font>細目</p></TD>
</TR>
<%
set rs2=server.createobject("adodb.recordset")
sqltext2="select * from ShopList where Form_Id=" & id
rs2.open sqltext2,conn,1,1
%>
<TR>
<TD width="548" height="15" colSpan=2 valign="top" bgcolor="#eeeeee">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#006699" bordercolordark="#eeeeee" height="67">
<tr>
<td width="17%" bgcolor="#DBDBDB" height="21" align="center"><font color="#000000">產品編號</font></td>
<td width="41%" bgcolor="#DBDBDB" height="21" align="center"><font color="#000000">產品名稱</font></td>
<td width="28%" bgcolor="#DBDBDB" height="21" align="center"><font color="#000000">產品類別</font></td>
<td width="14%" height="21" align="center" bgcolor="#DBDBDB"><font color="#000000">產品數量</font></td>
</tr>
<%Sum=0
While Not rs2.EOF%>
<tr>
<td width="17%" align="center" height="22"><%=rs2("Product_Id")%></td>
<td width="41%" align="center" height="22"><%=rs2("Product_Name")%></td>
<td width="28%" align="center" height="22"><%=rs2("BigClassName")%>
=> <%=rs2("SmallClassName")%></td>
<td height="22" align="center"><%=rs2("Number")%></td>
<%Sum=Sum+rs2("P_NewPrice")*rs2("Number")%>
</tr>
<%
rs2.MoveNext
Wend
%>
<tr>
<td colspan="4" height="22"> <p align="right"> </p></td>
</tr>
</table>
</div></TD>
</TR><center>
<TR>
<TD width="548" height="25" colSpan=2 bgcolor="#eeeeee"> <p align="center">
<input type="button" value="返回" name="B4" onclick="javascript:window.history.go(-1)">
</TD>
</TR>
<TR bgColor=#DBDBDB>
<TD width="548" height="3" colSpan=2></TD>
</TR></TBODY>
</TABLE>
</div>
</form>
<p>
<%
Else
response.redirect "Loginsb.asp?msg=您不能查看不屬于您的訂單，請重新輸入您自己的訂單號！"
End If
Else
response.redirect "Loginsb.asp?msg=您輸入的訂單號不存在或格式不正確，請重新輸入！"
End IF
End if
rs3.close
conn.close
%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -