一个参数传递的问题，请高手指教，谢谢！ - ASP技术论坛

得分:0

我把整个代码都贴出来吧：
Sub DePic()
dim pic,links,texts
            set rs=server.CreateObject("adodb.recordset")
            msql="select top 6 * from zhi_rui_e_io where VoticeFlag=1 and BigPic<>'' and AdminName='"&AdminName&"' order by Id desc"
            rs.open msql,conn
            do while not rs.eof
                pic= pic & Trim(rs("BigPic")&"") & "|"
                links="info_Show.asp?InfoId="&rs("ID")&"&ClassId="&rs("ClassId")&"&AdminName="&AdminName & "|"
                texts= texts & left(Trim(rs("InfoName")&""),20) & "|"
                response.Write(links)
                rs.movenext
            loop

            if pic="" then
            pic="images/news.gif"
            else
            if pic<>"" then pic=left(pic,len(pic)-1)
            end if
            if links<>"" then links=left(links,len(links)-1)
            if texts<>"" then texts=left(texts,len(texts)-1)
            If rs.state<>0 Then rs.close
            Set rs=nothing
            Response.Write"<script type='text/javascript'>"
            Response.Write"var swf_width=300;"
            Response.Write"var swf_height=240;"
            Response.Write"var config='3|0xFFFFFF|FD380B|50|0xffffff|0x0099ff|0x000000';"
            Response.Write"var files="""&pic&""";"
            Response.Write"var links="""&links&""";"
            Response.Write"var texts="""&texts&""";"
            Response.Write"document.write('<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://fpdownload.,0,0,0"" width=""'+ swf_width +'"" height=""'+ swf_height +'"">');"
            Response.Write"document.write('<param name=""movie"" value=""images/focus.swf"" />');"
            Response.Write"document.write('<param name=""quality"" value=""high"" />');"
            Response.Write"document.write('<param name=""menu"" value=""false"" />');"
            Response.Write"document.write('<param name=wmode value=""opaque"" />');"
            Response.Write"document.write('<param name=""FlashVars"" value=""config='+config+'&bcastr_flie='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'"" />');"
            Response.Write"document.write('<embed src=""images/focus.swf"" wmode=""opaque"" FlashVars=""config='+config+'&bcastr_flie='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'& menu=""false"" quality=""high"" width=""'+ swf_width +'"" height=""'+ swf_height +'"" type=""application/x-shockwave-flash"" pluginspage=""http://www. />');"
            Response.Write"document.write('</object>');"
            Response.Write"</script>"
End Sub

昨天夜里，小熊坐在狮子身上哭泣，他们告诉我—— 那只蓝色的海豚也在梦里想念你！