📄 list.asp

📁 网上商场帐户管理方面　　　 1.实现了购物车和收藏夹的功能。　　　 2.实现了历史订单查询以及即时订单跟踪。　　　 3.实现了个人资料修改,查询以及送货人信息修改和查询。　
💻 ASP
字号:
<!-- #include file=conn.asp -->
<%
Response.Expires=0
Sql="Select * From InfoList"
Rs.Open Sql,Conn,1,1
On Error Resume Next
Name=Rs("Name")
Url=Rs("Url")
DayNum=Rs("DayNum")
TotalNum=Rs("TotalNum")
MonthMaxNum=rs("MonthMaxNum")
MonthMaxDate=Rs("MonthMaxDate")
DayMaxNum=Rs("DayMaxNum")
DayMaxDate=Rs("DayMaxDate")
HourMaxNum=Rs("HourMaxNum")
HourMaxTime=Rs("HourMaxTime")
LiaoningNum=Rs("LiaoningNum")
ChinaNum=Rs("ChinaNum")
OtherNum=Rs("OtherNum")
StartDate=Rs("StartDate")
StatDayNum=DateDiff("D",StartDate,Date)+1
If StatDayNum<=0 Then
   AveDayNum=StatDayNum
Else
   AveDayNum=Cint(TotalNum/StatDayNum)
End If
Rs.Close
Sql="Select Top 1 * From FBrowser Order By TBrwNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxBrw=Rs("TBrowser")
MaxBrwNum=Rs("TBrwNum")
End If
Rs.Close
Sql="Select Top 1 * From FSystem Order By TSysNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxSys=Rs("TSystem")
MaxSysNum=Rs("TSysNum")
End If
Rs.Close
Sql="Select Top 1 * From FScreen Order By TScrNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxScr=Rs("TScreen")
MaxScrNum=Rs("TScrNum")
End If
Rs.Close
Sql="Select Top 1 * From FArea Order By TAreNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxAre=Rs("TArea")
MaxAreNum=Rs("TAreNum")
End If
Rs.Close
Sql="Select Top 1 * From FWeburl Order By TWebNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxWeb=Rs("TWeburl")
MaxWebNum=Rs("TWebNum")
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
%>
<HTML>
<HEAD><TITLE><%=Name%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="image/style.css" rel=stylesheet type=text/css>
<BODY leftMargin=0 rightMargin=0 topMargin=0 vLink=#000000>
<TABLE height="466" background="Image/leftback.gif" width="150">
  <TBODY> 
  <TR height=240> 
    <TD vAlign=top height="50">&nbsp; </TD>
  </TR>
  <tr> 
    <td height="273" valign="top"> 
      <div align="center">
        <table width="65%" border="0" cellspacing="0" cellpadding="0" height="280">
          <tr> 
            <td>
              <div align="center"><a href="Infolist.asp" target="right">综合统计</a></div>
            </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="FArea.asp" target="right">地区分析</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="FVisitor.asp" target="right">最近访问</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="FAddress.asp" target="right">地址分析</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="StatYear.asp" target="right">年 报 表</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="FIptwo.asp" target="right">IP 地 址</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="StatMonth.asp" target="right">月 报 表</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="FReferer.asp" target="right">链接页面</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="StatWeek.asp" target="right">周 报 表</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="FCounter.asp" target="right">访问次数</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="StatDay.asp" target="right">日 报 表</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="FSystem.asp" target="right">操作系统</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="History.asp" target="right">历史报表</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"></div>
              <div align="center"><a href="FBrowser.asp" target="right">浏 览 器</a></div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"> </div>
              <div align="center"> 
                <div align="center"><a href="Rereg.asp" target="right">修改信息</a></div>
              </div>
      </td>
          </tr>
          <tr>
            <td>
              <div align="center"> </div>
              <div align="center"> 
                <div align="center"><a href="FScreen.asp" target="right">屏幕大小</a></div>
              </div>
      </td>
          </tr>
        </table>
        
      </div>
      </td>
  </tr>
  <FORM action=login.asp method=post target=_top>
    <TR> 
      <TD height="104"> 
        <p align="center">网站：<%=Name%><br>
          <a href="<%=Url%>" target=blank><%=Url%></a></p>
        </TD>
    </TR>
  </FORM>
  </TBODY> 
</TABLE>
</BODY></HTML>
⌨️ 快捷键说明

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