<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Code.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<!--#include file="Head.asp"-->
<%
Dim shoph
If Session("MyUserName")="" or Session("MyPassWord")="" Then
Response.Redirect "Server.asp" 
End if
Set rs=Server.CreateObject("Adodb.Recordset")
Sql="Select * From [User] Where [UserName]='"&Session("MyUserName")&"' and [PassWord]='"&Session("MyPassWord")&"' "
rs.Open Sql,Conn,1,1
If rs.Eof or rs.Bof Then
Response.Redirect "Server.asp" 
End if
%>
<%
Set rs=Server.CreateObject("Adodb.RecordSet")
Sql = "Select * From [ShopOrder] Where [UserName]='"&Session("MyUserName")&"' "
rs.Open Sql,Conn,1,1
If rs.Eof Then
shoph = shoph & "<center>你未购过物品!</center>"
Else
shoph = shoph & "<table width=100% border=0 cellspacing=3 cellpadding=2>"
shoph = shoph & "<tr>" 
shoph = shoph & "<td><form name=form1 method=post action=ViewFind.asp onSubmit=return chk(this)>"
shoph = shoph & "<div align=center>"&Session("MyUserName")&"您好，下面是您已经在本站提交的订单。" 
shoph = shoph & "</div>"
shoph = shoph & "订单详细资料查询，请输入您要查询的订单编号" 
shoph = shoph & "<input name=shop type=text id=shop maxlength=25>"
shoph = shoph & "<input type=submit name=Submit value='查 询'>"
shoph = shoph & "<br>"
shoph = shoph & "</form></td>"
shoph = shoph & "</tr>"
shoph = shoph & "<tr>" 
shoph = shoph & "<td> <table width=95% border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#CCCCCC>"
shoph = shoph & "<tr>" 
shoph = shoph & "<td width='23%' bgcolor=#eeeeee> <div align=center>订单编号</div></td>"
shoph = shoph & "<td width='33%' bgcolor=#eeeeee> <div align=center>客户姓名</div></td>"
shoph = shoph & "<td width='44%' bgcolor=#eeeeee> <div align=center>对您的订单的处理情况</div></td>"
shoph = shoph & "</tr>"
Do While Not rs.Eof
shoph = shoph & "<tr>"
shoph = shoph & "<td bgcolor=#FFFFFF> <div align=center>"&rs("Form_Id")&"</div></td>"
shoph = shoph & "<td bgcolor=#FFFFFF> <div align=center>"&rs("UserName")&"</div></td>"
shoph = shoph & "<td bgcolor=#FFFFFF> <div align=center>"&rs("Flag")&"</div></td>"
shoph = shoph & "</tr>"
rs.MoveNext
Loop
End if
rs.Close
Set rs=Nothing

Dim ViewHtml
ViewHtml = application("JaViewShop")
ViewHtml = Replace(ViewHtml,"{用户登陆}",UserLogin())
ViewHtml = Replace(ViewHtml,"{用户搜索}",FindProd())
ViewHtml = Replace(ViewHtml,"{用户投票}",ShowVote())
ViewHtml = Replace(ViewHtml,"{购物信息}",Shoph)
Response.Write ViewHtml 
%>




<!--#Include File="bottom.Asp"-->