ASP广告代码的解决？

ucash

想改变如下的代码，实现网页中嵌入广告的功能

' T1 P3 T; h( A) s2 l代码如下（部分）：
sub content_down()
if rs("Grade")="0" then
8 n1 p1 W' }) C) V  v5 A5 jhxGrade="游客身份"
6 x4 {3 o: Z& D0 G4 Uelseif rs("Grade")="1" then
4 k9 Q# x: ], chxGrade="会员身份"
( o, H% Q3 ~. Z( L; R( Z/ j1 lelseif rs("Grade")="2" then
hxGrade="VIP身份"
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
; S0 n8 a8 l, o& J: U) L+ B% ?9 S) yResponse.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf
4 e( w; L3 g0 d5 F% u% E% eResponse.Write "</tr>" & vbCrLf
9 u& I: M* N# ^. p8 e1 mResponse.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
$ ^2 [; n: s( N9 ?Response.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
2 N, m: E, B$ U/ z! T, J4 _* dResponse.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
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
$ I5 c4 O4 \7 c6 _, Jelse
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
- q- e4 X1 v  a& ?7 iResponse.Write "</tr>" & vbCrLf
; o1 f& w% @% [4 h5 T9 uResponse.Write "<tr>" & vbCrLf

/ ]$ O8 ]8 T# ~. n; t( u想要实现的网页情况地址：http://www.vip138.com/showdown.asp?soft_id=28
9 C/ Y+ o$ Q, \1 {( F0 c3 \
5 P' P, Y  Q) y8 P# `想通过修改这段语句：
if rs("soft_showpic")<>"http://hx66.net" then
; k6 f) p: |7 E, A# ]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
end if
" L+ Z* g/ |8 X实现：有图片链接的时候，右侧显示图片，没有图片链接的时候显示以下代码生成的公告

广告代码如下：
<script>
var YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
YahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
YahooCNADConfig['h']=60
2 Q' u4 }! |5 W2 F- v- y. s</script>
<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>

9 l% {6 |  @  p$ \6 e& h+ u) f请教如何将广告代码替换部分语句实现这个功能？谢谢

mudone

替换：Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
为：
  d3 `3 ~/ |2 K4 mResponse.Write "<script>" & vbCrLf
$ J9 S4 Y9 P: Q9 LResponse.Write "var YahooCNADConfig=new Array();" & vbCrLf
Response.Write "YahooCNADConfig['adid']=363" & vbCrLf
Response.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
Response.Write "YahooCNADConfig['w']=141" & vbCrLf
) y/ T9 L1 d& |# KResponse.Write "YahooCNADConfig['h']=60" & vbCrLf
0 m! O9 P9 r6 g1 `* kResponse.Write "</script>" & vbCrLf
Response.Write "<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>" & vbCrLf

ucash

非常感谢，我现在就试下～～～

ucash

非常感谢，PS个问题，如果要加个居中代码该怎么加呢？我模仿了下，好像不行

mudone

<div align="center">xxxxxx</div>