ASP广告代码的解决？

ucash

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

& e8 b5 K, T# |% p( N$ j, W' d9 @代码如下（部分）：
! D' Y7 l/ T+ m1 S* I: k6 {sub content_down()
if rs("Grade")="0" then
9 }' [, {2 v/ O6 U1 BhxGrade="游客身份"
elseif rs("Grade")="1" then
* M6 u  I2 R" @' N2 Y$ f2 WhxGrade="会员身份"
elseif rs("Grade")="2" then
hxGrade="VIP身份"
end if
Response.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
Response.Write "<tr>" & vbCrLf
1 _1 R. i+ j$ u2 `& Z' J) _6 _Response.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf
8 `; ^' y! c* z2 SResponse.Write "</tr>" & vbCrLf
) _. Z+ L( f4 O: Z1 z3 `Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
# C# t; E, c3 u- X3 `7 r1 S" @+ iResponse.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
) [: h7 n5 }  }  G+ UResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
* ~4 U1 d; Z. ~3 m0 V. Qelse
- m" C4 ^1 P2 A: TResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
& D* x$ t& U5 U( X$ @end if
' {- R! r7 M! q( B; j/ D( ?Response.Write "</tr>" & vbCrLf
5 t9 @* u1 I5 ]/ eResponse.Write "<tr>" & vbCrLf

想要实现的网页情况地址：http://www.vip138.com/showdown.asp?soft_id=28

' y+ [. ]5 L4 O' e' ^想通过修改这段语句：
if rs("soft_showpic")<>"http://hx66.net" then
9 k/ T0 K, G- aResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
+ A# ^+ ]2 F% L6 E* T0 I; h7 |1 }else
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
. q4 E. p2 J0 N实现：有图片链接的时候，右侧显示图片，没有图片链接的时候显示以下代码生成的公告

广告代码如下：
<script>
var YahooCNADConfig=new Array();
4 B# L# `& Y( q$ R6 YYahooCNADConfig['adid']=363
YahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
YahooCNADConfig['h']=60
</script>
1 ?, R. l. I6 K: A$ S% n7 H; j<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
/ B  E8 f+ H# x* v
请教如何将广告代码替换部分语句实现这个功能？谢谢

mudone

替换：Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
" W2 z/ `1 s% ?为：
Response.Write "<script>" & vbCrLf
# H- R. e! o! O" }# UResponse.Write "var YahooCNADConfig=new Array();" & vbCrLf
, w* K8 P! w9 f/ ]3 gResponse.Write "YahooCNADConfig['adid']=363" & vbCrLf
Response.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
* V9 T: J8 H; K5 r% [, TResponse.Write "YahooCNADConfig['w']=141" & vbCrLf
4 ]" A2 }# S" T( o1 u5 A4 GResponse.Write "YahooCNADConfig['h']=60" & vbCrLf
. a2 l/ b: f4 l1 J" }) d, X& D* {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>