诚信专一做人要诚信、做事情要专一、这是做好事情的第一步;尊重策略正确的策略可以成就一副好的作品,策略是为销售服务的;谦虚务诚信专一做人要诚信、做事情要专一、这是做好事情的第一步;尊重策略正确的策略可以成就一副好的作品,策略是为销售服务的;谦虚务诚信专一做人要诚信、做事情要专一、这是做好事情的第一步;尊重策略正确的策略可以成就一副好的作品,策略是为销售服务的;谦虚务诚信专一做人要诚信、做事情要专一、这是做好事情的第一步;尊重策略正确的策略可以成就一副好的作品,策略是为销售服务的;谦虚务
用ASP+CSS实现随机背景

随机背景--当你每次进入该页面时,从已指定的图片文件夹中,随机选取一个图片作为背景显示。这里介绍的方法是用ASP+CSS来实现的。

ASP--来自ASP101

以下是引用片段:
Const IMGS_DIR = "/images"
'设定图片文件夹的地址,随机显示该文件夹内任一张图片
Dim objFSO, objFolderObject, objFileCollection, objFile
Dim intFileNumberToUse, intFileLooper
Dim objImageFileToUse
Dim strImageSrcText
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
Set objFSO = Nothing
Set objFileCollection = objFolderObject.Files
Set objFolderObject = Nothing
Randomize()
intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
intFileLooper = 1
For Each objFile in objFileCollection
If intFileLooper = intFileNumberToUse Then
Set objImageFileToUse = objFile
Exit For
End If
intFileLooper = intFileLooper + 1
Next
Set objFileCollection = Nothing
strImageSrcText = IMGS_DIR & objImageFileToUse.Name
Set objImageFileToUse = Nothing

CSS

以下是引用片段:
#pic{
width: 400px;
height: 300px;
background: url() no-repeat;
margin: 2em auto;
}
齐心协力,把革命进行到底 凭借对未来的完美规划和源源不绝的创意灵感,创意设计公司一群充满激情的创意人以博大精深的文化为创作元素,将平面设计及品牌整合,赋予时代内涵,以全新面貌演绎,开创独特的设计文化。今天,我们为了同一个梦想开始, 明天,历史将会记下这光彩的一页。
您可以像他们一样信赖我们
张家港永安旅行社
张家港装潢网
张家港团购网
张家港新光建材
张家港市月嫂网
张家港市联大机械有限公司
张家港市鑫田机械有限公司
张家港市五洲机械有限公司
天赐福(张家港)生物工程
江苏华夏国际货运代理
张家港欧玛服饰有限公司
银屑病国际救助网
张家港市永康机械制造
张家港市优克朗饮料机械
江苏通力机电集团
张家港市今日饮料机械
张家港成功家教
......
服务电话:0512-58549310
返回首页 | 关于创意 | 服务流程 | 作品展示 | 创意观点 | 客户帮助 | 诚聘英才 | 联系我们
地址:张家港市港城大道108号 E-mail: zjgcreative@163.com
电话:0512-58549310 传真:0512-58549310
Copyright ©2006 www.zjgcreative.com all rights reserved.