WIN7开机出现Microsoft VBScript 编译器错误
1、到“我的电脑” -> “工具” -> “文件夹选项” -> “查看”，检查一下是否已经勾选：“在登陆时还原上一个文件夹窗口”
2、当然，也不排除病毒的可能。如果msonfig里面没有的话，可以这样看看：(自动打开"C:\Windows\System32"或“%SystemRoot%\System32”)
a,“系统配置使用程序”中打开“Autoexec.bat”标签页，检查其中有无"C:\Windows\System32"或“%SystemRoot%\System32”项，如果有，请把该项前面小筐内的“√”去掉
b,选择“svstem”标签页，打开节标题“boot”，检查第一行“shell”中有无"C:\Windows\System32"或“%SystemRoot%\System32”，如果有，进入编辑状态将它删除。
c,选择“Win.ini”标签页，打开节标题“Windows”检查设置行“load=”和run=”中有无"C:\Windows\System32"或“%SystemRoot%\System32”，如果有，进入编辑状态将它删
d,有没有安装Windows优化大师并选择了“启动系统为桌面和Explorer创建独立的进程”项？有的话取消。
e,查一下C盘根目录下有没有Autoexec.bat的批处理文件，若的话删掉。
另外要注意查一下毒。
f,还不行就看看注册表的\software\microsoft\windows\currentVersion\run
注：上注册表有两个HKCU和HKLM
vb中缺少语句结束是什么意思
vb中缺少语句结束的意思是说语法不对引起语句不匹配或者语句没有写完整导致编译器无法找到结束语句符。需要将 fase 改成Falseelse 改成 ElseIf过程最后缺End Sub最后，如果输入非数字的话始终会弹出 --"父亲的身高不能小于等于0!" 的对话框，因为Val参数为非数字时始终返回0。扩展资料对象与类对象（Object）Visual Basic.NET 具有“面向对象”的特性，Visual Basic.NET 应用种程序的基本单元是对象，用 Visual Basic.NET 编程就是用“对象”组装程序。这种“面向对象”的编程方法与传统的全部用代码编制程序的方法有很大区别，就像用集成电路芯片组装电视机和用三极管，二极管组装电视机的区别一样。显然，“面向对象”的编程方法比传统的编程方法更简单，更方便，并且编写出的程序也更加稳定。因此，“对象”可以被看做 Visual Basic.NET 程序设计的核心。在 Visual Basic.NET程序设计中，对象中还可以包含头，手，腿，脚等部位，其中的每个部位又可以单独作为作为被研究的对象。在 Visual Basic.NET程序设计中，整个应用程序就是一个对象，应用程序中又包含着窗体（Form），命令按钮（Command），菜单（Menu）等对象。类（Class）在 Visual Basic.NET中，对象是由类创建的，因此对象可以说是类的具体实例，这就好比是蛋糕和做蛋糕的模具之间的关系。各种不同的对象分属于各种不同的种类。同一类对象可能具有一些不同的特征（或是说同一类对象不一定具有完全相同的特性）；具有某些相同的特性的对象，不一定是同一类对象。参考资料来源：百度百科-Visual Basic
ASP老是提示语句未结束
<%
bj=request("bj")
shxs1=request("shxs1")
shxs2=request("shxs2")
shxs3=request("shxs3")
shxs4=request("shxs4")
shxs5=request("shxs5")
shxs6=request("shxs6")
shxs7=request("shxs7")
shxs8=request("shxs8")
shxs9=request("shxs9")
shxs10=request("shxs10")
shxs11=request("shxs11")
shxs12=request("shxs12")
shxs13=request("shxs13")
shxs14=request("shxs14")
shxs15=request("shxs15")
shxs16=request("shxs16")
shxs17=request("shxs17")
shxs18=request("shxs18")
shxs19=request("shxs19")
shxs20=request("shxs20")
cjysj1=request("cjysj1")
cjysj2=request("cjysj2")
cjysj3=request("cjysj3")
cjjbj1=request("cjjbj1")
cjjbj2=request("cjjbj2")
cjjbj3=request("cjjbj3")
xjdzj1=request("xjdzj1")
xjdzj11=request("xjdzj11")
xjdzj2=request("xjdzj2")
xjdzj22=request("xjdzj22")
xjdzj3=request("xjdzj3")
xjdzj33=request("xjdzj33")
a1=request("hbxjfz1")
a2=request("hbxjfz2")
aqxws1=request("aqxws1")
aqxws2=request("aqxws2")
Set newconn=server.CreateObject("adodb.connection")
dbpath=server.MapPath("member.mdb")
newconn.open "driver={microsoft access driver (*.mdb)};DBQ="&dbpath
sqlcmd="update member set bj='"&bj&"',shxs1='"&shxs1&"',shxs2='"&shxs2&"',"
sqlcmd=sqlcmd & "shxs3='"&shxs3&"',shxs4='"&shxs4&"',shxs5='"&shxs5&"',"
sqlcmd=sqlcmd & "shxs6='"&shxs6&"',shxs7='"&shxs7&"',shxs8='"&shxs8&"',"
sqlcmd=sqlcmd & "shxs9='"&shxs9&"',shxs10='"&shxs10&"',shxs11='"&shxs11&"',"
sqlcmd=sqlcmd & "shxs12='"&shxs12&"',shxs13='"&shxs13&"',shxs14='"&shxs14&"',"
sqlcmd=sqlcmd & "shxs15='"&shxs15&"',shxs16='"&shxs16&"',shxs17='"&shxs17&"',"
sqlcmd=sqlcmd & "shxs18='"&shxs18&"',shxs19='"&shxs19&"',shxs20='"&shxs20&"',"
sqlcmd=sqlcmd & "cjyxj1='"&cjyxj1&"',cjyxj2='"&cjyxj2&"',cjyxj3='"&cjyxj3&"',"
sqlcmd=sqlcmd & "xjdzj1='"&xjdzj1&"',xjdzj11='"&xjdzj11&"',xjdzj2='"&xjdzj2&"',"
sqlcmd=sqlcmd & "xjdzj22='"&xjdzj22&"',xjdzj3='"&xjdzj3&"',xjdzj33='"&xjdzj33&"',"
sqlcmd=sqlcmd & "hbxjfz1='"&a1&"',hbxjfz2='"&a2&"',aqxws1='"&aqxws1&"',"
sqlcmd=sqlcmd & "aqxws2='"&aqxws2&"' where bj='"&bj&"'"
newconn.execute(sqlcmd)
%>
您的资料已经填写完成，如有错误请再次填写后提交或到学校信息技术老师处更改，谢谢！
返回学校首页
这样
我写的vbs没错误啊，怎么显示语句未结束？哪位大侠来帮忙~
msgbox "上课啦！"
wscript.sleep 24000000
msgbox "下课拉！"
wscript.sleep 5000
if msgbox("你想拖堂吗？",vbyesno)=vbyes then
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 50 -c 叫你拖堂，关机了吧~",,true
else
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 50 -c 不拖堂，那就关机吧~",,true
end if