ASP广告代码的解决？

ucash

想改变如下的代码，实现网页中嵌入广告的功能
# t! j& d5 h8 s  |, Y# A6 T& \5 k7 i
; |/ w! b4 o2 r  K代码如下（部分）：
sub content_down()
/ i) L2 S  }) x6 N: h9 f" l) K8 hif rs("Grade")="0" then
4 X2 D1 a, O& H# ChxGrade="游客身份"
elseif rs("Grade")="1" then
. X9 ?4 {. s8 _) Q+ D$ KhxGrade="会员身份"
elseif rs("Grade")="2" then
- s$ C+ h9 G8 `- r- X" K. ThxGrade="VIP身份"
end if
& W9 Z, f& i/ NResponse.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
/ ?" m" Q* w' k. R8 _% q5 yResponse.Write "<tr>" & vbCrLf
- p4 X- C2 H& J# R& YResponse.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
# N+ ]2 o" y5 j$ [0 uResponse.Write "<tr>" & vbCrLf
, v) C8 H( l1 Y! NResponse.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
4 B& p; @  X  F/ xResponse.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
* T9 c9 s( g  O7 J  zResponse.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
" l8 A+ J' W0 g- T2 @, V( i6 Cif rs("soft_showpic")<>"http://hx66.net" then
8 W: K  {" s$ x, lResponse.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
3 M) a& a% l$ K2 @5 }" Xend if
4 Z6 w8 v, a: a# E8 b" L8 l, F9 aResponse.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf

想要实现的网页情况地址：http://www.vip138.com/showdown.asp?soft_id=28
1 W+ b1 P# [2 K# w3 k: c
) Y# o; |; d$ i2 r" |+ J8 P想通过修改这段语句：
if rs("soft_showpic")<>"http://hx66.net" then
* D3 K+ Y* n* d5 u) @" aResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
else
$ I& z5 |6 J8 W) j) V2 n, PResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
' E: i- r5 Q% N, L6 e+ n( y4 t实现：有图片链接的时候，右侧显示图片，没有图片链接的时候显示以下代码生成的公告
3 l+ k8 `5 Q3 r4 w0 I# }
广告代码如下：
) m. @! ~6 X) R- _! h<script>
var YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
YahooCNADConfig['wid']=XXXXX
9 D5 b' K4 o/ X0 y( NYahooCNADConfig['w']=141
" F( c. F6 k& A" rYahooCNADConfig['h']=60
3 \* v, G* M9 q- _</script>
<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>

6 A, @3 o/ _7 n+ E- q, R$ Y2 h/ y3 Z请教如何将广告代码替换部分语句实现这个功能？谢谢

mudone

替换：Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
为：
$ i1 m0 }  ~1 G% c' s6 ~& c& WResponse.Write "<script>" & vbCrLf
, s( G3 X" |- F; X) HResponse.Write "var YahooCNADConfig=new Array();" & vbCrLf
, N) R' f- T2 n1 VResponse.Write "YahooCNADConfig['adid']=363" & vbCrLf
Response.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
9 i( k  U2 Q7 C  C/ V1 N2 g: mResponse.Write "YahooCNADConfig['w']=141" & vbCrLf
Response.Write "YahooCNADConfig['h']=60" & vbCrLf
Response.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>