ASP网站制作之不必组件完成上载功效（英文NT)2

缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。----filename/handld_upload.asp

<%OptionExplicit%>

<%
Response.Expires=0
Response.Buffer=TRUE
Response.Clear
ConstIMAGE_SIZE="width=""200""height=""150"""
DimUploadRequest
SetUploadRequest=Server.CreateObject("Scripting.Dictionary")

DimbyteCount,RequestBin
byteCount=Request.TotalBytes
RequestBin=Request.BinaryRead(byteCount)

BuildUploadRequestRequestBin

DimsaveURL,goURL,filepathname,value,filename
----savepath
saveURL=UploadRequest.Item("saveURL").Item("Value")
saveURL="/"

----jumptofilepathwhenfinishupload
goURL=UploadRequest.Item("goURL").Item("Value")

filepathname=UploadRequest.Item("my_file").Item("FilePathName")
value=UploadRequest.Item("my_file").Item("Value")
filename=Right(filepathname,Len(filepathname)-InstrRev(filepathname,""))

----debug
Response.WritesaveURL&"**"&goURL&"**"&filepathname
Response.Write"**"&filename
Response.End

Dimfso,MyFile,i
Setfso=Server.CreateObject("Scripting.FileSystemObject")
IfNOTfso.FolderExists(Server.mappath(saveURL)&"")Then
RecMkDir(Server.mappath(saveURL)&"")
EndIf
SetMyFile=fso.CreateTextFile(Server.mappath(saveURL)&""&filename)

Fori=1toLenB(value)
MyFile.Writechr(AscB(MidB(value,i,1)))
Next

MyFile.Close

Session("StoredFile")=filename
Session("strImage")="</script>
<scriptlanguage="JavaScript">
<!--
functionUpLoad(obj)
{
if(obj.my_file.value.length<7)
returnfalse;
returntrue;
}
//-->
</script>
<bodylink=<%=COLOR_NL_1%>alink=<%=COLOR_AL_1%>vlink=<%=COLOR_VL_1%>bgcolor=<%=COLOR_BG_1%>>
<fontcolor="<%=C_WD_CONTENT_4%>">
Onlyupload<b>*.jpg</b>or<b>*.gif</b>file!
<br>
Otherwise,imagemaynotshowcorrectly!
</font>
<center>
<table>
<%If(Len(Session("strImage"))>0)Then%>
<tr>
<td>
<tableborder="1"bordercolor="<%=C_WD_T_BORDER%>"cellspacing="0"cellpadding="0"<%=IMAGE_SIZE%>>
<tr>
<td><%=Session("strImage")%></td>
</tr>
</table>
</td>
</tr>
<%Else%>
<tr>
<td>
<tableborder="1"bordercolor="<%=C_WD_T_BORDER%>"cellspacing="0"cellpadding="0">
<tr>
<tdalign="center"valign="top">
<tablecellspacing="0"cellpadding="0"border="0"<%=IMAGE_SIZE%>>
<tr>
<tdcolspan="2"><fontclass="e-foot"color="<%=C_WD_CONTENT_4%>"><b>Upload/previewimage:</b></font></td>
</tr>
<tr>
<tdcolspan="2"></td>
</tr>
<tr>
<tdvalign="top"nowrap><fontclass="e-foot"color=</p>楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。

掌握asp的特性而且一定要知道为什么。

仓酷云

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

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

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。