ASP广告代码的解决？

ucash

想改变如下的代码，实现网页中嵌入广告的功能
. L2 I7 |$ c: t
代码如下（部分）：
5 |3 {$ B. n9 k/ `8 p7 isub content_down()
9 q7 M% a: F' v7 z% e% |' hif rs("Grade")="0" then
( ]4 y( \0 K) f% h5 g9 s$ z& s" QhxGrade="游客身份"
elseif rs("Grade")="1" then
  J# h2 T7 c& q7 W8 a$ QhxGrade="会员身份"
elseif rs("Grade")="2" then
* D  z4 ~8 Y) o0 C" phxGrade="VIP身份"
end if
& d6 N( G7 }3 ?9 A# ^, ?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
Response.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf
; a8 O. C0 ~5 I3 y8 N& pResponse.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
; P2 b( v6 @. H$ I3 V! W% c8 ^Response.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
Response.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
% p$ r. \- w2 L0 S1 |if rs("soft_showpic")<>"http://hx66.net" then
  R1 N  y7 P7 t: O8 |Response.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
- k0 I; V* H: U% oelse
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
Response.Write "</tr>" & vbCrLf
% v) r1 S) F7 J# }; X# |4 hResponse.Write "<tr>" & vbCrLf

& u2 P5 o0 t8 M2 v6 f/ o! b5 a4 H想要实现的网页情况地址：http://www.vip138.com/showdown.asp?soft_id=28

! M2 l* H: C( [4 R. D$ X想通过修改这段语句：
! x3 t# p0 x0 K2 Wif rs("soft_showpic")<>"http://hx66.net" then
' t% f- _' k* {: I- a6 G' Q2 ^1 g2 g& E2 BResponse.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
$ Z1 h! T) T+ B8 l- \& {实现：有图片链接的时候，右侧显示图片，没有图片链接的时候显示以下代码生成的公告
0 P- a" w# U3 T* X! ^  `
广告代码如下：
<script>
( @( T$ n$ K" G: Hvar YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
) j9 ^8 `) K  M9 C  ~# G+ u2 J1 JYahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
# `6 V* B: V5 N2 H1 T9 D. m+ eYahooCNADConfig['h']=60
- i  E% f* a3 s* ?9 h( _) ?: q% d( u</script>
9 L! m/ F1 f& X& T7 n) x<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
* V; e1 m4 h; o" [; N4 w
" P( K6 G, Q' v' y请教如何将广告代码替换部分语句实现这个功能？谢谢

mudone

替换：Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
  U& ]1 z, P- _9 [为：
- r1 l; M+ \' N$ QResponse.Write "<script>" & vbCrLf
Response.Write "var YahooCNADConfig=new Array();" & vbCrLf
/ B, {+ |6 c& u# K0 a7 NResponse.Write "YahooCNADConfig['adid']=363" & vbCrLf
8 C' f* n4 r& M+ m! m' UResponse.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
' I4 j" w( u( `& v( ZResponse.Write "YahooCNADConfig['w']=141" & vbCrLf
! u$ c+ |8 R/ y" g) K: L! D; Y) lResponse.Write "YahooCNADConfig['h']=60" & vbCrLf
& Y3 i& \0 F4 |% f7 A* sResponse.Write "</script>" & vbCrLf
7 I+ g1 M  Q; ^9 `) yResponse.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>