📄 infolist.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">
<br>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=500 height="300">
  <TBODY> 
  <TR> 
    <TD colSpan=3><IMG src="Image/photoup.gif"></TD>
  </TR>
  <TR height=30> 
    <TD class=backs width=1></TD>
    <TD class=backq width=489>&nbsp; <IMG align=absMiddle 
      src="Image/tb_title.gif"> &nbsp;∷∷∷ 总 体 数 据 ∷∷∷ </TD>
    <TD class=backs width=1></TD>
  </TR>
  <TR height=50> 
    <TD class=backs width=1></TD>
    <TD class=backq vAlign=top>
      <table align=center border=0 cellpadding=2 cellspacing=0 width=97% height="315">
        <tbody> 
        <tr height=50> 
          <td align=left height="9">网站名称</td>
          <td align=right height="9"><%=Name%></td>
        </tr>
        <tr height=50> 
          <td align=left height="5">网站网址</td>
          <td align=right height="5"><a href="<%=Url%>"><%=Url%></a></td>
        </tr>
        <tr height=50> 
          <td align=left height="7">总统计天数</td>
          <td align=right height="7"><%=StatDayNum%></td>
        </tr>
        <tr height=50> 
          <td align=left height="2">开始统计日期</td>
          <td align=right height="2"><%=StartDate%></td>
        </tr>
        <tr height=50> 
          <td align=left height="8">总访问量</td>
          <td align=right height="8"><%=TotalNum%></td>
        </tr>
        <tr height=50> 
          <td align=left height="2">平均日访量</td>
          <td align=right height="2"><%=AveDayNum%></td>
        </tr>
        <tr height=50> 
          <td align=left height="4">今日访问量</td>
          <td align=right height="4"><%=DayNum%></td>
        </tr>
        <tr height=50> 
          <td align=left height="2">最高月访量</td>
          <td align=right height="2"><%=MonthMaxNum%></td>
        </tr>
        <tr height=50> 
          <td align=left height="2">最高月访量月份</td>
          <td align=right height="2"><%=MonthMaxDate%></td>
        </tr>
        <tr height=50> 
          <td align=left height="2">最高日访量</td>
          <td align=right height="2"><%=DayMaxNum%></td>
        </tr>
        <tr height=50> 
          <td align=left height="5">最高日访量日期</td>
          <td align=right height="5"><%=DayMaxDate%></td>
        </tr>
        <tr height=50> 
          <td align=left height="2">最高时访量</td>
          <td align=right height="2"><%=HourMaxNum%></td>
        </tr>
        <tr height=50> 
          <td align=left height="2">最高时访量时间</td>
          <td align=right height="2"><%=HourMaxTime%> 
        </tr>
        <tr height=50> 
          <td align=left height="2">省内访问人数</td>
          <td align=right height="2"><%=LiaoningNum%></td>
        </tr>
        <tr height=50> 
          <td align=left height="2">国内访问人数</td>
          <td align=right height="2"><%=ChinaNum%></td>
        </tr>
        <tr height=50> 
          <td align=left height="2">国外访问人数</td>
          <td align=right height="2"><%=OtherNum%></td>
        </tr>
        <tr height=50> 
          <td align=left height="4">常用浏览器</td>
          <td align=right height="4"><%=MaxBrw%> (<%=MaxBrwNum%>)</td>
        </tr>
        <tr height=50> 
          <td align=left height="11">常用操作系统</td>
          <td align=right height="11"><%=MaxSys%> (<%=MaxSysNum%>)</td>
        </tr>
        <tr height=50> 
          <td align=left height="2">常用屏幕分辨率</td>
          <td align=right height="2"><%=MaxScr%> (<%=MaxScrNum%>)</td>
        </tr>
        <tr height=50> 
          <td align=left height="2">访问最多的地区</td>
          <td align=right height="2"><%=MaxAre%> (<%=MaxAreNum%>)</td>
        </tr>
        <tr height=50> 
          <td align=left height="2">访问最多的网站</td>
          <td align=right height="2"> 
            <% If MaxWeb="直接输入或书签导入" Then%>
            <%=Left(MaxWeb,40)%> (<%=MaxWebNum%>) 
            <%Else%>
            <a href="<%=MaxWeb%>"><%=Left(MaxWeb,40)%></a> (<%=MaxWebNum%>) 
            <%End If%>
          </td>
        </tr>
        </tbody> 
      </table>
    </TD>
    <TD class=backs width=1></TD>
  </TR>
  <TR> 
    <TD colSpan=3><IMG 
src="Image/photodown.gif"></TD>
  </TR>
  </TBODY> 
</TABLE>
</BODY></HTML>
⌨️ 快捷键说明

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