|
- 帖子
- 17959
- 积分
- 13414
- 贡献
- 0
- 鲜花
- 91
- 臭蛋
- 8
- 在线时间
- 8980 小时
- 注册时间
- 2005-1-19
|
板凳
发表于 2005-11-16 11:48
| 只看该作者
自己占个位子.
+ @1 G- y+ F7 T5 x. o7 O$ c
! } S" r5 C7 Z( u9 L; F说一下资源特性和嵌入
: R9 y$ b# w/ h: N* M8 Q
6 Q( f* U+ {! u; Q- P资源特性实现了专题..推荐等功能..
T4 L+ |, d9 N( y
/ T% g+ R5 [; X7 ^1 q" K" f3 `使用时先建立一个资源特性..也可以在特性下建立新特性..
/ M: J9 ^4 C( C比如我站点上的特性- f% v8 M1 u0 {. _
首页特性
) s9 M/ n+ f' J9 l+-------热点推荐 # q) m- V/ _2 d
+-------推荐文字新闻
1 s/ b0 o0 y# f生活频道分栏特性
0 V4 P' q5 U) C3 d* `3 ~+-------休闲图文
* h" h& I# }0 S4 F+-------生活图文
w x# f1 N$ ?" Y" M.....
2 p% M9 T! T& {" w0 d# C- |. N8 S( W( B) Z5 |3 A4 i; C+ m% S- ~
建立时会有一个特性ID号...比如我的热点推荐是35...9 c6 r- z d. N3 F4 a
1 L* m0 F& E3 k% U' {: S使用方法和首页其他栏目更新机制是一样的...通过<!-元素标签-开始--><!--元素标签-结束-->..
% J d8 X0 z3 i9 V+ b/ I) B' M- S1 Z& q& O' \7 n' {" j2 r
以我的热点推荐为例子..
4 D, f9 }' r m* k0 s3 w'//热点推荐# ?1 E8 j6 T _* {" y
Function Update03()
r7 _( p- J! _! U8 ^ Dim TemplateFilePath/ H9 ~4 W3 q+ r+ f7 e0 _, B
TemplateFilePath=Server.MapPath(" ../../index.htm ")
' d- @: a8 q) K m j Dim TClass,strHtml,I
3 e% @1 r( `+ E. W6 K9 _; e" A Set TClass=New Tkl_TemplateClass
& V1 C% S0 E5 C# n3 l A strHtml=""# ]% l/ z* c+ K
Dim Rs,Sql( x j& f; o' x5 s
Sql="Select Top 5 Title,FilePath,SmallImg,ShortContent,AddTime From view_NewsInfo Where Instr(','+Speciality+',',',35,')<>0 Order By Id DESC"
" H0 e! V2 q: \ Set Rs=Conn.ExeCute(Sql)
, F* a$ j/ b+ v! C' G+ l$ j' j& ~( U2 b% s1 O
TClass.OpenTemplate(TemplateFilePath)
A/ E6 n% o) g( e
* N- K2 v: d5 H1 I2 k8 B7 l strHtml = ""# n/ i3 N7 g: s2 r* p
For I=1 To 5
) l' Y, n2 W$ Z+ {' G If Rs.Eof Then
' i4 W; d# i2 A+ l, {0 V0 {1 z Exit For
6 {# K6 f" \4 d& N8 y End If+ n0 u6 ?( A) @
strHtml = strHtml & " ·<a href=""" & Rs("FilePath") & """ target=""_blank"" title=""" & Rs("Title") & """>" & StrClass.CutStr(Rs("Title"),23) & "</a><br /> " & vbCrLf. o7 [( }& s, ~; ]
Rs.MoveNext+ P, V; `9 ~# @
Next
/ F3 F" x3 s& o; U* h& w
/ E" M' N; l0 y5 r, z With TClass! E b; i5 P8 S3 ^
.StartElement=" <!---热点推荐:start--> "4 M- h, L) Q- O; S6 X
.EndElement=" <!---热点推荐:end--> "+ j5 a* A' z! z4 ]3 S( W1 d. w8 k
.Value=strHtml' c8 k: ^- a- y4 K
.ReplaceTemplate()
/ t% u. T- _; E) I* p9 B5 O U7 Z2 k End With9 P' o# F2 K& R4 T- O
Y/ I: x" p+ P$ E. I$ C
Rs.Close5 n, p/ D8 H% N; x: ?: t$ E- z' i
Set Rs=Nothing
& ~: R# X' s% O$ D4 v, e) k6 R+ j0 i8 Y* a& n! z- b
TClass.Save()
+ ?5 j. Q8 k& v0 z Set TClass=Nothing$ S' Z1 y5 o, q$ v
End Function. l8 D) E" @. V! p( O7 \6 P
- R" I& G" {3 |0 ?+ `9 V请大家特别注意颜色标注的地方．．．．是容易出错的地方．．
/ [, Y5 D( _% p, G3 q. h- ·<a href=""" & Rs("FilePath") & """ target=""_blank"" title=""" & Rs("Title") & """>" & StrClass.CutStr(Rs("Title"),23) & "</a><br />
比如我图文的样式：
' q4 q) k7 @& w9 f- <a href=""" & Rs("FilePath") & """ target=""_blank"" title=""" & Rs("Title") & """><img src=""" & Rs("SmallImg") & """ width=""120"" height=""80"" border=""1"" style=""border-color:#000000"" align=""left"" /></a><a href=""" & Rs("FilePath") & """ target=""_blank"" title=""" & Rs("Title") & """><strong>" & Rs("Title") & "</strong></a><br />" & StrClass.CutStr(Rs("ShortContent"),200)
. y6 n( c# m e) E' p1 y1 D
并无固定形式．．．完全自己定义．．
- T l( d9 x. D* A t# O1 L Y
1 V$ l% Y' K6 E+ s8 z说到特性．．．应该提下嵌入．．．% `) B) a$ B3 n8 p( |: O- w y
在页面更新的上面．．6 e, t" U- N7 M& r/ K
嵌入也提供了一种更新模式．还是通过<!-元素标签-开始--><!--元素标签-结束-->．．
, A8 w; m8 w7 L" R5 D: D: @, o& ]但是于特性不同的是．．
+ t+ R* D* \6 m$ l2 S2 e% ?5 J, X
并不格式化．．也就是说适合放置广告代码．．# Q) j7 ]1 I# n1 l V+ b+ W
比如首页的banner广告．．
, O) Y) d. c- ]5 }% K3 ]+ J4 ]定义了<!--banner:start--><!--banner:end-->
$ ]- {& E; y( O7 E然后在嵌入里面编辑(可视化，这以代码为例子)- Z Q: h1 J' A+ Z
- <a href="http://www.31u.net/bbs/dispbbs.asp?boardID=2&ID=22&page=1" target="_blank" title="讲述大学爱情"><img src="http://www.31u.net/UpLoadFiles/NewsPhoto/00105a01.jpg" width="468" height="60" border="0" /></a>
当然你也可以插入flash
# k8 S- P, }4 l1 }* V- <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="533" height="104">
- <param name="movie" value="http://www.31u.net/image/flash_538.swf">
- <param name="quality" value="high">
- <embed src="http://www.31u.net/image/flash_538.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="533" height="104"></embed>
- </object>
8 ~* |/ {& D/ s6 F
4 O6 w7 k6 `3 `5 U5 H2 |
看出来和特性的区别吗？？, g) C6 @& V4 |. x. B
3 L5 V4 O: y1 m1 `9 A- ?特性是在page01这样的文件中定义好了输出方式．．．而这个没有．．;)
; `! X. ~5 a, T, s2 i) n! V: M+ n( q w* q* D- X
嵌入可以同时更新多点．．．
K% `& e# W7 ]. J! ?' n! F0 `8 g. p$ F U) m7 s& \" Q% K: Q. X! f
好了。．自己体会一下吧．．．
, }- g3 G5 }! w
/ F8 F r n* h$ E4 I. k[ 本帖最后由 xima8 于 2005-11-16 14:10 编辑 ] |
|
发表于 2005-11-16 12:00
| 
