|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。随机|显现|随机<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
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)%></p>缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |
|