28,390
社区成员
发帖
与我相关
我的任务
分享为何我的asp程序（vbscript）不能用alert和msgbox？详细请进－>
我在服务器端执行的asp程序（默认VBscript）：
用alert "文件夹不存在！"时提示：类型不匹配“alert"
用msgbox "文件夹不存在！"时提示：没有权限‘msgbox’
真是高不明白！！！
用alert "文件夹不存在！"时提示：类型不匹配“alert"
用msgbox "文件夹不存在！"时提示：没有权限‘msgbox’
真是高不明白！！！
...全文
请发表友善的回复…
发表回复
slan 2002-05-18
- 打赏
- 举报
不够可以再加分！
slan 2002-05-18
- 打赏
- 举报
又碰到一个问题（好像好多人遇到）：
点击doc等文档，直接在ie打开，而不能下载？
怎么解决？
点击doc等文档，直接在ie打开，而不能下载？
怎么解决？
slan 2002-05-18
- 打赏
- 举报
to chinaOK:
这种方法在服务端的fuction里面好像不好使耶！
这种方法在服务端的fuction里面好像不好使耶！
ChinaOk 2002-05-18
- 打赏
- 举报
的确。你的编程的思想混淆了。服务器端和客户端是不一样的。
yyuj 2002-05-18
- 打赏
- 举报
可以写成ＨＴＭＬ代码嘛，真是的
BrightEye 2002-05-18
- 打赏
- 举报
概念错误....................
slan 2002-05-18
- 打赏
- 举报
马上就给分！
slan 2002-05-18
- 打赏
- 举报
那如果在服务端的fuction里面要自行alert和msgbox该怎么办？？？
ChinaOk 2002-05-18
- 打赏
- 举报
真的不知道。在vbs里从来没用过。客户端一般都用js
希偌 2002-05-18
- 打赏
- 举报
vbscript也有alert，不会不知道吧！
这个提示框是针对客户端的，在服务器端你能提示给谁看呢？
这个提示框是针对客户端的，在服务器端你能提示给谁看呢？
tripofdream 2002-05-18
- 打赏
- 举报
alert是window对象的方法
slan 2002-05-18
- 打赏
- 举报
非常感谢chinaOK。
希望以后多多指教！
希望以后多多指教！
possible_Y 2002-05-18
- 打赏
- 举报
msgbox,alert都不能在服务器端用的
ChinaOk 2002-05-18
- 打赏
- 举报
alert是浏览器支持的一个方法，和脚本语言无关。
对了。我刚才说的错了。
对了。我刚才说的错了。
ChinaOk 2002-05-18
- 打赏
- 举报
Http://www.chinaok.net/down/vbscript.zip
Http://www.chinaok.net/down/jscript5.zip
vbs,js的中文参考手册。
Http://www.chinaok.net/down/jscript5.zip
vbs,js的中文参考手册。
micher_yan 2002-05-18
- 打赏
- 举报
请贴出你的源程序。
alert是浏览器支持的一个方法，和脚本语言无关。
msgbox是VBScript，需要确定你的用法没有问题
alert是浏览器支持的一个方法，和脚本语言无关。
msgbox是VBScript，需要确定你的用法没有问题
ChinaOk 2002-05-18
- 打赏
- 举报
alert是javascript里的
msgbox是不能再服务器端用的。
只能用在客户端
你可以这样
<%if 不存在 then%>
<script language="vbscript">
msgbox "不存在"
</script>
<%
else
继续吧。
end if
%>
msgbox是不能再服务器端用的。
只能用在客户端
你可以这样
<%if 不存在 then%>
<script language="vbscript">
msgbox "不存在"
</script>
<%
else
继续吧。
end if
%>
应用ASP开发的一个简单学校考试系统
<%
IF Request.QueryString("delid")"" Then
%>
Dim MyVar
MyVar=MsgBox("确定要清空该考生考试资料吗？",4)
if MyVar=vbYes then
alert "考生可以重新参加考试了！"
end if
<%
response.Write "window.open('admin_main.asp?delid=&temp="&now()&"&page="&request.QueryString("page")&"','mainFrame')"
End IF
%>
无标题文档
<%
set rs=server.createobject("adodb.recordset")
sql = "SELECT * from kazl order by ksid asc"
rs.open sql,conn,1,1
rs.pagesize=15
if len(request.QueryString("page"))=0 or cint(request.QueryString("page"))rs.pagecount then
ipage=rs.pagecount
else
ipage=request.QueryString("page")
end if
rs.absolutepage=ipage
%>
班级
学号
姓名
登录地址
分数
操作
重考 合分
第一页 上一页 下一页 最后一页
