请教一下,JS滚动广告链接数据库问题,我对JS是在不是很懂行

    var pics='js/images/1.jpg|js/images/2.jpg|js/images/3.jpg|js/images/4.jpg|js/images/5.jpg|js/images/6.jpg'
    var links='http://www.elandkey.com|http://www.elandkey.com|http://www.elandkey.com|http://www.elandkey.com|http://www.elandkey.com|http://www.elandkey.com'
    var texts='1|2|3|4|5|6' 替换成文件改为asp文件
<%
'数据库连接
dim conn,connstr
on error resume next

connstr="DBQ="+server.mappath("database.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" '数据库连接地址
Set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr dim picsStr = "var pics='"
dim linksStr = "var links='"
dim textsStr = "var texts='"

set rs = conn.execute("select * from 表")
i = 0
while nor rs eof
i = i + 1
picsStr = picsStr & rs("图片地址") & "|"
linksStr = linksStr & rs("图片链接") & "|"
textsStr = textsStr & i & "|"
rs.movenext
wend

picsStr = mid(picsStr,0,picsStr.length-1)
linksStr = mid(linksStr,0,linksStr.length-1)
textsStr = mid(textsStr,0,textsStr.length-1)

document.write picsStr & "';" &chr(13)&chr(10)
document.write linksStr & "';" &chr(13)&chr(10)
document.write textsStr & "';" &chr(13)&chr(10)
%>

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

如果是浏览者在浏览的同时,动态获取链接地址,需要使用ajax,如果是在客户端每一次打开就更新一次,就在后台程序中,输出脚本
把代码替换掉以后系统说语句未结束是什么意思?<script language="javascript">

</script>
<script language="vbscript">
<%
    '数据库连接on error resume next dim  picsStr = "var pics='"
dim  linksStr = "var links='"
dim  textsStr = "var texts='"

    set rs = conn.execute("select top 5 * from ad where produce_type='幻灯广告' order by produce_id")
    i = 0
    while nor rs eof
        i = i + 1
        picsStr = picsStr & rs("produce_name") & "|"
        linksStr = linksStr & rs("produce_smallpic") & "|"
        textsStr = textsStr & i & "|"
        rs.movenext
    wend

    picsStr = mid(picsStr,0,picsStr.length-1)
    linksStr = mid(linksStr,0,linksStr.length-1)
    textsStr = mid(textsStr,0,textsStr.length-1)

    document.write picsStr & "';" &chr(13)&chr(10)
    document.write linksStr & "';" &chr(13)&chr(10)
    document.write textsStr & "';" &chr(13)&chr(10)
  %>
</script>
<script language="javascript">

</script> dim  picsStr = "var pics='"
dim  linksStr = "var links='"
dim  textsStr = "var texts='"
    报错的位置是这里
晕,vbscript哪来的
document.write picsStr & "';" &chr(13)&chr(10)
    document.write linksStr & "';" &chr(13)&chr(10)
    document.write textsStr & "';" &chr(13)&chr(10)
==>>Response.write picsStr & "';" &chr(13)&chr(10)
Response.write linksStr & "';" &chr(13)&chr(10)
Response.write textsStr & "';" &chr(13)&chr(10)
而且注意你的script标签的language,<script language="vbscript">
==><script language="javascript">
参考dhadshow ver2.5.0
http://www.v-ec.com/dh20156/article.asp?id=98很简单地从数据库获取数据然后实现！
不好意思弄错了注意代码虽在的页面一定是asp文件  ***.asp<script language="javascript">     var focus_width=190
    var focus_height=160
    var swf_height = focus_height+text_height<%
    '数据库连接on error resume next dim  picsStr = "var pics='"
dim  linksStr = "var links='"
dim  textsStr = "var texts='"

    set rs = conn.execute("select top 5 * from ad where produce_type='幻灯广告' order by produce_id")
    i = 0
    while nor rs eof
        i = i + 1
        picsStr = picsStr & rs("produce_name") & "|"
        linksStr = linksStr & rs("produce_smallpic") & "|"
        textsStr = textsStr & i & "|"
        rs.movenext
    wend

    picsStr = mid(picsStr,0,picsStr.length-1)
    linksStr = mid(linksStr,0,linksStr.length-1)
    textsStr = mid(textsStr,0,textsStr.length-1)

    Response.write picsStr & "';" &chr(13)&chr(10)
    Response.write linksStr & "';" &chr(13)&chr(10)
    Response.write textsStr & "';" &chr(13)&chr(10)
  %>    document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
    document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="js/flash/cgal.swf"><param name="quality" value="high"><param name="bgcolor" value="#CCCCCC">');
    document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
    document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
    document.write('<embed src="pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#ffffff" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
    document.write('</object>');    -->
</script>
我确实是用的.ASP文件啊运行以后页面是空白的我在页面查看源文件的时候发现VBscript没有被运行
picsStr
linksStr
textsStr
这三个字符串的值为什么总是空的呢? 我数据库里有值啊
response.write "document.write('"+picsStr&"');"&vbnewline
response.write "document.write('"+linksStr&"');"&vbnewline
response.write "document.write('"+textsStr&"');"&vbnewline
再问一下幻灯广告我做好了但是点击图片的时候跳转地址却有错
我在后台填的是www.123.com
点图片跳出来的是http://www.域名.com/www.123.com 这个是为什么?
在哪里改? 如果把后台填写的时候改成http://www.123.com有效吗?