求ASP高手修改代码。 首页新闻图变换 让其连接指定的页面 而不是一点击跑到新闻内容页
<%
set rsn=server.CreateObject("adodb.recordset")
sqln="select top 6 * from news where indexFlash=1 and n_pic<>'' and Flag=1 order by N_id desc"
rsn.open sqln,conn,1,1
response.Write("<script type=text/javascript"&">") &vbCrLf
dim ya
ya=1
do while not rsn.eof and ya<=6
imageurl="UploadFile/News_Title/" & trim(rsn("N_pic"))&""
response.Write("imgUrl"&ya&"="&chr(34)&imageurl&chr(34)&";")&vbCrLf
response.Write("imgtext"&ya&"="&chr(34)&rsn("N_name")&chr(34)&";") &vbCrLf
'response.Write("imgLink"&ya&"=escape("&chr(34)&"info/"&rsn("N_id")&".html);") &vbCrLf
'response.Write("imgLink"&ya&"=escape("&chr(34)&"#"&chr(34)&");") &vbCrLf
response.Write("imgLink"&ya&"=escape("&chr(34)&"newsshow.asp?id="&rsn("N_id")&"&big="&rsn("N_class")&"&small="&rsn("N_Sortid")&rsn("N_id")&chr(34)&");") &vbCrLf
rsn.movenext
ya=ya+1
loop
rsn.close
response.Write(" var focus_width=614") &vbCrLf
response.Write(" var focus_height=283") &vbCrLf
response.Write(" var text_height=20") &vbCrLf
response.Write(" var swf_height = focus_height+text_height") &vbCrLf
response.Write(" var pics=imgUrl1+""|""+imgUrl2+""|""+imgUrl3+""|""+imgUrl4+""|""+imgUrl5+""|""+imgUrl6") &vbCrLf
response.Write(" var links=imgLink1+""|""+imgLink2+""|""+imgLink3+""|""+imgLink4+""|""+imgLink5+""|""+imgLink6") &vbCrLf
response.Write(" var texts=imgtext1+""|""+imgtext2+""|""+imgtext3+""|""+imgtext4+""|""+imgtext5+""|""+imgtext6") &vbCrLf
response.Write(" 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 +'"">');") &vbCrLf
response.Write(" document.write('<param name=""allowScriptAccess"" value=""sameDomain""><param name=""movie"" value=""images/focus.swf""><param name=""quality"" value=""high""><param name=""bgcolor"" value=""#999999"">');") &vbCrLf
response.Write(" document.write('<param name=""menu"" value=""false""><param name=wmode value=""opaque"">');") &vbCrLf
response.Write(" document.write('<param name=""FlashVars"" value=""pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'"">');") &vbCrLf
response.Write(" document.write('<embed src=""images/focus.swf"" wmode=""opaque"" FlashVars=""pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'"" menu=""false"" bgcolor=""#F0F0F0"" quality=""high"" width=""'+ focus_width +'"" height=""'+ focus_height +'"" allowScriptAccess=""sameDomain"" type=""application/x-shockwave-flash"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" />');") &vbCrLf
response.Write(" document.write('</object>');") &vbCrLf
response.Write(" </script>") &vbCrLf
set rsn=nothing
%>
谢谢各位了 帮帮忙。
指定的图 连接指定的网址！
