仓酷云

标题: ASP教程之刷一次变一次图的ASP代码 [打印本页]

作者: 透明 时间: 2015-1-16 22:11
标题: ASP教程之刷一次变一次图的ASP代码
缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
----------------------------------------------------------------------------------------
*************************随机图片显现****************************
利用实例:img.asp?list=图片寄存目次
利用注重:图片目次放于本文件同目次下!必要FSO撑持!
申明：只需将变更图片放于一个目次下，修正上面程序的（必要修正的中央）成你的目次称号！
上传本程序和图片文件夹到统一目次下，在发帖时分利用UBB代码形如：便可！
----------------------------------------------------------------------------------------
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)%>优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件

作者: 分手快乐 时间: 2015-1-18 15:44
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

作者: 精灵巫婆 时间: 2015-1-22 08:19
完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

作者: 海妖 时间: 2015-1-30 23:57
另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

作者: 第二个灵魂 时间: 2015-2-6 17:29
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 活着的死人 时间: 2015-2-17 18:40
那么，ASP.Net有哪些改进呢？

作者: 愤怒的大鸟 时间: 2015-3-5 21:59
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: 再现理想 时间: 2015-3-12 15:50
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

作者: 只想知道 时间: 2015-3-19 23:41
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

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