MemberOrderView.asp
上传用户:dbstep
上传日期:2022-08-06
资源大小:2803k
文件大小:5k
源码类别:
WEB源码(ASP,PHP,...)
开发平台:
ASP/ASPX
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
- <% response.charset="utf-8" %>
- <!--#include file="../skweb/Const.asp" -->
- <!--#include file="../skweb/ConnSiteData.asp" -->
- <!--#include file="../skweb/ListSort.asp" -->
- <HTML>
- <HEAD>
- <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
- </HEAD>
- <BODY>
- <%
- if not (session("MemName")<>"" and session("MemLogin")="Succeed") then
- response.redirect "MemberCenter.asp"
- response.end
- end if
- dim ProductName,ProductNo,Amount,Remark
- dim mLinkman,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,mAddTime,ReplyContent,ReplyTime
- call OrderInfo()
- %>
- <div align="center">
- <table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="30" height="20"> </td>
- <td> </td>
- <td width="30"> </td>
- </tr>
- <tr>
- <td> </td>
- <td height="40" align="center"><table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#D4D4D4">
- <tr>
- <td colspan="2" align="center" valign="top" bgcolor="#D4D4D4"><STRONG>订 单 详 细 信 息</STRONG></td>
- </tr>
- <tr>
- <td width="100" align="center" bgcolor="#FFFFFF">预定名称</td>
- <td width="484" bgcolor="#FFFFFF"><font color="red"><%=ProductName%></font></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">预定编号</td>
- <td bgcolor="#FFFFFF"><%=ProductNo%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">订购数量</td>
- <td bgcolor="#FFFFFF"><%=Amount%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">补充说明</td>
- <td bgcolor="#FFFFFF"><%=Remark%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">联 系 人</td>
- <td bgcolor="#FFFFFF"><%=mLinkman%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">性 别</td>
- <td bgcolor="#FFFFFF"><%=mSex%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">单位名称</td>
- <td bgcolor="#FFFFFF"><%=mCompany%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">地 址</td>
- <td bgcolor="#FFFFFF"><%=mAddress%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">邮 编</td>
- <td bgcolor="#FFFFFF"><%=mZipCode%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">电 话</td>
- <td bgcolor="#FFFFFF"><%=mTelephone%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">传 真</td>
- <td bgcolor="#FFFFFF"><%=mFax%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">移动电话</td>
- <td bgcolor="#FFFFFF"><%=mMobile%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">电子邮箱</td>
- <td bgcolor="#FFFFFF"><%=mEmail%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#FFFFFF">订购时间</td>
- <td bgcolor="#FFFFFF"><%=mAddTime%></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#EBEBEB">回复时间</td>
- <td bgcolor="#EBEBEB"><font color="red"><%=ReplyTime%></font></td>
- </tr>
- <tr>
- <td align="center" bgcolor="#EBEBEB">回复内容</td>
- <td bgcolor="#EBEBEB"><%=ReplyContent%></td>
- </tr>
- </table></td>
- <td></td>
- <td> </td>
- </tr>
- <tr>
- <td height="30"></td>
- <td align="center"><input name="button" type="button" class="button" onclick="javascript:window.close();" value="关闭窗口"></td>
- <td></td>
- </tr>
- <tr>
- <td height="30"></td>
- <td></td>
- <td></td>
- </tr>
- </table>
- </div>
- <%
- sub OrderInfo()
- dim rs,sql
- set rs = server.createobject("adodb.recordset")
- sql="select * from sk_Order where ID="&request.QueryString("ID")
- rs.open sql,conn,1,1
- ProductName=rs("ProductName")
- ProductNo=rs("ProductNo")
- Amount=rs("Amount")
- Remark=HtmlStrReplace(rs("Remark"))
- mLinkman=rs("Linkman")
- mSex=rs("Sex")
- mCompany=rs("Company")
- mAddress=rs("Address")
- mZipCode=rs("ZipCode")
- mTelephone=rs("Telephone")
- mFax=rs("Fax")
- mMobile=rs("Mobile")
- mEmail=rs("Email")
- mAddTime=rs("AddTime")
- ReplyContent=HtmlStrReplace(rs("ReplyContent"))
- ReplyTime=rs("ReplyTime")
- rs.close
- set rs=nothing
- end sub
- %>