Her er koden, kan i se om det ser fornuftigt ud:
<%Server.ScriptTimeout=4000%>
<html>
<head>
<title>:-)</title>
</head>
<BODY BGCOLOR="lightblue" TEXT="black" LINK="blue" ALINK="red" VLINK="navy">
<FONT FACE="verdana,arial,helvetica">
<A HREF="Default.asp">Find</A> <A HREF="Insert.asp">Insert</A> <A HREF="ProxyLog.asp">WEB Proxy Log</A> <A HREF="WinSockLog.asp">WinSock Proxy Log</A> <A HREF="Kontakt.asp">Kontakt</A> <A HREF="/stat/">Stat Admin</A>
<P>
<B><%=time()%> WinSock Proxy Log<BR>
<P>
<P>
Online users : <%=Application("NumbersOnline")%>
<P>
<div align="left">
<table border="0" cellspacing="0" width="654" height="150">
<tr>
<td width="200">
<FORM ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>" METHOD="get" id=form1 name=form1>
IP Address
<INPUT TYPE="text" NAME="FindIP" VALUE="<%=request("FindIP")%>" SIZE="20">
</td>
<td width="200">
User Name
<INPUT TYPE="text" NAME="FindUsr" VALUE="<%=request("FindUsr")%>" SIZE="20">
</td>
<td width="200">
Destination Host (Name)
<INPUT TYPE="text" NAME="DestHN" VALUE="<%=request("DestHN")%>" SIZE="20">
</td>
</tr>
<tr>
<td width="200">
Destination Host (IP)
<INPUT TYPE="text" NAME="DestIP" VALUE="<%=request("DestIP")%>" SIZE="20">
</td>
<td width="200">
Destination Host (Port)
<INPUT TYPE="text" NAME="DestPort" VALUE="<%=request("DestPort")%>" SIZE="20">
</td>
<td width="200">
Client Agent
<INPUT TYPE="text" NAME="ClientAgent" VALUE="<%=request("ClientAgent")%>" SIZE="20">
</td>
</tr>
<tr>
<td width="200">
<INPUT TYPE="submit" VALUE="Find" id=submit1 name=submit1>
</FORM>
</td>
</tr>
</table>
</div>
<%
dim FindIP, FindUsr, DestHN, DestIP, DestPort, ClientAgent
FindIP = request("FindIP")
FindUsr = request("FindUsr")
DestHN = request("DestHN")
DestIP = request("DestIP")
DestPort = request("DestPort")
ClientAgent = request("ClientAgent")
If FindIP <> "" Or FindUsr <> "" Or DestHN <> "" Or DestIP <> "" Or ClientAgent <> "" Or DestPort <> "" Then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DSN=DSN;UID=UID;PWD=PWD;DATABASE=IIS-Proxy;"
SQL = "select * from MspWinSockLog where ClientIP Like '%" & FindIP & "%' And ClientUserName Like '%" & FindUsr & "%' And DestHost Like '%" & DestHN & "%' And DestHostIP Like '%" & DestIP & "%' And DestHostPort Like '%" & DestPort & "%' And ClientAgent Like '%" & ClientAgent & "%' Order By ClientIP Desc"
Response.Write(SQL)%>
<P>Du søgte efter <%Response.Write(FindIP & UserName)%><BR>
Her er dine resultater:
<P>
<div align="left">
<table border="1" cellspacing="0" width="100%">
<tr>
<td width="227">Log Time</td>
<td width="227">User Name</td>
<td width="227">Client Agent</td>
<td width="227">Destination Host (name)</td>
<td width="227">Destination Host (ip)</td>
<td width="227">Destination Host (port)</td>
</tr>
</table>
<%
Set rs = myConn.Execute(SQL)
If rs.EOF Then
Response.Write("No results found!")
End If
While Not rs.EOF%>
<div align="left">
<table border="1" cellspacing="0" width="100%">
<tr>
<td width="227"><%Response.Write rs("LogTime")%></td>
<td width="227"><%Response.Write rs("ClientUserName")%></td>
<td width="227"><%Response.Write rs("ClientAgent")%></td>
<td width="227"><%Response.Write rs("DestHost")%></td>
<td width="227"><%Response.Write rs("DestHostIP")%></td>
<td width="227"><%Response.Write rs("DestHostPort")%></td>
<%
ResultNr = ResultNr + 1
rs.MoveNext
Wend
rs.Close
Set rs = Nothing%>
</tr>
</table>
<P>
<%
Response.Write("Antal resultater i SQL query: " & ResultNr)
myConn.Close
Set myConn = Nothing
End If
%>
</html>
Ny bruger
Nybegynder
Opret
Preview
