ASP廣告代碼的解決？

想改變如下的代碼，實現網頁中嵌入廣告的功能
( Y8 g7 D; m" z6 j2 a
代碼如下（部分）：
5 e1 F& ~9 s. Y" r5 O8 F6 ?sub content_down()
3 M( Q  @# G) @9 U& h: O" c& ]if rs("Grade")="0" then
hxGrade="遊客身份"
9 F6 M# }/ B3 D, k) o6 O* {elseif rs("Grade")="1" then
hxGrade="會員身份"
elseif rs("Grade")="2" then
hxGrade="VIP身份"
* P0 J/ J* M  S# c* v6 l2 tend if
. \; w9 d9 K/ J: u8 T$ o8 fResponse.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
9 d6 Q$ D: c' ~# E* W. Q( UResponse.Write "<tr>" & vbCrLf
  [  P5 c, [9 b+ o" {/ xResponse.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
  c" U( F+ ?! r- OResponse.Write "<tr>" & vbCrLf
! J) q& z- P0 S; }  {# y; J' j4 \Response.Write "<td height='25' align='center' width='15%'>加入時間</td>" & vbCrLf
Response.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
Response.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
  t3 M; z- t% C1 i- R& G. l- Oif rs("soft_showpic")<>"http://hx66.net" then
5 A; g" @, K& u& \+ QResponse.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
Response.Write "</tr>" & vbCrLf
$ ]! T: {4 o/ J) K- k$ F3 ^  QResponse.Write "<tr>" & vbCrLf
8 L$ A* d% H: Q4 m; Q) f+ V: c
想要實現的網頁情況地址：http://www.vip138.com/showdown.asp?soft_id=28
# Y7 D7 \2 C' B' {& M) G- |& [1 |3 G/ {
( I& b) ]& |; I- U想通過修改這段語句：
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
  B# V) k4 o: F# W5 e! ]5 Selse
0 w$ s3 {+ i- a0 S) o) Z3 }% ~Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
  l5 Z0 k4 [; _. I5 v$ n% W$ h% y- R& t實現：有圖片鏈接的時候，右側顯示圖片，沒有圖片鏈接的時候顯示以下代碼生成的公告
1 w! G, \' Q/ [
/ B5 T1 A6 A; d/ v( B廣告代碼如下：
<script>
% u2 d, E* C8 ^4 l7 j* W+ |var YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
YahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
) I$ B3 o, f& S9 i$ G# N# r& T) xYahooCNADConfig['h']=60
</script>
7 x, T' r8 Y- b/ i/ o<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
- D9 v8 o$ t; [& @
請教如何將廣告代碼替換部分語句實現這個功能？謝謝

1. 
   # }3 W+ ^4 O' g7 @" e
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>"
   
7. end if
   

複製代碼