仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 511|回复: 9
打印 上一主题 下一主题

[学习教程] ASP编程:asp随机图片显现

[复制链接]
乐观 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:47:15 | 只看该作者 回帖奖励 |正序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。
因胸联盟 该用户已被删除
10#
发表于 2015-3-20 08:11:42 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
莫相离 该用户已被删除
9#
发表于 2015-3-13 01:08:11 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
飘灵儿 该用户已被删除
8#
发表于 2015-3-6 12:43:21 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
爱飞 该用户已被删除
7#
发表于 2015-2-19 04:08:23 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
愤怒的大鸟 该用户已被删除
6#
发表于 2015-2-7 00:10:44 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
若相依 该用户已被删除
5#
发表于 2015-1-31 22:12:52 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
第二个灵魂 该用户已被删除
地板
发表于 2015-1-31 18:31:48 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
简单生活 该用户已被删除
板凳
发表于 2015-1-29 07:03:11 | 只看该作者
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
山那边是海 该用户已被删除
沙发
发表于 2015-1-20 11:48:26 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 10:10

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表