ASP网站制作之DUDU的无组件上传例程
Access是一种桌面数据库，只适合数据量少的应用，在处理少量数据和单机访问的数据库时是很好的，效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限，如果数据达到100M左右，很容易造成服务器iis假死，或者消耗掉服务器的内存导致服务器崩溃。上传|无组件#####################################################################备注：我没有考证，供应给人人一种参考！请人人自行考证
接待人人宣布你以为好的出色程序代码
微风（xuankong）2000。12。8
#####################################################################
题目：仍是用我的无组件文件上载吧，与ASPCN组件有殊途同归之妙，上面是例程：
DUDU(DUSJ)
工夫：2000-12-7上午09:48:00
浏览次数：8
具体信息：
-----------------------------
表单填写页的内容：
-----------------------------
<html>
<head>
<metaname="Author"content="SanderDuivestein">
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metaname="GENERATOR"content="MicrosoftFrontPage4.0">
<metaname="ProgId"content="FrontPage.Editor.Document">
<title>将当地的文件上载到数据库</title>
</head>
<body>
<fontsize="2"size="2"><br>
</font>
<formname="frmUpload"method="post"enctype="multipart/form-data"action="Upload.asp">
<tablecellspacing="0"cellpadding="0"width="490">
<tr>
<tdwidth="167">
<palign="right"><fontsize="2"size="2">请选择文件：</font></p>
</td>
<tdwidth="319"><fontsize="2"size="2"><inputtype="file"name="vFileName"></font></td>
</tr>
<tr>
<tdalign="right"width="167"><fontsize="2"size="2">文件申明1：</font></td>
<tdwidth="319"><inputname="shuoming"size="32"></font></td>
</tr>
<tr>
<tdalign="right"width="167"><fontsize="2"size="2">文件申明2：</font></td>
<tdwidth="319"><inputname="shuoming_2"size="32"onchange="isdate1(document.frmUpload.dengji)"</td>
</tr>
<tdwidth="167"></td>
<tdwidth="319">
<palign="left"><fontsize="2"size="1"><inputtype="submit"style="background-image:url(images/back.jpg);cursor:hand;font-sizd:smaller;left:0px;width:94;top:5px;height:25"value="上载"style="background-image:url(images/back.jpg);cursor:hand;font-sizd:smaller;left:0px;width:94;top:5px;height:25"size="23"></font></p>
</td>
<tr>
<tdcolspan="2"align="right"width="487"></td>
</tr>
</table>
</form>
</body>
</html>
----------------------------------
Upload.asp的内容：
----------------------------------
<%
Response.Buffer=TRUE
Response.Clear
byteCount=Request.TotalBytes
RequestBin=Request.BinaryRead(byteCount)
response.binarywriterequestbin
获得表单的全体内容
DimUploadRequest
SetUploadRequest=CreateObject("Scripting.Dictionary")
UploadRequest布局将用来寄存表单
PosBeg=1
PosEnd=InstrB(PosBeg,RequestBin,StoB(chr(13)))
boundary=MidB(RequestBin,PosBeg,PosEnd-PosBeg)
求字段间的分开串（即：-----------------------------7d029e347d8）
boundaryPos=InstrB(1,RequestBin,boundary)
Dountil(boundaryPos=InstrB(RequestBin,boundary&StoB("--")))
Membersvariableofobjectsareputinadictionaryobject
DimUploadControl
SetUploadControl=CreateObject("Scripting.Dictionary")
Getanobjectname
Pos=InstrB(BoundaryPos,RequestBin,StoB("Content-Disposition"))
Pos=InstrB(Pos,RequestBin,StoB("name="))
PosBeg=Pos+6
PosEnd=InstrB(PosBeg,RequestBin,StoB(chr(34)))
Name=BtoS(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile=InstrB(BoundaryPos,RequestBin,StoB("filename="))
PosBound=InstrB(PosEnd,RequestBin,boundary)
response.write"<hr>"
response.write"name="&name&"<BR>"
name为表单项的名字
Testifobjectisoffiletype
IfPosFile0AND(PosFile<PosBound)Then
PosBeg=PosFile+10
PosEnd=InstrB(PosBeg,</p>因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。
页:
[1]