ASP广告代码的解决？

ucash

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

7 b( X( x  K; l0 z$ c0 b7 b代码如下（部分）：
/ [1 q' [0 L+ N6 n* A0 w4 dsub content_down()
2 L9 Z$ H- p+ u3 _: Z& u% y( lif rs("Grade")="0" then
hxGrade="游客身份"
* ?2 e0 s$ l' t* }elseif rs("Grade")="1" then
hxGrade="会员身份"
elseif rs("Grade")="2" then
hxGrade="VIP身份"
end if
+ T3 Q/ b5 ?4 d5 P5 [; ?! F# EResponse.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
Response.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
" j5 y% t7 L2 q) W' |/ }# lResponse.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
6 i1 K- h( ~; G- W# FResponse.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
) b  L) |/ [; y- K$ ZResponse.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
Response.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
4 A: g1 N4 v+ {- P  z6 a) s) xelse
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
3 E  X$ I- @1 [1 Q5 L+ Xend if
Response.Write "</tr>" & vbCrLf
0 @9 o5 Z) Q' P8 O2 jResponse.Write "<tr>" & vbCrLf

# b: X7 i) T. n7 U想要实现的网页情况地址：http://www.vip138.com/showdown.asp?soft_id=28

想通过修改这段语句：
9 ^: V6 A; ^% l6 h4 Zif rs("soft_showpic")<>"http://hx66.net" then
Response.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
else
* q- K% z% o, ~3 X1 s: XResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
8 U2 Y( l8 ]5 s/ h4 ?: t8 l0 d/ Yend if
3 y, j7 z4 A/ b. L8 p+ s' q实现：有图片链接的时候，右侧显示图片，没有图片链接的时候显示以下代码生成的公告
3 @, S  x7 u* V0 U4 j$ G9 d
. H) w7 b. p  r  X" ~+ T! ~广告代码如下：
<script>
0 ^2 F6 x) P) O9 U5 r% S- w2 H2 uvar YahooCNADConfig=new Array();
( D1 U+ m" _3 d3 i" o2 F6 JYahooCNADConfig['adid']=363
YahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
YahooCNADConfig['h']=60
1 C3 w/ h  V& [8 s* c. j</script>
# m+ Z8 v  `3 f<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
( z9 a: a) E/ s
请教如何将广告代码替换部分语句实现这个功能？谢谢

mudone

替换：Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
& ~9 X( v8 _& n) C5 E" F为：
% x* A2 z7 X. j& h3 RResponse.Write "<script>" & vbCrLf
; E8 o+ @  s' xResponse.Write "var YahooCNADConfig=new Array();" & vbCrLf
! e) L* A( M- ~- Z7 g' \$ BResponse.Write "YahooCNADConfig['adid']=363" & vbCrLf
8 o; T- E5 V$ S* L% U7 l; z' XResponse.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
  J, t0 T) n$ i0 f' x: gResponse.Write "YahooCNADConfig['w']=141" & vbCrLf
Response.Write "YahooCNADConfig['h']=60" & vbCrLf
$ ?/ v% [1 Y& r  r  X$ y6 g4 G- gResponse.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>