像csdn图片轮换,该怎么解决

像csdn图片轮换
我想做像csdn图片轮换，我是像小山老师博客里那样子做的，但为什么加载javascript提示缺少十六进制数字
。。。。。。。。。。。。。。。。。。。。

<script>
                        <!--
                        <%=LoadImage()%> //从数据库加载
                       
                        var   step=0;
                        function   slideit(){
                                var   oImg   =   document.getElementById( "javascript.img ");
                                if   (document.all){oImg.filters.blendTrans.apply();}
                                oImg.src=ImgSrc[step];
                                document.getElementById( "javascript.a ").href=ImgHerf[step];
                                oImg.title=ImgAlt[step];
                                if   (document.all){oImg.filters.blendTrans.play();}
                                step   =   (step <(ImgSrc.length-1))?(step+1):0;
                                (new   Image()).src   =   ImgSrc[step];//加载下一个图片
                        }
                        setInterval( "slideit() ",5000);
                        //-->
</script>

  Function   LoadImage()   As   String
                Dim   sql   As   String   =   "select   *   from   ImageChange "
                Dim   ds   As   DataSet
                ds   =   ReturnDataset(sql)
                Dim   img   As   String   =   " "

                For   m   As   Integer   =   0   To   ds.Tables(0).Rows.Count   -   1
                        img   +=   "var   ImgSrc   =   new   Array(); "
                        '图片地址  
                        img   &=   "ImgSrc[ "   &   m   &   "]   =   "   &   " " " "   &   ds.Tables(0).Rows(m).Item( "DisplayImage ").ToString()   &   " " "; "

                        img   &=   "for   (var   i=0;i <ImgSrc.length;i++){(new   Image()).src   =   ImgSrc[i];} "
                        '预加载图片  
                        img   +=   "var   ImgAlt   =   new   Array(); "
                        '鼠标放上去显示的文字  
                        img   &=   "ImgAlt[ "   &   m   &   "]   =   "   &   " " " "   &   ds.Tables(0).Rows(m).Item( "Description ").ToString()   &   " " "; "

                        img   +=   "var   ImgHerf   =   new   Array(); "
                        '链接  
                        img   &=   "ImgHerf[ "   &   m   &   "]   =   "   &   " " " "   &   ds.Tables(0).Rows(m).Item( "URL ").ToString()   &   " " "; "
                Next
                Return   img


[解决办法]
sf
[解决办法]
q
q
[解决办法]
只要sf~谢谢！
[解决办法]
VB不会，谢谢
[解决办法]
出错的位置在哪？alert一下阿
[解决办法]
up
[解决办法]
up
[解决办法]
把生成的javascript脚本帖出来....服务端代码是不需要的...如果这个不会的话

非常简单,生成的页面点右键查看源文件就好了
[解决办法]
家里有个控件，你要不。
本人邮箱：yimengsoft◎126.com