ASP广告代码的解决？

ucash

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

代码如下（部分）：
sub content_down()
4 L; g/ ]7 t( `0 ?& `/ S9 gif rs("Grade")="0" then
( K5 |' T" i  f  w7 M. whxGrade="游客身份"
, K7 `; r+ Z5 v2 A& d5 jelseif rs("Grade")="1" then
7 i: Q1 x: h( q% Y/ Q% [; RhxGrade="会员身份"
elseif rs("Grade")="2" then
hxGrade="VIP身份"
) v, F* o, @1 S" c; [end if
9 {6 H3 w/ Z) K  N" TResponse.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 ^5 n0 ?  ]  J( A1 n; HResponse.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf
3 Q- d2 p' k: k1 E% e, z3 cResponse.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
6 @$ G9 q9 R: fResponse.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
Response.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
1 J& A5 g! F8 y. K3 [" `9 NResponse.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
6 Z  g" o0 x" n, i- \# E$ yif rs("soft_showpic")<>"http://hx66.net" then
/ G1 W4 q1 d$ x# \3 E6 LResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
+ ~7 E8 z/ R0 S/ Y+ ]else
2 x  t1 O1 F8 _& o" |3 _. YResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
Response.Write "</tr>" & vbCrLf
) Z! Z9 u' Z( Y, LResponse.Write "<tr>" & vbCrLf

  ]5 m( Y! K# ^2 {" n- v( t. S+ r. \想要实现的网页情况地址：http://www.vip138.com/showdown.asp?soft_id=28
- U& ]0 M/ Z- t; ]* s2 b4 s8 H9 U
$ Y+ v% K$ x4 T6 i% G( ~$ b; L想通过修改这段语句：
  a; U  O& K) s& Lif rs("soft_showpic")<>"http://hx66.net" then
; v7 j9 m5 D/ r* |$ K7 HResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
! p' d' I  X8 u: N. felse
$ ~8 o5 O! u0 l9 C7 w5 JResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
2 f5 [) ~1 _# S% ^实现：有图片链接的时候，右侧显示图片，没有图片链接的时候显示以下代码生成的公告
7 I# u& e, `% w) l4 w$ C3 I
2 ^9 f! q6 F, U! L4 M广告代码如下：
- {2 X2 X( w5 N8 c* \<script>
7 {! g" I0 W  Y& U; q# Y7 [var YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
YahooCNADConfig['wid']=XXXXX
3 X6 d4 X$ t. dYahooCNADConfig['w']=141
% _, F* s/ o& t: F5 z& c! ?YahooCNADConfig['h']=60
</script>
<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
4 Y9 h: Q- S6 m7 i8 l- M
" ~& A* Z) m4 x6 _- ?4 v* h2 |请教如何将广告代码替换部分语句实现这个功能？谢谢

mudone

替换：Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
& G" ~4 i) P& Z. l. A7 P为：
6 R7 K# l/ q8 K) \4 J% PResponse.Write "<script>" & vbCrLf
Response.Write "var YahooCNADConfig=new Array();" & vbCrLf
Response.Write "YahooCNADConfig['adid']=363" & vbCrLf
Response.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
Response.Write "YahooCNADConfig['w']=141" & vbCrLf
, Y+ R4 V* t* S) `- L4 ZResponse.Write "YahooCNADConfig['h']=60" & vbCrLf
* B% m* i6 g% m/ iResponse.Write "</script>" & vbCrLf
# `1 @! g. O; W1 TResponse.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>