公开本站使用的随机头部代码

代码开始 SKIN.ASP里
sub web_head(var1,var2,var3,var4,var5)
if page_load then
call format_redirect("page_load.asp")
end if
call web_head_tit()
'下加入
'randomize
dim ran_x,ran_y,ran_w '声明变量
ran_x=int(rnd*10)+1 '注意这里的10 可以跟据你的条件进行更改
ran_y=int(rnd*10)+1
ran_w=int(rnd*10)+1


'过程调用方法
'模板调用
CMS_Skin.sktitle=Replace(CMS_Skin.sktitle,"{$ran_x}",ran_x)
'变量
images/top/"&ran_x&".jpg '随机图片
images/top/"&ran_x&".swf '随机FLASH

.................
完成!
下面要做是事是
新建文件夹 images/top/(1-10).GIF AND FLASH

转载注明! (来自玄远网)
http://www.joekoe.com/forum_view.asp?forum_id=7&view_id=55863&page=1

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: