Microsoft VBScript 编译器错误 '800a0400'
缺少语句
\feileni\conn.asp, line 2
代码如下：
'On Error Resume Next
db="/data/#chuange.asp" '数据库
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
Set Rs=Server.CreateObject("ADODB.Recordset")
if err then err.clear
你中了病毒了，我以前从学校拿课件后电脑手机都变成这样了，几乎有半个班的都中了这种病毒。你最好看看你电脑里的文件夹是不是都变成了快捷方式，是不是有些文件夹变成了隐藏文件，通常会伴随这种情况。上网去下载个360杀毒或者金山U盘专杀。360是帮我修电脑的人用的，金山U盘专杀是我一个同学试过无数种杀毒软件后最有用的，基本上可以恢复所有问题。如果杀完毒后还存在隐藏文件，就按以下的操作：先显示所有的文件，在文件夹选项里有取消文件夹隐藏：1.记事本复制粘贴以下内容。@echo off title 修改系统属性和隐藏属性 color f0 mode con: cols=41 lines=25 :start
