ASP广告代码的解决？

ucash

想改变如下的代码，实现网页中嵌入广告的功能

代码如下（部分）：
/ ?- l0 U4 l2 Q( o# C" q. Osub content_down()
if rs("Grade")="0" then
hxGrade="游客身份"
elseif rs("Grade")="1" then
7 y) }, r+ A& ^1 A- x3 bhxGrade="会员身份"
elseif rs("Grade")="2" then
8 D& _- A- i7 E) t) R9 bhxGrade="VIP身份"
, y$ G0 L: W" Rend if
% d- I5 R* f! Q! H0 j  ^0 b. C1 MResponse.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
8 v4 W& a5 K* [) JResponse.Write "<tr>" & vbCrLf
Response.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf
7 E& F4 b& D5 Q- WResponse.Write "</tr>" & vbCrLf
6 j, I5 Z9 _5 Y) [" a7 UResponse.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
Response.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
Response.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
if rs("soft_showpic")<>"http://hx66.net" then
9 U3 e4 e# L9 P$ T7 w5 K) PResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
7 ^6 ~, x5 ~8 j8 ^7 e- Felse
. H3 M& E( U0 K5 B/ ^Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
3 C: f- |4 K3 s5 g* R) ?end if
Response.Write "</tr>" & vbCrLf
# @4 z. q; K; X6 G* E% n7 zResponse.Write "<tr>" & vbCrLf

, t8 f2 U: J. ~; R# e想要实现的网页情况地址：http://www.vip138.com/showdown.asp?soft_id=28

5 E" n; G+ i9 g9 x$ f- Y3 Y2 A想通过修改这段语句：
% h) M+ ~1 z: ?7 ]if rs("soft_showpic")<>"http://hx66.net" then
. a+ V5 e, U0 Q2 @8 Z( J7 ZResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
% a) {" }5 r& u7 M4 xelse
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
3 M2 d- o# k* p4 ]$ U3 Vend if
实现：有图片链接的时候，右侧显示图片，没有图片链接的时候显示以下代码生成的公告

广告代码如下：
<script>
$ j* Y, x  t" T6 Avar YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
YahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
YahooCNADConfig['h']=60
/ C) r/ b  f+ h</script>
! d8 W7 i9 |2 K+ q( [& J1 X<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>

: k- j1 q5 z, t2 A2 z/ q请教如何将广告代码替换部分语句实现这个功能？谢谢

mudone

替换：Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
为：
  q7 M" h) x9 E6 g5 ]Response.Write "<script>" & vbCrLf
Response.Write "var YahooCNADConfig=new Array();" & vbCrLf
Response.Write "YahooCNADConfig['adid']=363" & vbCrLf
Response.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
+ Y! v! d) q1 a9 `: G) m9 D+ cResponse.Write "YahooCNADConfig['w']=141" & vbCrLf
Response.Write "YahooCNADConfig['h']=60" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>" & vbCrLf

ucash

非常感谢，我现在就试下～～～

ucash

非常感谢，PS个问题，如果要加个居中代码该怎么加呢？我模仿了下，好像不行

mudone

<div align="center">xxxxxx</div>