ASP廣告代碼的解決？

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

( f5 s" o4 x# y. s代碼如下（部分）：
; w5 @, @, {# k- {/ Gsub content_down()
2 a5 Z1 g' s# b2 E4 l6 Aif rs("Grade")="0" then
hxGrade="遊客身份"
elseif rs("Grade")="1" then
# G% I" e8 `+ L! Y& y. w4 w' ?hxGrade="會員身份"
elseif rs("Grade")="2" then
hxGrade="VIP身份"
, C) _) y  v& I5 G4 Y: l& n2 kend if
Response.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
0 V) @$ b2 g7 y# t7 Z+ lResponse.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
( f1 B9 X% R' i; {/ ^$ A* t6 hResponse.Write "</tr>" & vbCrLf
9 K0 U0 W: o; SResponse.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' width='15%'>加入時間</td>" & vbCrLf
5 N  m7 r; G, k+ n6 e. C7 T% `Response.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
* c' _3 u; I8 ^: m) c+ S9 IResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
) J' d  q, |# E: yelse
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
Response.Write "</tr>" & vbCrLf
2 t* t2 j2 c8 H+ eResponse.Write "<tr>" & vbCrLf
( e6 F9 E' U4 _5 P, H. U  f" p
想要實現的網頁情況地址：http://www.vip138.com/showdown.asp?soft_id=28
. @, L$ }7 t9 b# Q1 k
* p: b: E1 K  {1 N想通過修改這段語句：
if rs("soft_showpic")<>"http://hx66.net" then
7 R2 u+ D' S) \( `8 i; f9 [' H7 a  mResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
* s; H1 O+ ~6 V/ K6 a; aelse
* t. H! q% M6 }; q+ t; M* S  mResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
4 k" F% F' X8 s8 q7 ^$ V! P# I' q! Z實現：有圖片鏈接的時候，右側顯示圖片，沒有圖片鏈接的時候顯示以下代碼生成的公告
. X9 l: a; @- F" \/ k6 a
, `+ ^6 n% e0 V) s3 I6 T廣告代碼如下：
<script>
9 v& ?1 ?* \( Tvar YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
) ?! z! C+ F8 V, p, YYahooCNADConfig['wid']=XXXXX
. [+ H* U+ B- {. E2 U- j* qYahooCNADConfig['w']=141
YahooCNADConfig['h']=60
</script>
& @# l) c6 y/ J: P$ x- w& K5 [9 n3 j<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
" N8 L' Q9 n7 @8 x+ D$ s- D" L4 a7 j
  l4 B& Y# I8 F, F( ~6 ^9 m請教如何將廣告代碼替換部分語句實現這個功能？謝謝

1. 
   
2. if rs("soft_showpic")<>"http://hx66.net" then
   3 R* q+ w: R6 h8 W$ K$ I6 G& L: z
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
   - V! ]* q% l) j2 y7 K! \1 s
4. else
   ; |! P: p3 |* B
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>"
   / G; D+ ]4 ?. I- S% [
6. & vbCrLf &"<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>"
   
7. end if
   

複製代碼