| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 686 人关注过本帖
标题:求救~~~为什么VBSCRIPT输出javascript是不对的
只看楼主 加入收藏
xtzl130
Rank: 1
来 自:北京
等 级:新手上路
帖 子:167
专家分:0
注 册:2005-11-24
收藏
 问题点数:0 回复次数:4 
求救~~~为什么VBSCRIPT输出javascript是不对的

VBscript怎么与JAVAscript混合使用.我的意思是说:VBscript输出JAVAscript脚本 怎么我弄不对呀!
<%
set mycon=server.CreateObject("adodb.connection")
constr="dbq=" &server.MapPath("shipin.mdb") &";driver={microsoft access driver (*.mdb)}"
mycon.open constr
sql="select NUMB,NAME1,NAME2 from photo"
dim rs
set rs=mycon.execute(sql)
do while not rs.Eof

response.Write("<SCRIPT language=JavaScript> bannerAD[" & Cstr(Cint(rs("NUMB"))-1) & "]=video/" & rs("NAME2") & "; </script>")
response.Write("<SCRIPT language=JavaScript> bannerADlink[" & Cstr(Cint(rs("NUMB"))-1) & "]=video/" & rs("NAME1") & ";</script>")

rs.MoveNext
Loop
%>

????????????????

搜索更多相关主题的帖子: VBSCRIPT javascript mycon 
2005-11-28 17:53
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
少了两个引号
response.Write("<SCRIPT language=JavaScript>bannerAD[" & Cstr(Cint(rs("NUMB"))-1) & "]='video/" & rs("NAME2") & "'; </script>")

天津网站建设 http://www./
2005-11-28 21:43
xtzl130
Rank: 1
来 自:北京
等 级:新手上路
帖 子:167
专家分:0
注 册:2005-11-24
收藏
得分:0 
  • 错误类型:
    Active Server Pages, ASP 0138 (0x80004005)
    Script 块不能放在另一个 Script 块内。
    /ms1.asp, 第 349 行

  • 浏览器类型:
    Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

  • 网页:
    GET /ms1.asp

    还是出现这种错误

    谢谢你楼住

    希望你能再帮帮我

  • 努力争取属于自己的一切!!!
    2005-11-29 12:33
    xtzl130
    Rank: 1
    来 自:北京
    等 级:新手上路
    帖 子:167
    专家分:0
    注 册:2005-11-24
    收藏
    得分:0 

    我写这段代码的目的就是从库中读数据并输出为以下的

    <script language="javascript">
    bannerAD[0]="video/bannerbg01.jpg";
    bannerADlink[0]="video/1b.jpg";
    bannerAD[1]="video/bannerbg02.jpg";
    bannerADlink[1]="video/2b.jpg";
    bannerAD[2]="video/bannerbg03.jpg";
    bannerADlink[2]="video/3b.jpg";
    bannerAD[3]="video/bannerbg04.jpg";
    bannerADlink[3]="video/4b.jpg";
    bannerAD[4]="video/bannerbg05.jpg";
    bannerADlink[4]="video/5b.jpg";
    bannerAD[5]="video/bannerbg06.jpg";
    bannerADlink[5]="video/6b.jpg";
    bannerAD[6]="video/bannerbg07.jpg";
    bannerADlink[6]="video/7b.jpg";
    bannerAD[7]="video/bannerbg08.jpg";
    bannerADlink[7]="video/8b.jpg";
    bannerAD[8]="video/bannerbg09.jpg";
    bannerADlink[8]="video/9b.jpg";
    bannerAD[9]="video/bannerbg10.jpg";
    bannerADlink[9]="video/10b.jpg";
    bannerAD[10]="video/bannerbg11.jpg";
    bannerADlink[10]="video/11b.jpg";
    bannerAD[11]="video/bannerbg12.jpg";
    bannerADlink[11]="video/12b.jpg";
    bannerAD[12]="video/bannerbg13.jpg";
    bannerADlink[12]="video/13b.jpg";
    bannerAD[13]="video/bannerbg14.jpg";
    bannerADlink[13]="video/14b.jpg";
    bannerAD[14]="video/bannerbg15.jpg";
    bannerADlink[14]="video/15b.jpg";
    bannerAD[15]="video/bannerbg16.jpg";
    bannerADlink[15]="video/16b.jpg";
    </script>


    努力争取属于自己的一切!!!
    2005-11-29 12:37
    阳光白雪
    Rank: 7Rank: 7Rank: 7
    等 级:贵宾
    威 望:39
    帖 子:2220
    专家分:0
    注 册:2005-11-18
    收藏
    得分:0 
    <%
    set mycon=server.CreateObject("adodb.connection")
    constr="dbq=" &server.MapPath("shipin.mdb") &";driver={microsoft access driver (*.mdb)}"
    mycon.open constr
    sql="select NUMB,NAME1,NAME2 from photo"
    dim rs
    set rs=mycon.execute(sql)
    %>
    <SCRIPT language=JavaScript>
    <%
    do while not rs.Eof
    %>
    bannerAD[<%=Cstr(Cint(rs("NUMB"))-1)%>]="video/<%=rs("NAME2")%>"
    bannerADlink[<%=Cstr(Cint(rs("NUMB"))-1)%>]="video/<%=rs("NAME1")%>"
    <%
    rs.MoveNext
    Loop
    %>
    </script>

    专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
    2005-11-29 12:57
    快速回复:求救~~~为什么VBSCRIPT输出javascript是不对的
    数据加载中...
     
       



    关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

    编程中国 版权所有,并保留所有权利。
    Powered by Discuz, Processed in 0.017431 second(s), 7 queries.
    Copyright©2004-2024, BCCN.NET, All Rights Reserved