你知道ADO控件和DATA控件有冲突吗？试一试下面的例子：
DimdbAsDatabase
DimrsAsRecordset
Setdb=OpenDatabase("d:\stock\yline.mdb")
Setrs=db.OpenRecordset("selectcount(*)astotalcountfromylinewhere条件")***
MsgBox(rs(0))
rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing
‘注明，这个例子在一般情况下运行正常
只有当一个FROM中已有ADO控件，你运行上面的例子
程序就会在***处的语句中出现实时错误'13'，类型不匹配的错误
这就是ADO控件和DATA控件的冲突，如果你想共存的话，下面的对你就有用了好多直接在服务器上将所有文件包括程序，图片等文件封装到mdb，就需要下面这个文件了
Dimrs,ws,fso,conn,stream,connStr,theFolder
Setrs=CreateObject("ADODB.RecordSet")
Setstream=CreateObject("ADODB.Stream")
Setconn=CreateObject("ADODB.Connection")
Setfso=CreateObject("Scripting.FileSystemObject")
dbname=inputbox("请输入数据库名称,数据库必须和本程序在同一目录","mc打包解压脚本")
connStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&dbname&";"
conn.OpenconnStr
rs.Open"select*from[filedata]",conn,1,1
stream.Open
stream.Type=1
OnErrorResumeNext
DoUntilrs.Eof
theFolder=Left(rs("path"),InStrRev(rs("path"),""))
Iffso.FolderExists(theFolder)=FalseThen
createFolder(theFolder)
EndIf
stream.SetEos()
stream.Writers("file")
stream.SaveToFilestr&rs("path"),2
rs.MoveNext
Loop
rs.Close
conn.Close
stream.Close
Setws=Nothing
Setrs=Nothing
Setstream=Nothing
Setconn=Nothing
Wscript.Echo"所有文件释放完毕!"
SubcreateFolder(path)
Dimi
i=Instr(path,"")
DoWhilei>0
Iffso.FolderExists(Left(path,i))=FalseThen
fso.CreateFolder(Left(path,i-1))
EndIf
IfInStr(Mid(path,i+1),"")Then
i=i+Instr(Mid(path,i+1),"")
Else
i=0
EndIf
Loop
EndSub
ColNameHeader＝True
MaXSCanRows＝0
将指示MicrosoftJet用表中第一行的数据来确定字段名称，而且扫描整个文件来确定所用的数据类型
结帖 thank you you...
这里给出一种变通的方法
1、将下面代码保存为vbs文件
2、将上面的脚本放到计划任务中去，每隔十分钟运行一次；
3、这个方法的原理很简单，如果有用户连接进入的话，那么总的会话数将大于1，此时提示报警
二.用数据库程序Access(Office组件之一)建立一个名为address的数据库，表名为net，主字段名为netaddress
？
注意：据说，当爱斯基摩人老得不中用的时候，他们会被抛弃在大块浮冰上任其自生自灭
Set oIE=CreateObject("InternetExplorer.Application")
oIE.Navigate ""
Do
WScript.Sleep 200
Loop Until Not oIE.Busy And oIE.ReadyState=4
'下面你可以把它写到文件里面去，Adodb.Stream和Scripting.FileSystemObject都可以
WScript.echo "<HTML>" & oIE.Document.body.OuterHTML & _
"</HTML>"
oIE.Quit
Set oIE=Nothing
文学格式'makeanewproject;twoforms
'onform1acommandbutton
'putthecodeintherightplaces
'pressF5
SubForm2_load()
'intheform2_loadevent
'besuretomaketheform2smallerthenform1!
lngOrigParenthWnd=SetWindowWord(Me.hwnd,-8,mdiMain.hwnd)
EndSub
PrivateSubForm_Unload(CancelAsInteger)
'intheform2_unloadevent
DimlngResult&
lngResult=SetWindowWord(Me.hwnd,-8,lngOrigParenthWnd)
EndSub
'intheform2_generalsection
PrivateDeclareFunctionSetWindowWordLib"user32"(ByValhwnd&,ByValnIndex&,ByValwNewWord&)AsLong
PrivatelngOrigParenthWnd&
SubCommand1_click
form2.Show
EndSub->
report2=report2 & "<table width=""100%"" border=""1"" bordercolor=""blue"" style=""padding:5px;line-height:170%;clear:both;font-size:12px;word-break:break-all"">"
report2=report2 & "<tr>"
report2=report2 & "<td width=""20%"">文件路径</td>"
report2=report2 & "<td width=""20%"">特征码</td>"
report2=report2 & "<td width=""40%"">描述</td>"
report2=report2 & "<td width=""20%"">创建/修改时间</td>"
report2=report2 & "</tr>"
report2=report2 & "<p>"
report2=report2 & report
report2=report2 & "</p>"
report2=report2 & "</table><hr><script src="
report2=report2 & "<div align=center>powered by <a href="""" target=_blank>0x54.org</a></div>"
report2=report2 & "</body></html>"
Call WriteToFile()
Else
Call ShowHelp()
End If
Sub ShowInfo()
HelpStr=HelpStr & "=====＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====" & vbcrlf
HelpStr=HelpStr & "=====欢迎使用雷客图 ASP 站长安全助手vbs版=====" & vbcrlf
HelpStr=HelpStr & "=====之 检查ASP木马=====" & vbcrlf
HelpStr=HelpStr & "=====Author: lake2=====" & vbcrlf
HelpStr=HelpStr & "=====Email:lake2@mail.csdn.net=====" & vbcrlf
HelpStr=HelpStr & "=====欢迎访问 得到更多信息=====" & vbcrlf
HelpStr=HelpStr & "=====＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====" & vbcrlf
HelpStr=HelpStr & vbcrlf
WScript.Echo HelpStr
End Sub
Sub ShowHelp()
HelpStr=HelpStr & "#用法: CScript Scan.vbs [扫描路径] [结果HTM文件路径]" & vbcrlf
HelpStr=HelpStr & "#例子: CScript Scan.vbs d:\Web f:\my\report.html" & vbcrlf
HelpStr=HelpStr & vbcrlf
WScript.Echo HelpStr
End Sub
Sub CheckArg(arg)
tmpPath=arg
tmpPath2=Left(WScript.Arguments.Item(1), InStrRev(WScript.Arguments.Item(1),"")-1)
Set objFSO=WScript.CreateObject ("Scripting.FileSystemObject")
If Not objFSO.FolderExists(tmpPath2) Then
WScript.Echo "Error：错误的路径“" & tmpPath2 & "”。
