28,390
社区成员
发帖
与我相关
我的任务
分享关于asp中msgbox 的使用问题，请指点下面代码问题在哪里呢？
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>test</TITLE>
</HEAD>
<BODY>
<%
dim cn
set cn=server.CreateObject("adodb.connection")
cn.ConnectionString="driver={sql server};server=server01;uid=sa;pwd=;database=testbase;"
cn.Open
dim sql,rs
sql="select * from table1"
set rs=cn.Execute(sql)
do while not rs.eof
if rs("col2")="lake" then
<script language="vbscript">
<!--
msgbox "Hello"
-->
</script>
loop
%>
<P> </P>
</BODY>
</HTML>
--------------------------------------------------------------------
提示：Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 编译器错误 错误 '800a0400'
缺少语句
/test/t33.asp，行17
<script language="vbscript">
---------------------------------------------------------------------
不明白！
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>test</TITLE>
</HEAD>
<BODY>
<%
dim cn
set cn=server.CreateObject("adodb.connection")
cn.ConnectionString="driver={sql server};server=server01;uid=sa;pwd=;database=testbase;"
cn.Open
dim sql,rs
sql="select * from table1"
set rs=cn.Execute(sql)
do while not rs.eof
if rs("col2")="lake" then
<script language="vbscript">
<!--
msgbox "Hello"
-->
</script>
loop
%>
<P> </P>
</BODY>
</HTML>
--------------------------------------------------------------------
提示：Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 编译器错误 错误 '800a0400'
缺少语句
/test/t33.asp，行17
<script language="vbscript">
---------------------------------------------------------------------
不明白！
...全文
请发表友善的回复…
发表回复
avonqin 2003-10-15
- 打赏
- 举报
if rs("col2")="lake" then
==>if trim(rs("col2"))="lake" then
==>if trim(rs("col2"))="lake" then
lakegogo 2003-10-15
- 打赏
- 举报
OK，好了，谢谢pimple(╭●ò●╮)
lakegogo 2003-10-15
- 打赏
- 举报
TO: pimple(╭●ò●╮)
我按你的做，可提示：
The remote procedure call failed and did not execute.
我按你的做，可提示：
The remote procedure call failed and did not execute.
pimple 2003-10-15
- 打赏
- 举报
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>test</TITLE>
</HEAD>
<BODY>
<%
dim cn
set cn=server.CreateObject("adodb.connection")
cn.ConnectionString="driver={sql server};server=server01;uid=sa;pwd=;database=testbase;"
cn.Open
dim sql,rs
sql="select * from table1"
set rs=cn.Execute(sql)
do while not rs.eof
if rs("col2")="lake" then
%>
<script language="vbscript">
<!--
msgbox "Hello"
-->
</script>
<%
end if
loop
%>
<P> </P>
</BODY>
</HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>test</TITLE>
</HEAD>
<BODY>
<%
dim cn
set cn=server.CreateObject("adodb.connection")
cn.ConnectionString="driver={sql server};server=server01;uid=sa;pwd=;database=testbase;"
cn.Open
dim sql,rs
sql="select * from table1"
set rs=cn.Execute(sql)
do while not rs.eof
if rs("col2")="lake" then
%>
<script language="vbscript">
<!--
msgbox "Hello"
-->
</script>
<%
end if
loop
%>
<P> </P>
</BODY>
</HTML>
pimple 2003-10-15
- 打赏
- 举报
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>test</TITLE>
</HEAD>
<BODY>
<%
dim cn
set cn=server.CreateObject("adodb.connection")
cn.ConnectionString="driver={sql server};server=server01;uid=sa;pwd=;database=testbase;"
cn.Open
dim sql,rs
sql="select * from table1"
set rs=cn.Execute(sql)
do while not rs.eof
if rs("col2")="lake" then
%>
<script language="vbscript">
<!--
msgbox "Hello"
-->
</script>
<%
else
exit do
end if
loop
%>
<P> </P>
</BODY>
</HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>test</TITLE>
</HEAD>
<BODY>
<%
dim cn
set cn=server.CreateObject("adodb.connection")
cn.ConnectionString="driver={sql server};server=server01;uid=sa;pwd=;database=testbase;"
cn.Open
dim sql,rs
sql="select * from table1"
set rs=cn.Execute(sql)
do while not rs.eof
if rs("col2")="lake" then
%>
<script language="vbscript">
<!--
msgbox "Hello"
-->
</script>
<%
else
exit do
end if
loop
%>
<P> </P>
</BODY>
</HTML>
lakegogo 2003-10-15
- 打赏
- 举报
to:pimple(╭●ò●╮) 还是没得行
pimple 2003-10-15
- 打赏
- 举报
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>test</TITLE>
</HEAD>
<BODY>
<%
dim cn
set cn=server.CreateObject("adodb.connection")
cn.ConnectionString="driver={sql server};server=server01;uid=sa;pwd=;database=testbase;"
cn.Open
dim sql,rs
sql="select * from table1"
set rs=cn.Execute(sql)
do while not rs.eof
if rs("col2")="lake" then
%>
<script language="vbscript">
<!--
msgbox "Hello"
-->
</script>
<%
loop
%>
<P> </P>
</BODY>
</HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>test</TITLE>
</HEAD>
<BODY>
<%
dim cn
set cn=server.CreateObject("adodb.connection")
cn.ConnectionString="driver={sql server};server=server01;uid=sa;pwd=;database=testbase;"
cn.Open
dim sql,rs
sql="select * from table1"
set rs=cn.Execute(sql)
do while not rs.eof
if rs("col2")="lake" then
%>
<script language="vbscript">
<!--
msgbox "Hello"
-->
</script>
<%
loop
%>
<P> </P>
</BODY>
</HTML>
lakegogo 2003-10-15
- 打赏
- 举报
问题提示在17行
BingGroup 2003-10-15
- 打赏
- 举报
试一下 用document.write 把脚本语句msgbox 写到客户端
lakegogo 2003-10-15
- 打赏
- 举报
还有个end if 掉了，不好意思
tylike 2003-10-15
- 打赏
- 举报
那不成了死循环了吗？
没有第33行啊
没有第33行啊
lakegogo 2003-10-15
- 打赏
- 举报
loop 前面有个 rs.movenext
我打掉了，呵呵，但问题依旧
我打掉了，呵呵，但问题依旧
