314版随即广告

1，先把压缩包中的ad.js文件打开编辑一下里面的内容，（如果这个都不会，建议不要用）

2，把它放到论坛announce文件夹中

3，修改announce.asp文件

找到这句

<tr><td><%Response.Write "<img src=" & DEF_BBS_HomeUrl & "images/" & GBL_DefineImage & "bf/face" & GetData(9,n) & ".gif align=absbottom width=20 height=20>"
                 Response.Write "发表: " & RestoreTime(GetData(10,n))

在其前面加上

<SCRIPT language=javascript src=ad.js></SCRIPT>

找到

Dim SupervisorFlag
SupervisorFlag = CheckSupervisorUserName
%>

在后面加上

<SCRIPT language=javascript src=ad.js></SCRIPT>


4，接着找到

If DEF_EnableUnderWrite = 0 Then GetData(25,n) = DEF_SiteNameString & "感谢您的参与"
                       If GetData(17,n) = 1 And trim(GetData(25,n)&" ")<>"" Then
                             Response.Write "</td></tr><tr><td width=8><img src=../images/blank.gif width=8 height=2></td><td valign=bottom><br>"
                             Response.Write "<table width=332 border=0 cellspacing=0 cellpadding=0 style='table-layout:fixed; word-break:break-all'><tr><td><img src=../images/" & GBL_DefineImage & "signature.gif width=500 height=17 border=0><br>"
                             Response.Write GetData(25,n)
                             'Response.Write "<br><img src=../images/blank.gif width=2 height=6>"
                             Response.Write "</td></tr></table>"
                       Else
                             Response.Write "<br><img src=../images/blank.gif width=2 height=2>"
                       End If
                 End If
                 %>
                 </td></tr>


接着添加，这段代码有2处

<tr><td height=22 colspan=2><img src=../images/blank.gif width=8 height=2><SCRIPT>adsjs();</SCRIPT></td></tr> 
