e_shop.asp

此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了

<!--#include file="Inc/syscode.asp" -->
<%
'=================================
'
'冠龙网络科技有限公司
'网址：http://www.glgk.com/
'电话：[phone]
'Q Q     53180986
'copyright(c)2006 GUANLONG
'
'=================================
%>
<%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">
  
    <TR> 
      <TD width=196 vAlign=top bgcolor="#FFFFFF"> 
        <table width="92%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#f2f2f2">
          <tr>
            <td valign="top">

<!-- 会员中心 -->
<!-- #include file="L_vip.asp" -->
<!-- 邮件列表 -->
<!-- #include file="L_mail.asp" -->

			</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 width="90%" border=0 align="right" cellPadding=0 cellSpacing=0>
<!-- 广告栏 -->
<!-- #include file="L_adcolumn.asp" -->
<!-- 订单查询 -->
		<TR> 
			<TD> <TABLE cellSpacing=0 cellPadding=0 width="555" border=0>
				<tr>
                  <td height="25" background="img/cnpt/bg.gif">&nbsp;&nbsp;<span style="font-weight: bold">&nbsp;定 单 查 询</span></td>
			  </tr>
			</TABLE></TD>
		</TR>
		<TR> 
			<TD background=img/naBialym.gif height=1><IMG height=1 src="img/1x1_pix.gif" width=10></TD>
		</TR>
		<TR> 
			<TD>
				<TABLE width=95% height="136" align="center" cellPadding=4 cellSpacing=1>
					<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 size="4" face="Arial"><%=Session("UserName")%></font><font color="#FF0000">&nbsp;&nbsp;您好</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">
						</form>
							<div align="center"> 
							<TABLE cellSpacing=0 cellPadding=0 width=100%>
								<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>
							</TABLE>
							</div>
						</TD>
					</TR>
					<TR vAlign=top > 
						<TD  width="100%" height="15"> &nbsp;&nbsp; </TD>
					</TR>
				</TABLE>
			</TD>
		</TR>
		<TR> 
			<TD background=img/naBialym.gif height=1><IMG height=1 src="img/1x1_pix.gif" width=10></TD>
		</TR>
		<TR> 
			<TD height=45>&nbsp; </TD>
		</TR>
	</TABLE>
</TD>

</TR>
</TABLE>
<!-- #include file="Inc/Foot.asp" -->
</BODY></HTML>