<!--#INCLUDE FILE="config/rose-link-config.asp" --> 
<!--#INCLUDE FILE="config/function.asp" --> 
<!--#INCLUDE FILE="config/top.asp" --> 
<%
	set my_Conn = Server.CreateObject("ADODB.Connection")
	my_Conn.Open strConnString

	dim iFromID , iRecordCount
	dim hour,visitnum(24)
	iFromID=request("from")
	iRecordCount=0
	
	IF iFromID="" THEN
	  iFromID="400"
	  //Response.Write("ں'visitstat.asp?from=400'Ķ,400ԻվID<br>")
	  //Response.End
	END IF

	IF iFromID="689" THEN
	  iFromID="400"
	  Response.End
	END IF

	strSql = "select * from today_all_debarip where fromuserid="
	strSql=strSql & iFromID & " order by visitdate"
	set Rs = my_Conn.Execute(strSql)
	
	Response.Write("Ավܷϵͳ:<br>")
	Response.Write("<font color=red>ԸҳʾĲͬʱܶȵĲͬʶЩԱ</font><br>")
	Response.Write("<table><tr><td>")

	DO WHILE NOT Rs.EOF
	  debarip = Rs("debarip")
	  //visitdate = hour(Rs("visitdate"))
	  //hour = visitdate.toString()
	  fromuserid = Rs("fromuserid")
	  touserid = Rs("touserid")
	  Response.Write(Year(Rs("visitdate")) & "------:" & fromuserid & "--->:" & touserid & "----IP" & debarip & "<br>")
	  //Response.Write(hour & "------:" & fromuserid & "--->:" & touserid & "----IP" & debarip & "<br>")
	  iRecordCount=iRecordCount+1
	  Rs.MoveNext
	LOOP
	
	IF iRecordCount=0 THEN
	  Response.Write("<br>Ա" & iFromID & "Ŀǰûе¼<br>")
 	ELSE
   	  //Response.Write("<br>Ա" & iFromID & " " & iRecordCount & "¼"<br>")
	  Response.Write("<br>Ա" & iFromID & " " & iRecordCount & "¼<br>")
	END IF
	Response.Write("</td></tr></table>")
	Rs.Close

	my_Conn.Close
%>
<div align="center"><form name="form1" method="post" action="visitstat.asp">  
    <div align="center">  
      <center>  
        <table width="328" border="1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bgcolor="#FFFFFF" bordercolor="#CCCCCC">
     	<tr>
	   <td width="36%" align="right" height="20"><font size="2">Ҫ鿴ԱID</font>
             <input type="text" name="from" style="border-style:solid; border-width:1; width:150" class="tx1" size="20">
           </td>
        </tr>              
        <tr> 
            <td align="center" bgcolor="#FFFFFF" height="30"> 
              <input type="submit" name="Submit" value="鿴" class="sb">
              <input type="reset" name="Submit2" value="д" class="sb">
            </td>
         <tr> 
          
        </table>  
      </center>  
    </div>  
</form>   
</div>

<!--#INCLUDE FILE="config/bottom.asp" --> 



