|
想改变如下的代码,实现网页中嵌入广告的功能
& j! q0 R& u0 g% e4 O* e8 e- C
# v9 D" i( |8 `) p" ?代码如下(部分):
6 i/ {. ^6 Q0 g" B9 ^; U0 qsub content_down()
. s( @! f+ O& |4 e% i- Xif rs("Grade")="0" then
# }) S) |4 g; l7 ihxGrade="游客身份"
6 x7 G3 l& u; C+ r0 D0 Melseif rs("Grade")="1" then
9 U3 j- j4 Q4 o" m: S. A' bhxGrade="会员身份" + O6 d; ]5 z3 t4 ^
elseif rs("Grade")="2" then % e5 J: X3 i1 A5 g, F
hxGrade="VIP身份"
$ q9 v5 S. M' H( send if 9 a0 s" N4 L* g. q/ Y- t! L! c- X
Response.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">" 2 d. e- {% e+ P( G+ e
Response.Write "<tr>" & vbCrLf
# R8 d) m3 k; c& wResponse.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf
1 ]6 q. P. j' s) g' r$ RResponse.Write "</tr>" & vbCrLf
( e# a, Z* l7 T6 e5 S: _ q. ~Response.Write "<tr>" & vbCrLf ' D" X: T5 s; j) Z7 ]9 {
Response.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf - J7 k* y8 L9 w4 Y+ q
Response.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf # w8 }' R: j2 g) e" Y! B
Response.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf 7 ]. L( b+ i/ T0 j
if rs("soft_showpic")<>"http://hx66.net" then
2 v& R' ?. a2 UResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf $ e4 b6 p$ e1 R9 n
else 4 ~) |5 L( } i: P) t* }* o7 w
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
! A9 b; E/ C. `) _0 L1 Q. rend if , r" b) o) n' N7 ~9 s* s+ B
Response.Write "</tr>" & vbCrLf ! e; c L/ O( n6 d( v) x
Response.Write "<tr>" & vbCrLf + l( ?, s; c1 [! h V
% ?1 h: [5 N, k! b" o# `! E3 X; N3 ]
想要实现的网页情况地址:http://www.vip138.com/showdown.asp?soft_id=28
. ^; S/ y4 P: F; t( z
% k$ N& W8 ~) F( X* E: J想通过修改这段语句:
6 C. i; D% q* Z! d) k, B) e' Z) Y: @if rs("soft_showpic")<>"http://hx66.net" then
. V6 k4 I" v! k# G; s4 o( Q; JResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf " O4 t a: O+ R6 M9 ^' w6 Q& j
else 6 U: f# |- ^/ U! S8 D1 ]6 }0 B
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
+ m3 z$ o- u, p. w" s) Bend if
0 T- O" m' O8 @实现:有图片链接的时候,右侧显示图片,没有图片链接的时候显示以下代码生成的公告 4 S. F6 k: K6 s6 P6 E" [0 Q" N
: J: X! r7 J( P0 h* O; j
广告代码如下: * o, z& b- `/ P, A8 m2 d
<script>
# y* c( E. H _7 Evar YahooCNADConfig=new Array(); " ?3 v( ~( k c" s3 z
YahooCNADConfig['adid']=363
+ C$ I1 L7 ?2 r" D) t3 A pYahooCNADConfig['wid']=XXXXX
( I# r" f" I7 p& \7 yYahooCNADConfig['w']=141 ) B# n5 z; V" W
YahooCNADConfig['h']=60
" a7 N: o4 U, B3 l0 s4 w8 a</script> / L8 Q, J8 D" ]3 C% ?
<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
8 m' V% b0 l( ?# Q+ y; C4 I4 K, ^$ Q
请教如何将广告代码替换部分语句实现这个功能?谢谢 |
|