ASP广告代码的解决?

[复制链接]
查看: 650   回复: 4
发表于 2006-10-24 11:25:26 | 显示全部楼层 |阅读模式
想改变如下的代码,实现网页中嵌入广告的功能 9 v2 X& a2 v1 c
7 ?) t! j( I+ P2 g
代码如下(部分): : y+ _' R) U% h8 K
sub content_down() ) D) E8 e+ f  M
if rs("Grade")="0" then / Q% r+ u& ]9 {3 J4 G' n
hxGrade="游客身份" , n. G( C! ~/ h0 a1 ]- R
elseif rs("Grade")="1" then % j) P1 z0 M. D6 N( I
hxGrade="会员身份"
( [/ D% r* e: q4 Ielseif rs("Grade")="2" then " [# s" H, E$ ~; }" E8 x
hxGrade="VIP身份"
/ `$ }: T; K6 m* b! r. wend if ' t0 w5 u+ \0 Z. l& {
Response.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">" / S8 ]0 O/ [& D7 r
Response.Write "<tr>" & vbCrLf
7 \( ]5 ^, w" n) f2 {. A7 S" C/ lResponse.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf . Y4 O1 \7 l; m
Response.Write "</tr>" & vbCrLf " }1 H# b0 g# k& u- x6 M" B" h
Response.Write "<tr>" & vbCrLf
% `3 Y0 x$ D- eResponse.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
0 M7 G& h& _5 C0 sResponse.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
" u$ c% \% b; p, e9 Q8 z! aResponse.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
+ E- X" q+ @4 S/ o* Cif rs("soft_showpic")<>"http://hx66.net" then
! V# K* N% J4 r1 a! N0 GResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
) P5 p6 X6 b* `2 Selse
& i7 v& d: N2 DResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
* o: a) y( [3 e5 Qend if
9 A. C- D! M! oResponse.Write "</tr>" & vbCrLf
! q' {( ^* u2 z' S. [Response.Write "<tr>" & vbCrLf
4 A/ A. x5 Z: E9 l0 n* e- W5 e2 B# Z/ F6 p4 g7 ?
想要实现的网页情况地址:http://www.vip138.com/showdown.asp?soft_id=28 $ |6 y: F7 V, j2 Z: K
7 ]5 a& C: F$ M7 j2 J+ e
想通过修改这段语句:
4 K, f1 L! ]6 c# {2 ~# r* d; tif rs("soft_showpic")<>"http://hx66.net" then : Z2 W# K1 x1 w5 R. g4 c
Response.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
1 L6 _: J8 E# belse 3 Z7 D9 @0 V8 H) D' L
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
: Q  q7 _/ \1 m4 ]; cend if / u6 ]8 c& ]2 f* ]2 Z
实现:有图片链接的时候,右侧显示图片,没有图片链接的时候显示以下代码生成的公告 - t* u' \8 T" \. Z5 V" S% z

2 s! n2 O" A  @1 E5 L3 q( F) s/ M广告代码如下:
* D5 f+ W# K; n9 @& h<script>
5 S+ u3 \2 F  p1 [3 }var YahooCNADConfig=new Array();
5 D" o0 \* b( z& z* w; _" Q: RYahooCNADConfig['adid']=363 $ }$ Z, o# _" h
YahooCNADConfig['wid']=XXXXX " c% F. C: f9 |( n$ k
YahooCNADConfig['w']=141
. g! k& V% o+ ]0 E% h, XYahooCNADConfig['h']=60
+ h+ b; U) n8 T2 P& ]</script> 0 K1 |/ ~4 d1 T0 c; L0 h8 p! M
<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
# r4 ~1 |* _7 W8 z3 U$ C
/ y& q# g0 o9 L  P; b' ]请教如何将广告代码替换部分语句实现这个功能?谢谢
发表于 2006-10-24 14:29:36 | 显示全部楼层
替换:Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
6 Q' A. P- N2 ^" w# d为:
6 C# d* F2 Z0 v4 f5 h; O" `$ v% jResponse.Write "<script>" & vbCrLf- w( N& ], {5 J' m4 ?
Response.Write "var YahooCNADConfig=new Array();" & vbCrLf
, M' }& z# t$ I: |/ f1 [2 hResponse.Write "YahooCNADConfig['adid']=363" & vbCrLf
# j! r) U/ a/ J. z0 n; uResponse.Write "YahooCNADConfig['wid']=XXXXX" & vbCrLf
/ D9 F% V* ]9 t; E1 l5 jResponse.Write "YahooCNADConfig['w']=141" & vbCrLf
7 j8 G9 }% |" j* NResponse.Write "YahooCNADConfig['h']=60" & vbCrLf( C4 }4 K; W; Y/ ]* q1 ]4 j
Response.Write "</script>" & vbCrLf% w- n' u2 ^6 m2 u( v% _' H
Response.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>
回复 支持 反对

使用道具 举报

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

本版积分规则