ASP编程：asp随机图片显现
减少客户内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还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
页:
[1]