动网ASP论坛如何解决BBS贴间广告

问题描述：

我用动网论坛,但想放类似GOOGLE或百度的广告,因为贴间广告设置只允许HTML的,而广告代码却保存在Ad.js文档里,当我插入GOOGLE的广告(JS代码)后,广告无法正常显示,连"确认修改"的按钮也没有了.请高手指点一下,如何解决.
Ad.js代码如下:
<!--
a = 0;if(a==0){a=1}
var slump = Math.random();
var talet = Math.round(slump * (a-1))+1;
function create() {
this.under = ''
}
b = new Array()
for(var i=1; i<=a; i++) { b[i] = new create() }
var visa = "";
document.write(b[talet].under);
//-->

添加广告及处理广告代码的文件ASP代码如下:
<form method=POST action=?action=fucnok>
<%
dim fso1,openfile,tmpstr,tmp,ad_num,ad_i,ad_tmp
set fso1 = server.createobject("scripting.filesystemobject")
Set openfile=fso1.OpenTextFile(Server.MapPath("inc/PostAd.js"))
tmpstr=openfile.readall
tmp=split(tmpstr,chr(13)&chr(10))
ad_num=replace(tmp(1),"a = ","")
ad_num=int(replace(ad_num,";if(a==0){a=1}",""))
for ad_i=1 to ad_num
ad_tmp=replace(tmp(ad_i+8),"b["&ad_i&"].under =","")
ad_tmp=replace(ad_tmp,"'","")
response.write"<tr><td width=40% class=a3></td><td width=60% class=a3><textarea rows=5 cols=75 name=ad_v"&ad_i&" style='font-family: 宋体; font-size: 10pt'>"&ad_tmp&"</textarea><br>显示效果："&ad_tmp&"</td></tr>"
next
openfile.close
set fso1=nothing
%>
<tr>
<td width="100%" class="a2" colspan="2" height="25">
</td>
</tr>
<tr>
<td width="40%" class="a3">
增加广告：</td>
<td width="60%" class="a3">
<textarea row=3 cols=75 name=ad_v<%=ad_num+1%> rows="5" style="font-family: 宋体; font-size: 10pt"></textarea></td>
</tr> <tr>
<td width="100%" class="a3" colspan="2" height="35" align="center">
<input type="submit" value=" 确 认 修 改 " name="B1"></td>
</tr>
</table></div>
</form>

<%
if Request("action")="fucnok" then
dim adv_num,ad_msg
set fso1 = server.createobject("scripting.filesystemobject")
Set openfile=fso1.OpenTextFile(Server.MapPath("inc/Ad.js"))
tmpstr=openfile.readall
tmp=split(tmpstr,chr(13)&chr(10))
ad_num=replace(tmp(1),"a = ","")
ad_num=int(replace(ad_num,";if(a==0){a=1}",""))
openfile.close
set fso1=nothing
adv_num=0
for ad_i=1 to ad_num+1
ad_tmp=replace(request.form("ad_v"&ad_i&""),"'","")
if trim(ad_tmp)<>"" or isnull(ad_tmp)then
adv_num=adv_num+1
ad_msg=ad_msg&"b["&adv_num&"].under ='"&ad_tmp&"'"&vbcrlf
end if
next
dim objFSO,objname
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objname=objFSO.CreateTextFile(Server.MapPath("inc/Ad.js"),True)
objname.Write"<!--"&vbcrlf&"a = "&adv_num&";if(a==0){a=1}"&vbcrlf&"var slump = Math.random();"&vbcrlf&"var talet = Math.round(slump * (a-1))+1;"&vbcrlf&"function create() { "&vbcrlf&"this.under = '' "&vbcrlf&"}"&vbcrlf&"b = new Array() "&vbcrlf&"for(var i=1; i<=a; i++) { b[i] = new create() } "&vbcrlf&ad_msg&"var visa = """";"&vbcrlf&"document.write(b[talet].under); "&vbcrlf&"//-->"
objname.close
set objfso=nothing
response.redirect"PostAd.Asp"
end if
%>

问题解答：

动网ASP论坛如何解决BBS贴间广告这个旅游问答期待您的解答，请登录账号或关注微信公众号回答这个问题。