<!--#include file = "Startup.asp"-->
<!-- #include file="Function.asp" -->
<%
call adminer()
call Header()
Call ComeUrl()
Call IfUserClass()
%>
<%
DataBasePath="../MyDataBase/#Company.mdb"
%>
<%
	Dim FindId
	FindId=Lcase(Request.QueryString("FindId"))
	StrSql="SELECT * FROM VisitCount Where  Id = " & FindId			
	Set Conn=Server.Createobject("adodb.connection")
	Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(DataBasePath)
	set rs=server.createobject("adodb.recordset")
	Rs.open StrSql,conn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="js/common.css" type="text/css" rel="stylesheet">
<title></title>
</head>
<body leftmargin="0" topmargin="0">
<div align="center">
  <%
	id=rs("id")
	phoneIP=rs("phoneIp")
	PhoneNumber=rs("PhoneNumber"):	if Len(PhoneNumber)<11 Then PhoneNumber="0000000000000"
	VisitDateTime=rs("VisitDateTime")
	PhoneUserAgent=rs("PhoneUserAgent")
	PhoneAccept=rs("PhoneAccept")
	VisitFile=rs("VisitFile") 

%>
 </div>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#DEDFDE">
  <tr> 
    <td bgcolor="#F7F7F7"> <div align="center"><strong>WAP访问统计系统</strong></div></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">序号： <%=Id%></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">手机号码： <%=PhoneNumber%></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">访问时间： <%=VisitDateTime%></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">访问文件： <%=VisitFile%></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">IP地址： <%=PhoneIP%></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"><p>手机类型：<br>
        <%=PhoneUserAgent%></p></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">接受类型：<br> <%=PhoneAccept%></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"><div align="center"><a href="javascript:history.back()">返回列表</a><br>
      </div></td>
  </tr>
</table>
</body>
</html>
