设为首页收藏本站
开启辅助访问 切换到窄版

仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
仓酷云»社区 › 程序开发 Program › ASP网页编程 › ASP网页编程之无组件上传例程
返回列表 发新帖
查看: 453|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页编程之无组件上传例程

[复制链接]
第二个灵魂 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:11:18 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
缺点:安全性不是太差了，还行，只要你充分利用系统自带的工具;唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。上传|无组件-----------------------------
表单填写页的内容：
-----------------------------
<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"</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,RequestBin,StoB(chr(34)))
FileName=BtoS(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
response.write"<BR>"
response.write"filename="&filename&"<BR>"
filename为全路径文件名（假如是文件范例话）
UploadControl.Add"FileName",FileName
Pos=InstrB(PosEnd,RequestBin,StoB("Content-Type:"))
PosBeg=Pos+14
PosEnd=InstrB(PosBeg,RequestBin,StoB(chr(13)))
ContentType=BtoS(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add"ContentType",ContentType
response.write"filetype="&ContentType&"<BR>"
response.write"<BR>"
PosBeg=PosEnd+4
PosEnd=InstrB(PosBeg,RequestBin,boundary)-2
Value=MidB(RequestBin,PosBeg,PosEnd-PosBeg)
filesize=Posend-Posbeg
UploadControl.Add"FileSize",filesize
response.write"value="
response.binarywritevalue
response.write"<BR>"
Else
Pos=InstrB(Pos,RequestBin,StoB(chr(13)))
PosBeg=Pos+4
PosEnd=InstrB(PosBeg,RequestBin,boundary)-2
Value=BtoS(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
response.write"value="&value&"<BR>"
value为表单项的值，假如为文件项，则value为一长串二进制码
EndIf
UploadControl.Add"Value",Value
UploadRequest.Addname,UploadControl
UploadRequest增添一个Key为name的项，此项的value还是一个dixtionary工具
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop

contentType=UploadRequest.Item("vFileName").Item("ContentType")
filesize=UploadRequest.Item("vFileName").Item("FileSize")
filepathname=UploadRequest.Item("vFileName").Item("FileName")
filename=Right(filepathname,Len(filepathname)-InstrRev(filepathname,""))
filevalue=UploadRequest.Item("vFileName").Item("Value")
shuoming=UploadRequest.Item("shuoming").Item("Value")
shuoming_2=UploadRequest.Item("shuoming_2").Item("Value")
掏出嵌套的dictionary工具的值,注重dictionary的Key辨别巨细写！！！
处置数据库
setconnGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString=Application("DNS")
connGraph.Open
SetDB=Server.CreateObject("ADODB.RecordSet")
db.Open"SELECT*FROMt_recordnotewhere11",connGraph,1,3
db.addnew
db("record").appendchunkfilevalue
db("shuoming")=shuoming
db("shuoming_2")=shuoming_2
db("username")=session("username")
db("filetype")=contentType
db("time")=now()
db("filename")=filename
db("filesize")=filesize
db.update
db.close
setdb=nothing
response.write"文件"&filename&"上载乐成"

FunctionStoB(varStr)
str2bin=""
Fori=1ToLen(varstr)
varchar=Mid(varstr,i,1)
varasc=Asc(varchar)
asc对中笔墨符求出来的值大概为正数，
加上65536便可求出它的无标记数值
-1在呆板内是用补码暗示的0xffff,
其无标记值为65535,65535=-1+65536
其他正数顺次类推。
Ifvarasc<0Then
varasc=varasc+65535
EndIf
对中文的处置：把双字节低位和高位分隔
Ifvarasc>255Then
varlow=Left(Hex(Asc(varchar)),2)
varhigh=Right(Hex(Asc(varchar)),2)
str2bin=str2bin&ChrB("&H"&varlow)&ChrB("&H"&varhigh)
Else
str2bin=str2bin&ChrB(AscB(varchar))
EndIf
Next
StoB=str2bin
EndFunction

Bytestringtostringconversion
FunctionBtoS(Binstr)
中笔墨符Skip标记
skipflag=0
strC=""
IfNotIsNull(binstr)Then
lnglen=LenB(binstr)
Fori=1Tolnglen
Ifskipflag=0Then
tmpBin=MidB(binstr,i,1)
判别是不是中文的字符
IfAscB(tmpBin)>127Then
AscW会把二进制的中文双字节字符高位和低位反转，以是要先把中文的上下位反转
strC=strC&Chr(AscW(MidB(binstr,i+1,1)&tmpBin))
skipflag=1
Else
strC=strC&Chr(AscB(tmpBin))
EndIf
Else
skipflag=0
EndIf
Next
EndIf
BtoS=strC
EndFunction

%>

------------------------------
表布局：
------------------------------
dropTABLE[t_RecordNote]
CREATETABLE[t_RecordNote](
[RecordId][int]IDENTITY(1,1)NOTNULL,
[filename][varchar](60)NULL,
[filetype][varchar](40)NULL,
[UserName][varchar](30)NULL,
[Time][datetime]NULL,
[shuoming][varchar](200)NULL,
[shuoming_2][varchar](200)NULL,
[filesize][int]NULL,
[Record][image]NULL,
PRIMARYKEYCLUSTERED
(
[RecordId]
)ON[PRIMARY]
)
GO
强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。
Microsoft, content, action, method, 数据库

相关帖子
回复

使用道具 举报

精灵巫婆 该用户已被删除
沙发
发表于 2015-1-18 21:55:16 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
回复 支持 反对

使用道具 举报

山那边是海 该用户已被删除
板凳
发表于 2015-1-25 20:06:42 | 只看该作者
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。
回复 支持 反对

使用道具 举报

若相依 该用户已被删除
地板
发表于 2015-2-3 20:46:23 | 只看该作者
ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。
回复 支持 反对

使用道具 举报

乐观 该用户已被删除
5#
发表于 2015-2-9 05:43:18 | 只看该作者
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。
回复 支持 反对

使用道具 举报

飘飘悠悠 该用户已被删除
6#
发表于 2015-2-27 03:55:05 | 只看该作者
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。
回复 支持 反对

使用道具 举报

admin 该用户已被删除
7#
发表于 2015-3-8 19:49:17 | 只看该作者
Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write
回复 支持 反对

使用道具 举报

金色的骷髅 该用户已被删除
8#
发表于 2015-3-16 14:17:35 | 只看该作者
尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。
回复 支持 反对

使用道具 举报

活着的死人 该用户已被删除
9#
发表于 2015-3-22 23:11:22 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 10:54

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表