en_e_shop.asp

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

<!--#include file="Inc/En_syscode.asp" -->
<%
'=================================
'
'冠龙网络科技有限公司
'网址：http://www.glgk.com/
'电话：[phone]
'Q Q     53180986
'copyright(c)2006 GUANLONG
'
'=================================
%>
<%If Session("UserName")="" Then
response.redirect"En_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("Please input the correct order number. ");
document.FORM1.Form_Id.focus();
return false;
}
}
</SCRIPT>
<!-- #include file="Inc/En_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="En_L_vip.asp" -->
<!-- 产品列表 -->
<!-- #include file="En_L_product.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"><img src="Img/enpt/pt_83.gif" width="450" height="30"></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="En_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;howdy</font></p>
<p style="word-spacing: 0; margin-left: 10; margin-right: 10; margin-top: 0; margin-bottom: 0" align="center">The following is the order that you have already refer been in our stationed.  
<%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"
>Order detailed materials inquire about , <BR>please input you want order number that inquire about <input type="text" name="Form_Id" size="11">
<input type="submit" value="Inquiry" 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">The following is that all orders which you refer in our station are tabulated </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">OrderID</font></td>
												<td width="21%" align="center" height="20" bgcolor="#CCCCCC"><font color="#000000">CustomerName </font></td>
												<td width="53%" align="center" height="20" bgcolor="#CCCCCC"><font color="#000000">Situation of treatment to your order</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%>
Your fund has not reached our account yet, this order our station has not dealt with yet 
<%else%> <font color="#FF0000">This order has already delivered to you, please pay attention to checking and accept! </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/En_Foot.asp" -->
</BODY></HTML>