www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/tj_all.asp
<!--#include file="tj_config.asp"--> <%if Request.Cookies("venshop")("admin_name")="" or Request.Cookies("venshop")("admin_class")="" then response.redirect "ad_login.asp" elseif Request.Cookies("venshop")("admin_class")<>0 then response.write "你没有这个权限!" response.end end if%> <% wherestr=Request("wherestr") pagesize=mPageSize if request("page")="" then curpage = 1 else curpage = cint(request("page")) end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" type="text/css" href="inc/css.css"> </head> <body topmargin=5 rightmargin=0 leftmargin=0 vlink=#000000> <!--#include file="tj_top.asp"--> <br> <table width=500 cellspacing=0 align=center> <tr><td> <p style="line-height: 100%; margin-left: 15; margin-top: 5; margin-bottom: 0"> Tips: 用鼠标点指地区可看到IP地址及详细地区,点指访问日期可查看被访问页面。</p> </td></tr> </table> <br> <table width="500" cellspacing="0" align="center" cellpadding="0" border="0"> <tr><td colspan="3"><img src="img/photoup.gif"></td></tr> <tr height="30"> <td width="1" class="backs"></td> <td width="498"class="backq"> <img src="img/tb_title.gif" align=absmiddle> ∷∷∷ 详 细 记 录 ∷∷∷<br> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C8C8C8" width="480" align=center> <tr align=center height="25"> <td width="85">时 间</td><td width="150">地区</td><td width="40">屏宽</td><td width="55">系统</td><td width="55">浏览器</td><td width="170">来 源 网 页</td> </tr> <% set conn=server.createobject("adodb.connection") DBPath = Server.MapPath(connpath) conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM view " & wherestr & " ORDER BY id DESC" rs.open sql, conn, 1, 1 if rs.bof and rs.eof then rs.close response.write "<tr><td colspan='6'><br><center>" & wherestr & "没有符合条件的记录</center><br></td></tr></table></td></tr></table>" else dim i rs.pagesize = pagesize if rs.pagecount < curpage then rs.absolutepage=rs.pagecount curpage=rs.pagecount else rs.absolutepage = curpage end if for i = 1 to rs.pagesize %> <tr height="1"><td colspan=6></td></tr> <tr height="18"> <td><a title="<%=rs("vpage")%>"><%=month(rs("vtime")) & "-" & day (rs("vtime")) & " " & formatdatetime(rs("vtime"),4)%></a></td> <td align=center><%=rs("vIP") & " " & rs("vwhere") & "·" & rs("vwheref")%></td> <td align=center><font face="Times new roman"><%=rs("vwidth")%></font></td> <td align=center><font face="Times new roman"><%=rs("vOS")%></font></td> <td align=center><font face="Times new roman"><%=rs("vsoft")%></font></td> <td><% vcome=rs("vcome") thelen=len(vcome) if thelen=0 then Response.Write "" if thelen <= 33 and thelen > 0 then svcome=right(vcome,thelen-6) Response.Write "<a href='" & vcome & "' target='_blank'>" & svcome & "</a>" end if if thelen >= 34 then svcome=left(right(vcome,thelen-6),24) & "..." Response.Write "<a title='" & vcome & "' href='" & vcome & "' target='_blank'>" & svcome & "</a>" end if %></td> </tr> <% rs.movenext if rs.eof then i = i + 1 exit for end if next %> </table> </td> <td width="1" class="backs"></td> </tr> <tr><td colspan="4"><img src="img/photodown.gif"></td></tr> </table> <br> <table width=500 cellspacing=0 align=center cellpadding=0> <form method=post action="tj_all.asp" id=form2 name=form2> <tr><td colspan=3><img src=img/photoup.gif></td></tr> <tr height=65> <td width=1 class=backs></td> <td class=backq width="498"> ∷∷∷ 翻 页 ∷∷∷<br><br> 第<font class="fonts"><%=cstr(curpage)%></font>页 总<font class="fonts"><%=cstr(rs.pagecount)%></font>页 本页<font class="fonts"><%=cstr(i-1)%></font>条 总<font class="fonts"><%=cstr(rs.recordcount)%></font>条 <% wherestr=server.URLEncode(wherestr) if curpage <> 1 then%> <a href="tj_all.asp?page=1&wherestr=<%=wherestr%>"><<首页 </a> <a href="tj_all.asp?page=<%=cstr(curpage-1)%>&wherestr=<%=wherestr%>"><上一页 </a> <%else%> <font color="#888888"><<首页 <上一页</font> <%end if if curpage <> rs.pagecount then%> <a href="tj_all.asp?page=<%=cstr(curpage+1)%>&wherestr=<%=wherestr%>"> 下一页></a> <a href="tj_all.asp?page=<%=cstr(rs.pagecount)%>&wherestr=<%=wherestr%>"> 尾页>></a> <%else%> <font color="#888888">下一页> 尾页>></font> <%end if%> <input type=hidden name=wherestr value="<%=wherestr%>"> <input type=text name='page' size=9 class=input> <input type=submit value=' ' class="backc2"> </td> <td width=1 class=backs></td> </tr> <tr><td colspan=3><img src=img/photodown.gif></td></tr> </form> </table> <br> <% '如果是检索结果,则显示保存数据表单 if wherestr <> "" then wherestr=Request("wherestr") '保存数据表单 if session.Contents("master")=true or whatcan>=6 then %> <table width="500" cellspacing="0" align="center" cellpadding="0" border="0"> <tr><td colspan="3"><img src="img/photoup.gif"></td></tr> <form action="tj_save.asp" method=post id=form1 name=form1> <tr height="30"> <td width="1" class="backs"></td> <td width="498"class="backq"> <font style="font-size:16px"> </font>∷∷∷ 保存这次检索条件 ∷∷∷<br> <p class="p1"><font class="fonts"><b>检索条件</b></font> <%if wherestr="" then%>没有检索条件<%else%><%=wherestr%><%end if%>。 <p class="p1" style='margin-bottom: 0;margin-top: 0;'><font class="fonts"><b>查询项目</b></font> 详细。 <p class="p1" style='line-height: 100%;margin-bottom: 0;margin-top: 0;'><font class="fonts"><b>取个名字</b></font> <input name="name" size="16" class="input"> <INPUT type="radio" name="overwrite" value="0" checked> 同名时提示 <INPUT type="radio" name="overwrite" value="1"> 同名时覆盖 <p class="p1" style='line-height: 100%;margin-bottom: 0;margin-top: 0;'><font class="fonts"><b>加个介绍</b></font> <input name="content" size="50" class="input"> <p class="p1" style='margin-top: 0;' align="right"> <a href="tj_help.asp?id=002">帮助</a> <a href='javascript:document.forms[0].submit();'>保存</a> <input type="hidden" name="wherestr" value="<%=wherestr%>"><input type="hidden" name="outtype" value="详细"><input type="submit" value=" " name="save" class="backc2"><font style="font-size:16px"> </font> </td> <td width="1" class="backs"></td> </tr> </form> <tr><td colspan="4"><img src="img/photodown.gif"></td></tr> </table> <br> <% end if end if %> <% rs.close end if set rs=nothing conn.Close set conn=nothing %> <!--#include file="tj_bottom.asp"--> </body> </html>