ASP廣告代碼的解決？

想改變如下的代碼，實現網頁中嵌入廣告的功能

1 J4 q8 x, e4 r+ M2 r% i& T4 \代碼如下（部分）：
$ p0 s; A- K& ]; _$ d5 Dsub content_down()
if rs("Grade")="0" then
hxGrade="遊客身份"
! x; `! u! i2 J9 y. M& }elseif rs("Grade")="1" then
% S: b8 X" ^8 [; Y2 i; {hxGrade="會員身份"
elseif rs("Grade")="2" then
: O& X3 J: o. ^6 [5 y2 l5 H/ k, EhxGrade="VIP身份"
+ n- X/ A" |. }, g9 Y. }1 Fend if
  p; D) \: C4 UResponse.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
Response.Write "<tr>" & vbCrLf
( ?! `& s. Y( T7 |Response.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf
/ m5 X4 Q2 K3 _, k6 ~Response.Write "</tr>" & vbCrLf
. O% `1 O6 \: k! m. H: E3 W' }Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' width='15%'>加入時間</td>" & vbCrLf
) s+ n5 n/ }) f6 ]4 kResponse.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
Response.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
if rs("soft_showpic")<>"http://hx66.net" then
8 s; L' i5 d# i, F, x# k4 z; MResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
( R5 {' J) X8 [' o3 [* x; p4 f; @else
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
' H( i6 k( L# S+ C$ _2 K- A! Tend if
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
, p6 W: ?% D' n: a
! W; i# f0 d8 N想要實現的網頁情況地址：http://www.vip138.com/showdown.asp?soft_id=28
+ R+ Z, N2 _! D& l. M
想通過修改這段語句：
0 D$ i" j( }# U/ ~, Q* Y/ W) pif rs("soft_showpic")<>"http://hx66.net" then
& Y9 t. q* d" y# E0 RResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
else
( Y, X9 P. G8 W  f7 O1 SResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
  Z7 O2 r) R/ X" D7 {end if
; t+ G5 O0 I" i7 ?  E( ~實現：有圖片鏈接的時候，右側顯示圖片，沒有圖片鏈接的時候顯示以下代碼生成的公告
; k9 F- K* O$ u# m9 g1 q
廣告代碼如下：
<script>
var YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
2 i* x6 a" _5 e2 ~YahooCNADConfig['wid']=XXXXX
. B5 t( x2 Z7 U; hYahooCNADConfig['w']=141
. ]; ~8 A3 N9 c5 ?YahooCNADConfig['h']=60
% L3 K9 U4 G( F</script>
<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>

請教如何將廣告代碼替換部分語句實現這個功能？謝謝

1. 
   ) b4 Y2 w5 k: e# ]' w5 Y
2. if rs("soft_showpic")<>"http://hx66.net" then
   " x; G/ q* t  r, ~$ Y
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
   + y2 i3 J/ K5 _4 t! |7 f
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>"
   1 t; V5 k6 {/ g+ V
6. & vbCrLf &"<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>"
   7 a" _; g3 T- k6 x
7. end if
   2 O% F1 ?$ A& v, J

複製代碼