ASP编程：一个复杂的自创文件上传
缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。上传一段复杂的ASP文件上传源代码示例，精简有用。以下是upload.asp代码：
<formname="FORM"action="upload.asp"method="post">
<inputtype="submit"name="submit"value="OK">
<inputtype="file"name="file1"style="width:400"value="">
<inputtype=TEXTname=myfacesize=20maxlength=100>
</form>
<%
ifRequest.Form("file1")""then
DimAllowExt_’同意上传范例(白名单)
DimNoAllowExt_’不同意上传范例(黑名单)
NoAllowExt="exe;gif"’黑名单,能够在这里预设不成上传的文件范例,以文件的后缀名来判别,不分巨细写,每一个每缀名用;号分隔,假如黑名单为空,则判别白名单
NoAllowExt=LCase(NoAllowExt)
AllowExt=""’白名单,能够在这里预设可上传的文件范例,以文件的后缀名来判别,不分巨细写,每一个后缀名用;号分隔
AllowExt=LCase(AllowExt)
FunctionGetFileName(ByValstrFile)
IfstrFile""Then
GetFileName=mid(strFile,InStrRev(strFile,"")+1)
Else
GetFileName=""
EndIf
Endfunction
FunctionisAllowExt(Ext)
ifNoAllowExt=""then
isAllowExt=cbool(InStr(1,";"&AllowExt&";",LCase(";"&Ext&";")))
else
isAllowExt=notCBool(InStr(1,";"&NoAllowExt&";",LCase(";"&Ext&";")))
endif
EndFunction
PublicFunctionGetFileExt(FullPath)
IfFullPath""Then
GetFileExt=LCase(Mid(FullPath,InStrRev(FullPath,".")+1))
Else
GetFileExt=""
EndIf
Endfunction
uppath="uploadfile"
strFileName=Request.Form("file1")
strnum=trim(Len(strFileName))
filetype=mid(strFileName,strnum-2,3)
ifisAllowExt(filetype)then
SetobjStream=Server.CreateObject("ADODB.Stream")
objStream.Type=1’adTypeBinary
objStream.Open
objStream.LoadFromFilestrFileName
objStream.SaveToFileServer.MapPath(uppath&GetFileName(strFileName)),2
objStream.Close
response.write"<script>parent.document.forms.myface.value=’"&uppath&"/"&GetFileName(strFileName)&"’</script>"
response.write"<ahref=’"&uppath&GetFileName(strFileName)&"’>检察头像</a>"
response.write"文件范例："&filetype&""
else
response.write"<SCRIPTlanguage=JavaScript>alert(’头像文件只同意用GIF文件格局!’);"
response.write"this.location.href=’javascript:history.back();’</SCRIPT>"
response.end
endif
endif
%>
由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 那么，ASP.Net有哪些改进呢？ 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?
页:
[1]