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的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 掌握asp的特性而且一定要知道为什么。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。
页:
[1]