仓酷云

标题: ASP编程：随机图片显现ASP代码 [打印本页]

作者: 小魔女 时间: 2015-1-16 22:13
标题: ASP编程：随机图片显现ASP代码
ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊！随机|显现<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
----------------------------------------------------------------------------------------
转发时请保存此声明信息,这段声明不并会影响你的显现速率!
*************************随机图片显现****************************
代码计划:野男人
利用实例:img.asp?list=图片寄存目次
网站:http://yjj.con.cn
声明:版权没有,随便利用!^_^不外假如列位不介怀给我做个小小的毗连,鄙人将感激涕零!
----------------------------------------------------------------------------------------
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)%>对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。

作者: 小女巫 时间: 2015-1-18 23:19
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

作者: 变相怪杰 时间: 2015-1-24 12:21
掌握asp的特性而且一定要知道为什么。

作者: 愤怒的大鸟 时间: 2015-2-1 11:53
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 山那边是海 时间: 2015-2-7 04:45
接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

作者: 简单生活 时间: 2015-2-20 14:26
跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

作者: 老尸 时间: 2015-3-6 18:21
从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

作者: 莫相离 时间: 2015-3-13 05:10
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: admin 时间: 2015-3-20 13:52
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

欢迎光临仓酷云 (http://ckuyun.com/)