[求助]广告轮显组件问题 - ASP技术论坛

问题点数：0 回复次数：6

[求助]广告轮显组件问题

文本文件8-1.txt
REDIRECT 8-2.asp
WIDTH 240
HEIGUT 60
BORDER 1
*
1.gif
http://www.chinaren.com/
中国人的主页
2
2.gif
http://www.sina.com/
新浪
3
3.gif
http://www.njtu.edu.cn/
北方交通
4
4.gif
http://www.sohu.com/
搜户
2
8-1.asp
<%
Set ad=Server.CreateObject("MSWC.AdRotator")
ad.Clickable=(true)
%>
<%=ad.GetAdvertisement("/1/8-1.txt")%>]
出现错误

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

MSWC.Adrotator 错误 '80004005'

错误，不能装入巡回计划文件

/8-1.asp，行

搜索更多相关主题的帖子: 广告　 sina　组件　新浪　

第 2 楼

得分:0

似乎少了一个参数

第 3 楼

得分:0

用asp除了装上iis还需要装什么组件吗？？
vbscipt==，需要装么？
急求~~~谁知道啊

成功源于执著！！！！

第 4 楼

得分:0

看下这个程序显示数据库数据的第一个成功了第二个就有错误
第一个
<%
set rs=server.createobject("adodb.Recordset")
rs.open"select * from S1","DSN=q1;"%>
姓名为：<%=rs("姓名")%>
年龄为：<%=rs("年龄")%>
工资为：<%=rs("工资")%>
<%rs.close
set rs=nothing
%>
正常显示
姓名为：李明

年龄为：28

工资为：3400
第二个
<%
set rs=server.createobject("adodb.Recordset")
rs.open"select * from S1","DSN=q1;"%>
姓名为：<%=rs("姓名")%>
年龄为：<%=rs("年龄")%>
工资为：<%=rs("工资")%>
<%rs.MoveNext
wend%>
<%rs.close
set rs=nothing
%>
显示为：

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误错误 '800a0400'

缺少语句

/9-12.asp，行8

wend
^
第三个
<%
set cn=server.createobject("adodb.Recordset")
cn.open"DSN=q1;"
strSQL="Insert Into S1(姓名，年龄，工资，电话，地址，出生日期)Values('Jose','34','8000','64455','广州','1960/03/23')"
cn.Execute(strSQL)
%>
<%cn.close
set cn=nothing
%>
显示为
 Microsoft VBScript 编译器错误 错误 '800a03f6' 
缺少 'End' 
/iisHelp/common/500-100.asp，行242 
ADODB.Recordset 错误 '800a0e7d' 
连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。 
/9-13.asp，行3

成功源于执著！！！！

第 5 楼

得分:0

第二个
<%
set rs=server.createobject("adodb.Recordset")
rs.open"select * from S1","DSN=q1;"%>
姓名为：<%=rs("姓名")%>
年龄为：<%=rs("年龄")%>
工资为：<%=rs("工资")%>
<%rs.MoveNext
wend%>======这是什么？？？
<%rs.close
set rs=nothing
%>

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 6 楼

得分:0

我555这个我找出来了
应该是这样的
<%
set rs=server.createobject("adodb.Recordset")
rs.open"select * from S1","DSN=q1;"%>
<%while not rs.EOF%>
姓名为：<%=rs("姓名")%>
年龄为：<%=rs("年龄")%>
工资为：<%=rs("工资")%>
<%rs.MoveNext
wend%>===========这里是个循环
<%rs.close
set rs=nothing
%>

成功源于执著！！！！

第 7 楼

得分:0

第三个也找出来了
因为里边的“，”有的用了中文的了

成功源于执著！！！！