ASP廣告代碼的解決？

想改變如下的代碼，實現網頁中嵌入廣告的功能
0 q( a+ M$ y, f, J6 Z* I7 c
代碼如下（部分）：
sub content_down()
# _3 V& i' M& n3 G  @if rs("Grade")="0" then
" D& P( {6 M! d6 K2 ]" b! \- WhxGrade="遊客身份"
elseif rs("Grade")="1" then
+ i8 P, i* J6 n( s+ n2 ohxGrade="會員身份"
elseif rs("Grade")="2" then
hxGrade="VIP身份"
end if
. K' a8 w9 ]$ A& K6 F2 C# xResponse.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
  l. E5 d$ |* p  a4 Q/ iResponse.Write "<tr>" & vbCrLf
6 K" s, a7 r: p; W: _Response.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
( K/ L* _% G/ p+ V" _& F* ~% AResponse.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 q* Q, m" O* s2 m" O# R) dResponse.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
9 Q$ M) i6 X6 G/ W' ~0 D1 }9 |if rs("soft_showpic")<>"http://hx66.net" then
$ {% u( F  G6 e* I/ m) D* CResponse.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
' j0 d1 |% T/ r* Qend if
Response.Write "</tr>" & vbCrLf
7 t3 N& `: x/ Y7 I# o6 IResponse.Write "<tr>" & vbCrLf
) _6 l$ {" P/ c: @; `6 t/ g5 ]1 ^
3 X7 p- x1 G% Z1 {2 x想要實現的網頁情況地址：http://www.vip138.com/showdown.asp?soft_id=28
$ Y: G  A: |# G# ]  y9 o3 i
想通過修改這段語句：
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
8 n4 m; j( [/ ]0 |, K- t0 welse
9 P) Y2 j/ ?9 t3 b" J$ l8 d8 N! HResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
' O) P) M7 E) ~! gend if
; W3 V# `" X3 g, g* I( y實現：有圖片鏈接的時候，右側顯示圖片，沒有圖片鏈接的時候顯示以下代碼生成的公告
% w* u: ]5 t6 `2 }' s
0 n7 S$ O; x8 w: g' _5 `4 ^廣告代碼如下：
9 V" W9 _! g+ z<script>
8 t9 h0 k) ^2 `' h+ P/ tvar YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
8 X$ I3 s9 H6 p) U9 fYahooCNADConfig['wid']=XXXXX
7 V' S6 c8 a  S  ^" X, n% RYahooCNADConfig['w']=141
/ T# X& U" Y- `% z' c. l# XYahooCNADConfig['h']=60
$ g- Y; x8 Z' V! l- g; |5 [* k; r</script>
<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
3 S" h, c( r8 n& _! C" o
9 Y' ?# n* {: P2 ]5 F! x請教如何將廣告代碼替換部分語句實現這個功能？謝謝

1. 
   1 I0 A! v' y0 L" ?. x
2. if rs("soft_showpic")<>"http://hx66.net" then
   
3.             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. else
   
5.             response.write "<script>" & vbCrLf & "var YahooCNADConfig=new Array(); " & vbCrLf &"YahooCNADConfig['adid']=363;" & vbCrLf &"YahooCNADConfig['wid']=XXXXX;" & vbCrLf &"YahooCNADConfig['w']=141;" & vbCrLf &"YahooCNADConfig['h']=60;" & vbCrLf &"</script>"
   
6. & vbCrLf &"<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>"
   5 m) r& t- d% c
7. end if
   

複製代碼