ASP廣告代碼的解決？

想改變如下的代碼，實現網頁中嵌入廣告的功能
- f9 N. {( ?$ N+ c7 f' h
# T4 q8 p" {$ K' S6 i# T' S代碼如下（部分）：
  @/ |0 q' P6 p7 f: xsub content_down()
  z% f& X4 H, {1 _  `' tif rs("Grade")="0" then
" P( u! P9 ~) M1 J# y9 DhxGrade="遊客身份"
' w$ ]( J+ r2 r" {elseif rs("Grade")="1" then
hxGrade="會員身份"
4 Y- j; I# v- Y( S/ jelseif rs("Grade")="2" then
hxGrade="VIP身份"
% ~% D) B; |/ r$ u" {! {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
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
Response.Write "<tr>" & vbCrLf
, h1 i: e2 j# a! K3 m4 q* L2 nResponse.Write "<td height='25' align='center' width='15%'>加入時間</td>" & vbCrLf
6 Z$ Z  ]/ h+ a# nResponse.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
Response.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
7 E2 [9 c' f0 T2 A  S/ Kif 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
# [2 w0 I: M/ ~4 [2 jelse
8 Y7 r0 Y. O# I8 OResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
# I( j( n6 d) |, y) |7 ]end if
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf

想要實現的網頁情況地址：http://www.vip138.com/showdown.asp?soft_id=28

6 X) i) l; n8 N- j$ b想通過修改這段語句：
+ K1 y4 k6 N! u# m! L  Iif rs("soft_showpic")<>"http://hx66.net" then
3 C% \- ?! h& X/ K* _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
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
; i* ]1 T6 D) W' \; uend if
6 p& T1 H& U% X/ d實現：有圖片鏈接的時候，右側顯示圖片，沒有圖片鏈接的時候顯示以下代碼生成的公告

廣告代碼如下：
0 v- @2 e; o9 S; C: Z6 W<script>
+ H5 Q5 W+ [8 ^, ?% [8 @# Kvar YahooCNADConfig=new Array();
2 @. C$ Z, Y) {8 QYahooCNADConfig['adid']=363
3 C9 ?# U; |6 DYahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
+ j% Z. a  ]1 L8 |1 g2 O: LYahooCNADConfig['h']=60
</script>
; c" w, S: S4 m+ Z4 o3 b# c0 C<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
2 p' t8 I$ ^- l% S8 N2 q% g% F- C. M
請教如何將廣告代碼替換部分語句實現這個功能？謝謝

1. 
   
2. if rs("soft_showpic")<>"http://hx66.net" then
   $ L( k% b. x4 |, E2 h
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
   + H5 [' n  @9 S: Q4 W3 G0 w
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>"
   : j, T. {# V( |  ]) [* i; Y
6. & vbCrLf &"<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>"
   
7. end if
   

複製代碼