|
|
想改变如下的代码，实现网页中嵌入广告的功能 9 }6 x8 Y- E# U% N; E
' e9 a- @" n8 ^" s' I代码如下（部分）：
! [+ i1 N% V, k2 E0 y$ fsub content_down() + y) z% k7 o4 g3 K
if rs("Grade")="0" then
2 N) S% l+ [! g+ B. [9 hhxGrade="游客身份"
: _. G, C y' i! b8 H' pelseif rs("Grade")="1" then " v5 |( A( m! r2 q/ g2 l" G
hxGrade="会员身份"
9 J4 M+ a5 z, w5 K E, U4 Pelseif rs("Grade")="2" then
C6 s: e1 r+ @8 H6 r j# ehxGrade="VIP身份"
2 S4 h: y1 L0 R6 _: Z: C- Q* ^end if
2 V; O/ W' h/ r. d/ gResponse.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">" 5 v, G, U) z# h2 o# Q
Response.Write "<tr>" & vbCrLf * `4 C- ?% x, ]& C" V; }
Response.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf 1 I, J) q9 K4 ^8 ~ G; t
Response.Write "</tr>" & vbCrLf
# @+ l' l+ P$ e) }% E7 H5 c) }Response.Write "<tr>" & vbCrLf 9 a: S& i" u4 \
Response.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
6 w/ S" ^$ q' |) d6 x* eResponse.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf 6 Z. K0 o0 S, `* \0 x2 k
Response.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf . d; E: ^- N, }; h; r
if rs("soft_showpic")<>"http://hx66.net" then 3 o9 r( J' u- b) y- K
Response.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf # I; N7 d- q, A9 i5 ?" E+ m
else * t" o: e0 g1 o; s
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf l% P8 x+ N, B8 T$ B! |% L: l7 \
end if - t" f: \ E7 d* S/ ^! |* ]. N% n
Response.Write "</tr>" & vbCrLf " D, w. K% h1 v$ Q- ^: }
Response.Write "<tr>" & vbCrLf 0 g" n E- F. |" F& J+ k1 z. [
3 h% E2 i* F6 O! O+ a# S想要实现的网页情况地址：http://www.vip138.com/showdown.asp?soft_id=28 : J Q; |" m& j1 _7 D
8 G& C/ J2 Q* G5 M1 |3 y4 z; z
想通过修改这段语句： 4 A4 ?: n1 [. p7 u
if rs("soft_showpic")<>"http://hx66.net" then : \, N+ b& a. T ^+ k
Response.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf 7 b5 T3 S5 M+ T; C, _
else
' b' n- n$ D+ K' N4 tResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf . {) m! p: v( R7 Q6 _. }; q0 F
end if
0 W6 W/ H5 m. g0 Y; h9 r7 P2 G实现：有图片链接的时候，右侧显示图片，没有图片链接的时候显示以下代码生成的公告 $ a+ J6 u: x. h; ?& b" I: Y
) F1 f- Y# y. P' _. E广告代码如下：
! a$ p+ d8 E5 b8 y<script> O. s. H+ c' J6 O8 c
var YahooCNADConfig=new Array(); , p2 w' { \6 f5 Y% D/ g& m
YahooCNADConfig['adid']=363 9 R- [/ [5 `$ i& F9 M1 v
YahooCNADConfig['wid']=XXXXX N7 }# b' }1 a9 G+ O
YahooCNADConfig['w']=141
. C+ J4 z1 e1 [6 S% b5 fYahooCNADConfig['h']=60
% H. P; F3 ~7 {$ [</script>
6 t% v3 o6 R, X; J* V<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script> * J9 P0 C4 \6 b) }
) R! f% Y9 X/ s) a! }请教如何将广告代码替换部分语句实现这个功能？谢谢 |
|
发表于 2006-10-24 11:25:26
提升卡
沉默卡
变色卡
楼主