ASP广告代码的解决？

ucash

想改变如下的代码，实现网页中嵌入广告的功能
+ ?; C+ p7 D. d1 ?  F+ z; l
' `3 X7 y* z9 r. {# w代码如下（部分）：
4 f0 i9 W9 c5 ~" w$ N! ~* i( Gsub content_down()
" R  c& E5 y- q2 rif rs("Grade")="0" then
) B  s1 P8 M+ y3 T. x+ KhxGrade="游客身份"
' I- [* y; R: @6 g5 u! celseif rs("Grade")="1" then
: T4 @" X# S' e/ y. N. `; D$ rhxGrade="会员身份"
. G& Y2 U* V+ O! v& p# zelseif rs("Grade")="2" then
5 h5 D  q1 h0 Y1 l, }% NhxGrade="VIP身份"
end if
) X& H/ x# N1 E/ VResponse.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
! d2 f% @! B, `( b& w  E- X4 cResponse.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
Response.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
4 H+ k1 P' e. u$ DResponse.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
1 e1 M" }7 E. F/ R, 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
! e0 N+ ?! k+ s* C6 OResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
+ N! V. N6 T- w" |6 ^  _end if
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
0 L  \8 ?( ?) j1 b' e4 u5 z
7 Z1 O  j- d5 O- R/ ]" L: E8 g/ r想要实现的网页情况地址：http://www.vip138.com/showdown.asp?soft_id=28
4 t! Y# _# G2 H5 _) l: V% l
0 D2 X8 b2 I. O8 @0 V; R想通过修改这段语句：
: G+ `' [2 V) G- oif rs("soft_showpic")<>"http://hx66.net" then
. K7 ^0 B7 {% a0 _; ~3 NResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
- X1 a8 I+ @( y/ a, B9 `else
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
. S' H# C' q% K- B+ J  @+ U" T实现：有图片链接的时候，右侧显示图片，没有图片链接的时候显示以下代码生成的公告

+ J' T5 t) g# {/ |广告代码如下：
<script>
var YahooCNADConfig=new Array();
+ O0 |; A9 N6 {6 {. H0 R# BYahooCNADConfig['adid']=363
2 A( g0 w* ?9 j6 Z/ [4 I( X6 ^& SYahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
( x% s0 N0 A) rYahooCNADConfig['h']=60
* Y7 X4 I6 h* t& j& ^  {8 S8 r</script>
1 }% S1 h( f. G8 I% w<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
8 I0 q7 Y4 l# m0 w9 x) }% |. _  u
+ |" k. m" o" A) |& t, z! q0 X; K请教如何将广告代码替换部分语句实现这个功能？谢谢

mudone

替换：Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
$ I0 [8 N5 ?' W为：
Response.Write "<script>" & vbCrLf
, g3 I3 i# j- \4 A  w4 p7 oResponse.Write "var YahooCNADConfig=new Array();" & vbCrLf
Response.Write "YahooCNADConfig['adid']=363" & vbCrLf
Response.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
Response.Write "YahooCNADConfig['w']=141" & vbCrLf
* x# ]8 Q+ K/ q2 D* H; YResponse.Write "YahooCNADConfig['h']=60" & vbCrLf
: B( T' X6 A& ?' jResponse.Write "</script>" & vbCrLf
8 t/ l& n0 o% b  fResponse.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>