📄 tj3.asp

📁 网页源码,是最好的网店代码。可以支持批量上传产品等功能。
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
<style type="text/css">
<!--
body {
	background-color: #FFFFFF;
}
.STYLE1 {color: #000000}
-->
</style></head>
<BODY>

<%
action=request("day")
if action="" then action=date()
%>

<table width="98%" border="1"  style="border-collapse: collapse; border-style: dotted; border-width: 0px"  bordercolor="#333333" cellspacing="0" cellpadding="2">
<tr class=backs><td height=18 class=td><span class="STYLE1">访问明细统计（日期：</span><%=action%><span class="STYLE1">）</span></td>
</tr>
<tr><td>
<table border="1" width="100%" cellSpacing=0 cellPadding=3 bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" bordercolor="#FFFFFF">
  <tr>
    <td>来访时间</td>
    <td>来访IP</td>
    <td>从何处而来</td>
  </tr>

<%
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from count_shop where day=#"&action&"# order by times desc"
rs.cursorlocation = 3     '游标
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
%>
  <tr>
    <td colspan=3>暂时没有统计数据</td>
  </tr>
<%
else


pages = 30			'每页记录数
rs.pageSize = pages
allPages = rs.pageCount		'计算一共能分多少页
page = Request("page")
'if语句属于基本的排错处理
if isEmpty(page) or clng(page) < 1 then
page = 1
elseif clng(page) >= allPages then
page = allPages 
end if
rs.AbsolutePage = page

do while not rs.eof and pages>0
%>



  <tr>
	<td><%=rs("times")%></td>
	<td><%=rs("ip")%></td>
	<td><%
if rs("where")<>"" then
'response.write "<span title="&rs("where")&">"&lleft(rs("where"),50)&"</span>"
response.write "<a href='../gotourl.asp?"&rs("where")&"' title="&rs("where")&" target='_blank'>"&lleft(rs("where"),50)&"</span>"
else
response.write "从收藏夹打开或直接输入网址"
end if
%>
	</td>
  </tr>

<%
pages = pages - 1
rs.movenext
if rs.eof then exit do
loop

end if

rs.close
set rs=nothing
set rs1=nothing
conn.close
set conn=nothing
%>

</table>
<%
call listpages()
%>
</td></tr>
<tr><td>
<input type="button" onClick="javascript:location.href='javascript:history.go(-1)';" value="返回上一页">
</td></tr>
</table>
</body></html>


<%
'分页
sub listPages() 
if allpages <= 1 then exit sub 
if page = 1 then
response.write "<font color=darkgray>首页 前页</font>"
else
response.write "<a href="&request.ServerVariables("script_name")&"?day="&action&"&page=1>首页</a> <a href="&request.ServerVariables("script_name")&"?day="&action&"&page="&page-1&">前页</a>"
end if
if page = allpages then
response.write "<font color=darkgray> 下页 末页</font>"
else
response.write " <a href="&request.ServerVariables("script_name")&"?day="&action&"&page="&page+1&">下页</a> <a href="&request.ServerVariables("script_name")&"?day="&action&"&page="&allpages&">末页</a>"
end if
response.write " 第"&page&"页 共"&allpages&"页"
end sub
%>
⌨️ 快捷键说明

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