e_shop.asp

钱江水产源代码,钱江水产源代码,钱江水产源代码

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Skin_css.asp"-->
<!--#include file="inc/config.asp"-->
<%If Session("UserName")="" Then
response.redirect"Server.asp"
end if%>

<SCRIPT language=javascript>

function chkitem(str)
{	
var strSource ="0123456789-";
var ch;
var i;
var temp;

for (i=0;i<=(str.length-1);i++)
{

ch = str.charAt(i);
temp = strSource.indexOf(ch);
if (temp==-1)
{
return 0;
}
}
if (strSource.indexOf(ch)==-1)
{
return 0;
}
else
{
return 1;
}


}

function FORM1_onsubmit()
{
if (chkitem(document.FORM1.Form_Id.value)==0)
{
alert("请输入正确的订单号码。");
document.FORM1.Form_Id.focus();
return false;
}
}
</SCRIPT>
<!-- #include file="Head.asp" -->
<table width="100%" height="8"  border="0" cellpadding="0" cellspacing="0" background="Img/contopbg.gif">
  <tr>
    <td><table width="226" height="8" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="209"></td>
          <td width="17" background="Img/contopbg2.gif"></td>
        </tr>
    </table></td>
  </tr>
</table>
<table width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="209" align="center" valign="top">
	<!-- #include file="server_left.asp" -->
    <p>&nbsp;</p>
        <p>&nbsp;</p></td>
    <td width="17" background="Img/combg.gif">&nbsp;</td>
    <td valign="top"><TABLE width=95% height="136" align="center" cellPadding=4 cellSpacing=1>
      <TBODY>
        <TR vAlign=top >
          <TD  width="100%" height="18">
            <form action="orderofind.asp" method="post" name=FORM1 onsubmit="return FORM1_onsubmit()" language=javascript>
              <p align="center"> <font color="#FF0000">亲爱的&nbsp;&nbsp;</font><font size="4" face="Arial"><%=Session("UserName")%></font></p>
              <p style="word-spacing: 0; margin-left: 10; margin-right: 10; margin-top: 0; margin-bottom: 0" align="center">您好，下面是您已经在本站提交的订单。
                  <%rs.close%>
                  <%


UserName=Session("UserName")
set Rs = Server.CreateObject("ADODB.recordset")
sql="select * from OrderList where UserId='"&UserName&"'"
rs.open sql,conn,1,1


%>
              </p>
              <p align="center" style="word-spacing: 0; margin-top: 0; margin-bottom: 0">订单详细资料查询，请输入您要查询的订单号码
                  <input type="text" name="Form_Id" size="16">
                  <input type="submit" value="查询" name="B1">
              </form>
            <div align="center">
              <TABLE cellSpacing=0 cellPadding=0 width=100%>
                <TBODY>
                  <TR>
                    <TD align=middle width="100%">
                      <p align="center" style="word-spacing: 0; margin-top: 0; margin-bottom: 0">以下是您在本站提交的所有订单列表</p>
                      <table border="0" cellpadding="2" cellspacing="1" width="100%" bgcolor="#000000">
                        <tr >
                          <td width="26%" align="center" height="20" bgcolor="#CCCCCC"><font color="#000000">订单编号</font></td>
                          <td width="21%" align="center" height="20" bgcolor="#CCCCCC"><font color="#000000">客户姓名</font></td>
                          <td width="53%" align="center" height="20" bgcolor="#CCCCCC"><font color="#000000">对您的订单的处理情况</font></td>
                        </tr>
                        <% While Not rs.EOF %>
                        <tr >
                          <td width="26%" align="center" height="25" bgcolor="#FFFFFF"> <%=rs("OrderNum")%> </td>
                          <td width="21%" align="center" height="25" bgcolor="#FFFFFF"><%=rs("RecName")%></td>
                          <td width="53%" align="center" height="25" bgcolor="#FFFFFF">
                            <%If rs("Flag")="尚未处理" Then%>
                        您的款项尚未到我们的帐户，此订单本站尚未处理
                        <%else%>
                        <font color="#FF0000">此订单已经发货给您，请注意查收！</font>
                        <%End If%>
                          </td>
                        </tr>
                        <%
rs.MoveNext
Wend
rs.close
%>
                    </table></TD>
                  </TR>
                </TBODY>
              </TABLE>
          </div></TD>
        </TR>
        <TR vAlign=top >
          <TD  width="100%" height="15"> &nbsp;&nbsp; </TD>
        </TR>
      </TBODY>
    </TABLE></td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
</BODY></HTML>