|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
----------------------------------------------------------------------------------------
*************************随机图片显现****************************
利用实例:img.asp?list=图片寄存目次
利用注重:图片目次放于本文件同目次下!必要FSO撑持!
申明:只需将变更图片放于一个目次下,修正上面程序的(必要修正的中央)成你的目次称号!
上传本程序和图片文件夹到统一目次下,在发帖时分利用UBB代码形如:便可!
----------------------------------------------------------------------------------------
FunctionAllPath()
DimDomain,GFilePath
Domain=Request.ServerVariables("SERVER_NAME")
GFilePath=Request.ServerVariables("PATH_INFO")
GFilePath=lcase(left(GFilePath,instrRev(GFilePath,"/")))
AllPath="http://"&Domain&GFilePath
EndFunction
FunctionShowFileList(folderspec)
DimPath,objFSO,objFolder,count,objFile,nume,S
Path=Server.MapPath(folderspec)
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
IfobjFSO.FolderExists(Path)Then
SetobjFolder=objFSO.GetFolder(Path)
count=0
ForEachobjFileinobjFolder.Files
count=count+1
Next
randomize
nume=Int((count*rnd)+1)
S=0
ShowFileList=""
ForEachobjFileinobjFolder.Files
S=S+1
IfS=numeThen
ShowFileList=objFile.Name
ExitFor
EndIf
Next
SetobjFolder=Nothing
Else
ShowFileList="NO"
EndIf
SetobjFSO=Nothing
EndFunction
Dimlist,filename,address,str
list=trim(Request.QueryString("list"))
iflist=""then
Response.write"本页必要准确参数引进,您短少相干的参数!准确格局以下:"&AllPath&"img.asp?list=(必要修正的中央)"
Response.End()
endif
filename=ShowFileList("./"&list&"/")
iffilename="NO"then
Response.write"您指定的目次<b>"&list&"</b>不存在,请从头指定!"
Response.End()
endif
iffilename=""then
Response.write"您指定的目次<b>"&list&"</b>没有相干的图片文件存在,请从头指定!"
Response.End()
endif
str=right(filename,3)
ifstr"jpg"andstr"gif"then
filename="erro.gif"
endif
address=AllPath&list&"/"
address=address&filename
%>
<%Response.redirect(address)%>优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件 |
|