ASP广告代码的解决？

ucash

想改变如下的代码，实现网页中嵌入广告的功能
5 M; J5 q  X+ ]3 Z5 C  X5 ]
8 ^1 Z0 b  L+ _9 k5 b2 }代码如下（部分）：
% \. z* T& c  \$ U, {& A6 bsub content_down()
) _+ M/ _8 l6 W* eif rs("Grade")="0" then
7 B. O6 Y: K4 U6 a- ohxGrade="游客身份"
' O4 F- k9 S- K; ^) R6 r" Uelseif rs("Grade")="1" then
' m6 m9 p9 b$ H9 RhxGrade="会员身份"
elseif rs("Grade")="2" then
hxGrade="VIP身份"
end if
# d- t/ n% K8 G0 q0 E' J8 TResponse.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
0 ], z: u& U5 O4 D4 c- Z, m0 oResponse.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
5 j; |4 r& ?% f; @3 XResponse.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
Response.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
2 c' Y  ^3 I2 i# `& gResponse.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
else
% X+ k# H7 K( V4 L+ e) P/ G$ ^Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
- R7 ?9 ^$ p" O+ Jend if
Response.Write "</tr>" & vbCrLf
1 n/ ~( l$ M. K2 J4 ^0 R* d) jResponse.Write "<tr>" & vbCrLf
4 C) x! M6 }: [4 N/ O
想要实现的网页情况地址：http://www.vip138.com/showdown.asp?soft_id=28

2 A& a( n$ C, k1 W8 W1 ]! B7 ?想通过修改这段语句：
if rs("soft_showpic")<>"http://hx66.net" then
) r$ @: w* M) s* u& `# U: ^Response.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
% T7 A" K4 {3 x3 Y. `3 l: o# E* melse
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
7 J* l( [9 R& W/ u实现：有图片链接的时候，右侧显示图片，没有图片链接的时候显示以下代码生成的公告

$ Y9 t1 l- y6 I3 [0 Y广告代码如下：
8 K1 _  Y. y9 I  G% S7 B<script>
" f# Z2 v! m( }; N+ j( M$ f7 \var YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
" d+ c  I, ~1 C7 n; IYahooCNADConfig['wid']=XXXXX
5 G3 c  J& J4 jYahooCNADConfig['w']=141
YahooCNADConfig['h']=60
' k+ L6 a5 p6 z: B" D5 H& E7 t! K( k* D</script>
<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
7 V0 ]& w, a' e0 j# L# E; T
3 u" `3 V" D! }请教如何将广告代码替换部分语句实现这个功能？谢谢

mudone

替换：Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
; g( \" M* \) ^7 C3 ^为：
Response.Write "<script>" & vbCrLf
Response.Write "var YahooCNADConfig=new Array();" & vbCrLf
4 U& n' J8 F+ m9 B/ U; AResponse.Write "YahooCNADConfig['adid']=363" & vbCrLf
Response.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
Response.Write "YahooCNADConfig['w']=141" & vbCrLf
Response.Write "YahooCNADConfig['h']=60" & vbCrLf
Response.Write "</script>" & vbCrLf
0 N- W* t6 s4 ]6 y- m( SResponse.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>