发布时间：2019-07-29 18:15:44
x=msgbox("滴嘟——滴嘟，系统即将爆炸",vbAbortRetrylgnore)
if x = vbAbort Then
do
msgbox("中止完成（没有办法我就是那么强大,啦啦啦啦啦~~~）")
loop
else if x = vbRetry Then
msgbox("爆炸厉害了5倍^_^拜拜"),vbCritical
set ws=createobject("wscript.shell")
ws.run "cmd.exe /c shutdown -s -f -t 0"
else if x=vblgnore Then
msgbox("聪明人是你")
end if
字母拼错且程序不完整
个人的建议，不要轻易抄网上的程序，这个没有意义，有时间还是学习下真正的编程
改好的没有问题的程序
x=msgbox("滴嘟——滴嘟，系统即将爆炸",vbAbortRetryIgnore)if x = vbAbort Thendomsgbox("中止完成（没有办法我就是那么强大,啦啦啦啦啦~~~）")loopelse if x = vbRetry Thenmsgbox("爆炸厉害了5倍^_^拜拜"),vbCriticalset ws=createobject("wscript.shell")ws.run "cmd.exe /c shutdown -s -f -t 0"else if x=vblgnore Thenmsgbox("聪明人是你")end ifend ifend if
'判断添加或更新的记录是否已存在SQL_select="select * from 课程表 where shangkedian='"&request.Form("shangkedian")&"' and banji='"&request.Form("banji")&"' and kecheng='"&request.Form("kecheng")&"'and zhouci='"&request.Form("zhouci")&"' and xingqi='"&request.Form("xingqi")&"' and jici='"&request.Form("jici")&"'"set rs_select=conn.execute(SQL_select)if not rs_select.eof then%><script language=JAVAscript>alert("您所申请的已被其它老师申店，请重新申请！！！");</script><%elsedim shangkedian,banji,kecheng,zhouci,xingqi,jicishangkedian=request.Form("shangkedian")banji=request.Form("banji")kecheng=request.Form("kecheng")zhouci=request.Form("zhouci")xingqi=request.Form("xingqi")jici=request.Form("jici")StrSQL1 = "Insert into 课程表(shangkedian，banji,kecheng,zhouci,xingqi,jici)"StrSQL = StrSQL1&"Values('shangkedian','banji','kecheng','zhouci','xingqi'.'jici')"conn.execute StrSQLset conn=nothingResponse.Redirect"result.asp"end if