ASP网站制作之DUDU的无组件上传例程

只看该作者 · 发表于 2015-1-16 23:22:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

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"> 

<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">请选择文件：
</td>
<tdwidth="319"><fontsize="2"size="2"><inputtype="file"name="vFileName"></td>
</tr>
<tr>
<tdalign="right"width="167"><fontsize="2"size="2">文件申明1：</td>
<tdwidth="319"><inputname="shuoming"size="32"></td>
</tr>
<tr>
<tdalign="right"width="167"><fontsize="2"size="2">文件申明2：</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">
</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&" "
name为表单项的名字
Testifobjectisoffiletype
IfPosFile0AND(PosFile<PosBound)Then
PosBeg=PosFile+10
PosEnd=InstrB(PosBeg,因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。

只看该作者 · 发表于 2015-1-20 09:40:37

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

只看该作者 · 发表于 2015-1-21 21:38:15

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

只看该作者 · 发表于 2015-1-30 22:37:17

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

只看该作者 · 发表于 2015-2-6 16:28:03

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

只看该作者 · 发表于 2015-2-17 04:46:41

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

只看该作者 · 发表于 2015-3-19 19:52:17

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

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网站制作之DUDU的无组件上传例程

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子