ASP广告代码的解决？

ucash

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

代码如下（部分）：
1 {! E1 x' J' dsub content_down()
if rs("Grade")="0" then
# d! ]9 b$ g, h$ m% L- D" ]/ @hxGrade="游客身份"
6 [' q" ?+ R2 h) c; D9 L7 l& Melseif rs("Grade")="1" then
hxGrade="会员身份"
4 p; r* D4 W, C# Nelseif rs("Grade")="2" then
% w( d  X' N; J. R! zhxGrade="VIP身份"
. p1 z& k/ S! b8 E' O- S$ hend if
7 z$ W! X" Q1 d' M2 M; YResponse.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
1 j3 V0 }' m0 A9 q4 Q* dResponse.Write "<tr>" & vbCrLf
% {; u( ~* z/ x8 d# e& m2 SResponse.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
0 B- Q' a* y3 u0 ~8 SResponse.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
Response.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
Response.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
9 j& P3 j6 h- W; M, zif rs("soft_showpic")<>"http://hx66.net" then
- u0 x4 A1 ?8 i) F3 cResponse.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
) T0 k* E# T/ I. o: ]6 P! T$ \0 Mend if
Response.Write "</tr>" & vbCrLf
  B0 K3 i( ?0 `* s  f4 TResponse.Write "<tr>" & vbCrLf
" m6 Z% P2 T$ x( G8 \+ z
想要实现的网页情况地址：http://www.vip138.com/showdown.asp?soft_id=28
4 @" ?- U* r0 t! K# v1 @) ~" ?
8 j+ i( f1 w5 E$ W: R想通过修改这段语句：
4 k% T) R! A8 s3 c1 e/ H/ Fif 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
+ G9 d9 z' C8 jResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
实现：有图片链接的时候，右侧显示图片，没有图片链接的时候显示以下代码生成的公告
# D2 a: t- N# d2 t' D4 |+ R
4 B, L! ~& ]# ]) u9 M广告代码如下：
9 H0 @* c: G' j2 W<script>
+ u! N! [0 ]8 j$ k  X. g/ P+ c+ J. g4 Xvar YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
/ H% m5 w* F* }& ^! A" P0 ^) G4 B& AYahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
YahooCNADConfig['h']=60
</script>
0 @& k' ~0 r- c8 A<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
6 D" b  ?+ t5 m( n: F
请教如何将广告代码替换部分语句实现这个功能？谢谢

mudone

替换：Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
为：
Response.Write "<script>" & vbCrLf
Response.Write "var YahooCNADConfig=new Array();" & vbCrLf
Response.Write "YahooCNADConfig['adid']=363" & vbCrLf
- J+ g, q. ^1 q4 o0 R+ oResponse.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
Response.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>