📄 e_shop.asp

📁 创软科技企业网站管理系统 v4.8 创软科技企业网站管理系统 v4.8
💻 ASP
字号:
<!--#include file="inc/conn.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="Inc/Head.asp" -->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  <TBODY>
    <TR> 
      <TD width=196 vAlign=top bgcolor="#FFFFFF"> 
        <table width="92%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
          <tr>
            <td valign="top"> <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="Img/index_01b.gif">
                <TBODY>
                  <TR> 
                    <TD height=15 bgcolor="#FFFFFF"></TD>
                  </TR>
                  <TR> 
                    <TD height="26" background="Img/index_01.gif">
<div align="center"><strong>会员中心</strong> </div></TD>
                  </TR>
                  <TR> 
                    <TD height="22"> <div align="center"><a href="Manage.asp">修改会员资料</a></div></TD>
                  </TR>
                  <TR> 
                    <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                  </TR>
                  <TR> 
                    <TD height="22"> <div align="center"><a href="ManagePwd.asp">修改会员密码</a></div></TD>
                  </TR>
                  <TR> 
                    <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                  </TR>
                  <TR> 
                    <TD height="22"><div align="center"><a href="E_shop.asp">购物订单查询</a></div></TD>
                  </TR>
                  <TR> 
                    <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                  </TR>
                  <TR> 
                    <TD height="22"><div align="center"><a href="img/heyue.doc">定购合同下载</a></div></TD>
                  </TR>
                  <TR> 
                    <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                  </TR>
                  <TR> 
                    <TD height="22"><div align="center"><a href="NetBook.asp">站内留言中心</a></div></TD>
                  </TR>
                  <TR> 
                    <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                  </TR>
                  <TR> 
                    <TD height="22"><div align="center"><a href="UserLogout.asp">退出会员中心</a></div></TD>
                  </TR>
                  <TR> 
                    <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                  </TR>
                </TBODY>
              </TABLE>
              <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="Img/index_01b.gif">
                <TBODY>
                  <TR> 
                    <TD height=15 bgcolor="#FFFFFF"></TD>
                  </TR>
                  <TR> 
                    <TD height="26" background="Img/index_01.gif"><div align="center"><strong>邮件列表</strong> 
                      </div></TD>
                  </TR>
                  <TR> 
                    <TD height="5"> </TD>
                  </TR>
                  <TR> 
                    <form method="POST" action="chkemail.asp">
                      <TD vAlign=top><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td height="25"> <div align="center"> 
                                <input name='email' type='text' value="@" size='15'>
                              </div></td>
                          </tr>
                          <tr> 
                            <td height="25"><div align="center"> 
                                <input type="submit" value="订阅" name="action" style="background-color: #FFFFFF">
                                &nbsp; 
                                <input type="submit" value="退订" name="action" style="background-color: #FFFFFF">
                              </div></td>
                          </tr>
                        </table></TD>
                    </form>
                  </TR>
                  <TR> 
                    <TD height="5"> </TD>
                  </TR>
                  <TR> 
                    <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                  </TR>
                </TBODY>
              </TABLE></td>
          </tr>
        </table> 
      </TD>
      <TD width=1 background=img/kropki_pion_naBialym.gif><IMG 
            height=2 src="img/1x1_pix.gif" width=1></TD>
      <TD vAlign=top><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR> 
              
            </TR>
            <TR> 
              <TD height=1><IMG height=1 src="img/1x1_pix.gif" 
                width=10></TD>
              <TD background=img/naBialym.gif 
                  height=1><IMG height=1 src="img/1x1_pix.gif" 
              width=10></TD>
            </TR>
            <TR> 
              <TD colSpan=2 height=10><IMG height=1 
                  src="img/1x1_pix.gif" width=1></TD>
            </TR>
            <TR> 
              <TD width=26>&nbsp;</TD>
              <TD> <TABLE cellSpacing=0 cellPadding=0 width="555" border=0>
                  <TBODY>
                    <TR> 
                      <TD width="3%"><IMG height=14 src="img/arrow_3.gif" 
                        width=15></TD>
                      <TD height=25><img src="img/bgtop_21.gif" width="150" height="22"></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
            <TR> 
              <TD height=1><IMG height=1 src="img/1x1_pix.gif" 
                width=10></TD>
              <TD background=img/naBialym.gif 
                  height=1><IMG height=1 src="img/1x1_pix.gif" 
              width=10></TD>
            </TR>
            <TR> 
              <TD>&nbsp;</TD>
              <TD><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%>
                  <%


Id=Session("UserName")
set Rs = Server.CreateObject("ADODB.recordset")
sql="select * from OrderList where UserName='"&Id&"'"
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="11">
                  <input type="submit" value="查询" name="B1" style="background-color: #FFFFFF">
              </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("Form_Id")%> </td>
                            <td width="21%" align="center" height="25" bgcolor="#FFFFFF"><%=rs("Somane")%></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>
                        
                          <%

rs.close

%>
                        </TD>
                    </TR>
                  </TBODY>
                </TABLE>
              </div></TD>
          </TR>
          <TR vAlign=top > 
            <TD  width="100%" height="15"> &nbsp;&nbsp; </TD>
          </TR>
        </TBODY>
      </TABLE></TD>
            </TR>
            <TR> 
              <TD height=1><IMG height=1 src="img/1x1_pix.gif" 
                width=10></TD>
              <TD background=img/naBialym.gif 
                  height=1><IMG height=1 src="img/1x1_pix.gif" 
              width=10></TD>
            </TR>
            <TR> 
              <TD height=25>&nbsp;</TD>
              <TD 
                  height=45>&nbsp; </TD>
            </TR>
          </TBODY>
        </TABLE> </TD>
    </TR>
  </TBODY>
</TABLE>
<!-- #include file="Inc/Foot.asp" -->
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -