ASP广告代码的解决？

ucash

想改变如下的代码，实现网页中嵌入广告的功能
( S7 e7 D( f$ ?$ g3 c7 T- x9 f3 V
代码如下（部分）：
4 l& y+ {' g- A) Hsub content_down()
if rs("Grade")="0" then
hxGrade="游客身份"
# v( r! b: f) \" D/ jelseif rs("Grade")="1" then
hxGrade="会员身份"
( e6 d3 K# k3 F* K9 }elseif rs("Grade")="2" then
! w0 F% Y$ _5 RhxGrade="VIP身份"
5 s7 B" d' F+ h' g; oend if
8 O; y; ~; o8 `$ w, ?Response.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
( R/ \5 w, V- Q: }$ PResponse.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
% T: n1 i$ g# t6 Z" @3 O8 mResponse.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
3 N3 S- l: a7 G; I  B5 R/ g6 }/ cResponse.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
9 r! ?# i1 P9 y, ~- y/ dResponse.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
) V# [" b# ^, ^1 w8 zif rs("soft_showpic")<>"http://hx66.net" then
7 V" l/ e$ H4 R% \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
& o( Z* k" y+ o7 sResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf

8 m; T6 Y3 V4 K" v/ T, C想要实现的网页情况地址：http://www.vip138.com/showdown.asp?soft_id=28

( a6 f: F" i* B6 t1 Z. U" f% v+ V想通过修改这段语句：
if rs("soft_showpic")<>"http://hx66.net" then
4 R( I8 X9 L$ x' sResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
else
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
( V' \) x. C$ C0 Y9 ~+ B% x8 L实现：有图片链接的时候，右侧显示图片，没有图片链接的时候显示以下代码生成的公告

! k- Z  `4 D& B! s. M  l* T广告代码如下：
<script>
! ?/ h% h7 f! @3 R. ]! W% Ovar YahooCNADConfig=new Array();
# [1 z& T8 Y7 D7 w- \YahooCNADConfig['adid']=363
: N  \, A4 d' }YahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
YahooCNADConfig['h']=60
* \6 W( c) j+ Y( g+ y</script>
# x) h  z+ k9 Y6 G<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
" O5 [/ W9 S: }0 }
% Y3 |$ o9 \1 q2 ^( c2 ]* Q: G6 E请教如何将广告代码替换部分语句实现这个功能？谢谢

mudone

替换：Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
为：
& D- p  \/ F1 rResponse.Write "<script>" & vbCrLf
6 d* C' L. m- f  iResponse.Write "var YahooCNADConfig=new Array();" & vbCrLf
Response.Write "YahooCNADConfig['adid']=363" & vbCrLf
Response.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
Response.Write "YahooCNADConfig['w']=141" & vbCrLf
2 X" _8 k/ g8 V8 u  ?( p5 `Response.Write "YahooCNADConfig['h']=60" & vbCrLf
6 N- P2 @# A* U9 ]) g: AResponse.Write "</script>" & vbCrLf
! R3 Y( X7 C. h  i0 W; q7 EResponse.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>