Ok... Takker for dem... Har lige været ved at tilføje en log-in del til admins, såde kan tilføje flere søge-objekter til DB'en, men det virker ikke helt... Den kan ikke finde "Tjek_log.asp?mode=TjekObjekt" når den skal tilføje de nye søge-objekter... Hvis du gider at kigge på det, så vil siden være færdig, og jeg smider nogle points til dig...
Koden er her:
<!-- Minus AutoDato -->
<% mode = request("mode") %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Tjek_log.mdb")
%>
<% if mode="" then %>
<%
if request("Loggen") <> "" then
AndetTjek = ""
FejlsikretTjek = ""
myLog = replace(request("Loggen"),chr(34),"")
myLog = replace(myLog,"\u","\\u")
SQL1 = "SELECT * FROM Andet"
set RS1 = Conn.Execute(SQL1)
do while not RS1.eof
if inStr(myLog,RS1("Navn")) > 0 then
AndetTjek = AndetTjek & RS1("Navn") & "<br>"
end if
RS1.moveNext
loop
SQL2 = "SELECT * FROM Fejlsikret"
set RS2 = Conn.Execute(SQL2)
do while not RS2.eof
if inStr(myLog,RS2("Navn")) > 0 then
FejlsikretTjek = FejlsikretTjek & RS2("Navn") & "<br>"
end if
RS2.moveNext
loop
end if
%>
<html>
<head><title>HiJackThis-Log scanner</title>
<script language="javascript">
function ShowResult()
{
if(<%= chr(34) & AndetTjek & chr(34) %> != "")
{
document.getElementById("Result").innerHTML += "Flyt først filen HiJackThis til en mappe oprettet kun til den.<br><br>Kør Hijackthis, scan, sæt flueben ved linierne listet her, luk alle vinduer undtaget Hijackthis,<br>klik på fix checked, genstart i fejlsikret(Tryk F8 under opstart) og slet filerne listet nederst.<br>Dobbelttjek, så alt kommer med.<br><br>" + <%= chr(34) & replace(AndetTjek,"\","\\") & chr(34) %>
}
else
{
document.getElementById("Result").innerHTML += ""
}
if(<%= chr(34) & FejlsikretTjek & chr(34) %> != "")
{
document.getElementById("Result").innerHTML += "<br>---------------------------------------<br>Åbn en mappe, klik på Funktioner=>Mappeindstillinger=>Vis.<br>Fjern flueben ved [Skjul beskyttede operativsystemfiler].<br>Fjern flueben ved [Skjul filtypenavne for kendte filtyper].<br>Sæt prik i [Vis skjulte filer og mapper].<br><br>---------------------------------------<br>Slettes i fejlsikret:<br>" + <%= chr(34) & replace(FejlsikretTjek,"\","\\") & chr(34) %>
document.getElementById("Result").focus()
}
else
{
if(<%= chr(34) & AndetTjek & chr(34) %> == "")
{
document.getElementById("Result").innerHTML += "Din log er ren."
document.getElementById("Result").focus()
}
else
{
document.getElementById("Result").innerHTML += ""
document.getElementById("Result").focus()
}
}
}
</script>
</head>
<body onload="ShowResult()">
<a href="Tjek_log.asp?mode=Admin" target="_self">Tilføj spyware-objekter</a><br>
<br>
Hent programmet HiJackThis <a href="hijackthis.exe" target="_top">her</a> og installér det i en mappe for sig selv.<br><br>Start HiJackThis og lav et "Scan", tryk på "Save Log" og kopier indholdet ind i<br>nedenstående felt og tryk på "Tjek log".<br><br>
<form name="Tjek_Log" action="Tjek_log.asp" method="post">
<textarea name="Loggen" cols="100" rows="20">
</textarea><br>
<input type="submit" value="Tjek log" > <input type="reset" value="reset">
</form><br>
<br>
<div id="Result"></div>
</body>
</html>
<% end if%>
<% if mode = "Error" then %>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
<TITLE>HiJackThis-log scanner</TITLE>
</HEAD>
<BODY>
Det er påkrævet, at De er logget ind for at De kan tilføje til databasen:<br>
<br>
<form method="POST" action="Tjek_log.asp?mode=Signin">
<table border="0" width="250">
<tr>
<td>Brugernavn:</td>
<td><input type="text" name="Brugernavn" size="20"></td>
</tr>
<tr>
<td>Password:</td>
<td><input type="password" name="Password" size="20"></td>
</tr>
<tr>
<td colspan="2"><input type="Submit" value="Log ind" name="Login"> <input type="reset" value="Nulstil" name="Reset"></td>
</tr>
</table>
</form>
</body>
<% end if %>
<% if mode = "Signin" then %>
<%
Session("Brugernavn") = request.form("Brugernavn")
Session("Password") = request.form("Password")
Response.Buffer = True
set tjek = Conn.Execute("SELECT * FROM Brugere WHERE Brugernavn = '"& Session("Brugernavn") &"' AND Password = '"& Session("Password") &"'")
if tjek.EOF then
response.write "<head><meta name=""Generator"" content=""Stone's WebWriter 4""><TITLE>HiJackThis-log scanner</TITLE></HEAD><BODY></script><center><FONT FACE=""Verdana"" SIZE=""4"" COLOR=""#FF0000"">Forkert brugernavn eller password, prøv igen.<br><br><a href=""Tjek_log.asp?mode=Error"" target=""_self"">Tilbage</a></FONT></center></body>"
else
Session("login") = tjek("ID")
Response.Redirect("Tjek_log.asp?mode=Admin")
end if
Function sqlreplace(streng)
sqlreplace = Replace(streng,"''","''")
End Function
REM Diverse funktioner slut
end if
%>
<% if mode = "Admin" then %>
<%
if not Session("login") > 0 then Response.Redirect("Tjek_log.asp?mode=Error")
%>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
<TITLE>HiJackThis-log scanner</TITLE>
<script language="javascript">
function Luk()
{
<% Session("login") = 0 %>
}
</script>
</HEAD>
<BODY onunload="Luk()">
<form method="POST" action="Tjek_log.asp?mode=TjekObjekt" name="Spyware">
<table border="0" width="250">
<tr>
<td>Spyware-Objekt:</td>
<td><input type="text" name="Objektet" size="100"></td>
</tr>
<tr>
<td>Fjernes via:</td>
<td>HiJackThis:<input type="radio" name="Andet"> Fejlsikret<input type="radio" name="Fejlsikret"></td>
</tr>
<tr>
<td colspan="2"><input type="Submit" value="Tilføj" name="Add" onclick="if(document.Spyware.Andet.value == 'Off' && document.Spyware.Fejlsikret.value = 'Off'){alert('Angiv på hvilken måde objektet kan fjernes.')}"> <input type="reset" value="Nulstil" name="Reset"></td>
</tr>
</table>
</form>
</body>
<% end if %>
<% if mode = "TjekObjekt" then %>
<%
Set rs3 = Server.CreateObject("ADODB.RecordSet")
if Request.form("Andet") = "On" then
strSQL = "Select * From Andet WHERE Not Navn='" & Request.form("Andet") & "'"
end if
if Request.form("Fejlsikret") = "On" then
strSQL = "Select * From Fejlsikret WHERE Not Navn='" & Request.form("Fejlsikret") & "'"
end if
rs3.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
if rs3.EOF then
Response.Write "Spyware-objektet findes allerede i databasen"
else
rs3.AddNew
rs3("Navn") = Request.form("Objektet")
rs3.Update
rs3.Close
end if
Response.Redirect("Tjek_log.asp?mode=Admin")
end if
%>
<% if mode = "Sigout" then %>
<%
Session("login") = 0
Response.Redirect("Tjek_log.asp?mode=Admin")
end if
%>
<%
Conn.Close
Set Conn = Nothing
%>
S.R.
