动网在程序里添加了一段收集论坛地址、论坛名称、后台密码等9项信息ASP程序,并将这些信息传递回动网。
Response.Write "" End if
Sub footer() Response.Write"" Response.Write "" Response.Write"Dvbbs v7.0 , Copyright (c) 2001-2005 AspSky.Net. All Rights Reserved ." Response.Write"" Response.Write"" Response.Write"" Response.Write "" Dim Yrs,dupack set Yrs=Dvbbs.Execute("select * from Dv_setup") dupack=Split(Yrs("forum_pack"),"|||") If Cint(dupack(0))=0 Then Response.Write "官方讨论区" Else Response.Write "" End if Yrs.close:set Yrs=nothing Response.Write "" %> <% Response.Write "
" Response.Write "