ASP广告代码的解决?

[复制链接]
查看: 669   回复: 4
发表于 2006-10-24 11:25:26 | 显示全部楼层 |阅读模式
想改变如下的代码,实现网页中嵌入广告的功能
* e% Z* z1 a* U* O; Q" j) a# s) I& z* o* w
代码如下(部分): 8 V3 m8 n% d1 f7 U# |
sub content_down()
) c' w" ~) P' A  X5 sif rs("Grade")="0" then ' L3 G9 U8 O6 w% E8 P. A+ o: I9 a
hxGrade="游客身份" 0 B# ^, X0 @$ S7 E
elseif rs("Grade")="1" then
& I$ X3 H$ I2 N$ L4 r+ g7 `hxGrade="会员身份"
4 c2 S: b: g& `# y/ B* i$ T5 Felseif rs("Grade")="2" then
; L- G! N! |3 g# ?3 chxGrade="VIP身份"
5 V- N$ E+ I3 Z7 U. nend if
3 h# B+ h' o1 P% d$ tResponse.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
/ f8 w% `; |1 H. r" K. C% \) {( ZResponse.Write "<tr>" & vbCrLf , L. X3 [" c, y9 Y
Response.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf
1 W4 F% G' j$ t6 U: S& `Response.Write "</tr>" & vbCrLf * R" Y8 G& J1 t7 s
Response.Write "<tr>" & vbCrLf
( r% s; z9 B1 ^' S9 zResponse.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
' l" x+ S2 n; vResponse.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf , a1 a; K' Q$ n% o* V
Response.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf 6 `* g5 D; ^+ w1 e9 ]' T
if rs("soft_showpic")<>"http://hx66.net" then
! h1 u& k- P; g% ~1 t" XResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf ; l; s$ }6 n+ ?1 d; e
else
" k# D7 j, Y3 O2 l! {" ]: m/ ]Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf + h7 [, {/ }! k
end if 7 X! }! ~- X0 @7 b7 }1 r) g
Response.Write "</tr>" & vbCrLf 5 m9 v' E2 g( ^1 i/ B1 q4 X% V& _0 Z7 m
Response.Write "<tr>" & vbCrLf
0 u+ ^+ f/ D1 e1 o: w" i+ ]! N- i* i' W5 J$ m, S( A
想要实现的网页情况地址:http://www.vip138.com/showdown.asp?soft_id=28
+ k% K! e! @; J1 K% R. v% g" H& Y  U% l/ A( Y. Z+ N
想通过修改这段语句:   n/ N7 t% s2 R" W+ C% N! r
if rs("soft_showpic")<>"http://hx66.net" then
/ D1 W% o# N6 H+ D5 v" G( N* BResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
* F5 s' T# i" P& O: G- h: qelse 5 l2 l4 J6 E1 T, A+ M# h
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
1 D# K! H& ?/ c/ t8 R5 q6 Pend if 1 t$ i! @# r9 a8 D* U1 x
实现:有图片链接的时候,右侧显示图片,没有图片链接的时候显示以下代码生成的公告
  _. |1 D1 \: l1 j6 r" l
# x' n  {3 u/ s& G! D3 W广告代码如下: ' j' z8 A3 ^0 W: x7 ~5 Z
<script>
$ T% i$ p7 L8 E8 T& U2 gvar YahooCNADConfig=new Array(); & f4 z/ Z/ k. W
YahooCNADConfig['adid']=363 ) |5 [2 i! Y& q3 o7 U- d
YahooCNADConfig['wid']=XXXXX
; |) I/ `0 Q2 P8 N1 pYahooCNADConfig['w']=141
1 m" J& d, p. ~; K$ s7 xYahooCNADConfig['h']=60 7 J6 x6 l. g/ K6 t
</script> 5 Y/ Y7 F. R9 m" V, j9 e1 ^* W
<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script> , g, ^' r7 _% X1 Z

, {/ d& y) t7 W1 e. e请教如何将广告代码替换部分语句实现这个功能?谢谢
发表于 2006-10-24 14:29:36 | 显示全部楼层
替换:Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
) _& F+ T  e8 f! X9 r( F为:
1 s% q6 v( [) m( h7 p; b4 yResponse.Write "<script>" & vbCrLf: o0 k4 e, _3 V/ A
Response.Write "var YahooCNADConfig=new Array();" & vbCrLf7 B" ^! z. {& Y/ j, U- U- ?
Response.Write "YahooCNADConfig['adid']=363" & vbCrLf+ }- P9 u: R" c5 p
Response.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
/ V1 [4 j$ G& B( [Response.Write "YahooCNADConfig['w']=141" & vbCrLf
1 Y$ [. w* ~: gResponse.Write "YahooCNADConfig['h']=60" & vbCrLf+ }0 S2 K7 I( a6 i$ A( J
Response.Write "</script>" & vbCrLf
9 o  h6 y* E" s& b/ DResponse.Write "<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>" & vbCrLf
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-10-24 18:39:08 | 显示全部楼层
非常感谢,我现在就试下~~~ASP广告代码的解决?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-10-24 18:49:20 | 显示全部楼层
非常感谢,PS个问题,如果要加个居中代码该怎么加呢?我模仿了下,好像不行
回复 支持 反对

使用道具 举报

发表于 2006-10-24 19:23:27 | 显示全部楼层
<div align="center">xxxxxx</div>
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则