'取TM自动登录代码并防止关闭(自动登录)
Dim QQUIN
Set objWMIService = GetObject _
                    ("winmgmts:\\" & "." & "\root\cimv2")
Set ps = objWMIService.ExecQuery _
         ("SELECT * FROM Win32_process")
For Each ps in ps '列出系统中所有..

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile("QQ自动登录.bat", True)
f.WriteLine "@echo off" & vbCrLf

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set ps = objWMIService.ExecQuery("SELECT * ..

dbpath = "www.yongfa365.com.mdb" '数据库路径
Set DB = CreateObject("ADOX.Catalog")
DB.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath)

'向该数据库中建立相应表格
Set ADOXTable = CreateObject("ADOX.Table").....

同一台机器上打开别的网站都正常，打开这个网站显示一片空白，

查看源码可以看到内容，证明网站应该是打开的，

可是为什么不显示呢，

本来想恢复一下系统或找个IE修复的bat,但又想了想还是算了吧，这问题已经是遇到第二次了，得解决呀，
。。。

答:rs.open sql,conn,a,b
A: 
ADOPENFORWARDONLY(=0) 只读,且当前数据记录只能向下移动
ADOPENSTATIC(=3) 只读,当前数据记录可自由移动
ADOPENKEYSET(=1) 可读写,当前数据记录可自由移动
ADOPENDYNAMIC(=2) 可读写,当前数据记录可自由移动,可看到新增记录
B:
ADLOCKREADONLY(=1) 默认值,用来打开只读记录
ADLOCKPESSIMISTIC(=2) 悲观锁定
ADLOCKOPTIMISTIC(=3) 乐观锁定
ADLOCKBATCHOPTIMISTIC(=4) 批次乐观锁定

连接 SQL Server   
"Driver={sql server};server=(local);uid=xmgaxxw;pwd=password;database=databasename"  
连接 ACCESS   
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataBase.mdb"  
连接 Excel
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Excel.xls;Extended Properties=Excel 8.0"
连接 ORACLE   
"Provider=MSDAORA;Password=giap;USER ID=giapuser;Data Source=xmdb;Persist Security Info=True"

网页文件得是UTF-8编码的，可以使用：批量gb2312转utf-8,支持拖动,VBS实现实现<br />
网页的charset要写成UTF-8：charset=utf-8"
如果是ASP文件，codepage:CODEPAGE="65001"
网页所有关联文件编码都参考第一条改成UTF-8编码，包括外部CSS与外部js

用ADODB.Stream代替FSO读写utf-8文件

932 shift_jis 日语 (Shift-JIS)  Japanese (Shift-JIS) 
936 gb2312 简体中文 (GB2312)  Chinese Simplified (GB2312) 
949 ks_c_5601-1987 朝鲜语 Korean 
950 big5 繁体中文 (Big5)  Chinese Traditional (Big5) 
。。。。。。

'/*=========================================================================
' * Intro       把要转换的文件拖到这个文件上，选择源编码与目标编码进行编码批量转换
' * FileName    CodeChange.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/CodeChange.vbs.html
' * LastModify  2007-10-04 14:29:44
' *==========================================================================*/

'/*=========================================================================
' * Intro       拖动所有要转换的utf-8编码文件到这个文件上，程序会将它们自动转换为gb2312编码文件
' * FileName    UTF-8.To.GB2312.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/UTF-8.To.GB2312.vbs.html
' * LastModify  2007-10-04 10:45:30
' *==========================================================================*/

'/*=========================================================================
' * Intro       拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件
' * FileName    GB2312.To.UTF-8.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/GB2312.To.UTF-8.vbs.html
' * LastModify  2007-10-04 10:42:53
' *==========================================================================*/

问题：服务器中毒，一些网站的被加上恶意代码，或用户自己的原因网站上被加上了恶意代码，一般使用正则表达式可以比较容易的处理掉这些代码，但处理过程中会有这种情况：有些用户为了防止ACCESS数据库被非法下载，扩展名改成了.asp，这样问题就来了，病毒或木马一般都是把代码加到.html;.htm;.asp;等文件里，这样一来，扩展名为.asp的ACCESS数据库也就被加上代码了，而我们对文件进行批量替换时也会对这个数据库文件进行操作，导致这个ACCESS数据库文件损坏，直接用软件打开明明可以看到代码，就是不能删除。不知道如何解决，ACCESS数据库上的代码不删除，打开每一个调用数据库的页面都有有病毒，所以必须解决

'/*=========================================================================
' * Intro       直接把要压缩的ACCESS数据库拖到这个文件上,按操作来便可以了
' * FileName    ACCESS数据库压缩.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/item/ACCESS-CompactDatabase-97-2000-2003-yongfa365.html
' * LastModify  2007-09-25 13:27:17
' *==========================================================================*/

Set rs_all = CreateObject("adodb.recordset")
sql_all = "select name from MSysObjects where type=1 and flags=0"
rs_all.Open sql_all, conn, 1, 1