繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 中文的无组件文件上传ASP函数
- ASP
- 用ASP做一个分页程序
- 用ASP实现网站的“目录树”管理
- 网页在线人数统计的做法
- 用ASP生成Chart
- 用ASP构建你的网站新闻发布（一）
- 用ASP构建你的网站新闻发布（三）
- 如何处理ASP中的图象
- 用ASP编写计数器
- ASP防盗链及防下载的方法
- ASP数据类型
- ASP组件中的安全问题
- ASP漏洞集-ASP漏洞分析和解决方法
- ASP漏洞集-Carello Web 使 ASP 源码暴露(APP,缺陷)
- ASP漏洞集-MS IIS server的ASP安全缺陷(MS,缺陷)
- ASP漏洞集-MS IIS虚拟主机ASP源码泄露(MS,缺陷)
- ASP漏洞集-给你的FileSystemObject对象加把锁
- ASP漏洞集-通过asp入侵web server,窃取文件毁坏系统
- ASP漏洞集-MS IIS server/Frontpage Ext Server
- ASP漏洞集-虚拟web目录容易泄露ASP源代码 (MS,缺陷)
- ASP漏洞集-用ASP实现网页保密的两种方法
中文的无组件文件上传ASP函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 122 ::
收藏到网摘: n/a
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Function GetUpload(FormData)
Dim DataStart,DivStr,DivLen,DataSize,FormFieldData
'分隔标志串(+CRLF)
DivStr = LeftB(FormData,InStrB(FormData,str2bin(VbCrLf)) + 1)
'分隔标志串长度
DivLen = LenB(DivStr)
PosOpenBoundary = InStrB(FormData,DivStr)
PosCloseBoundary = InStrB(PosOpenBoundary + 1,FormData,DivStr)
Set Fields = CreateObject("Scripting.Dictionary")
While PosOpenBoundary > 0 And PosCloseBoundary > 0
'name起始位置(name="xxxxx")，加6是因为[name="]长度为6
FieldNameStart = InStrB(PosOpenBoundary,FormData,str2bin("name=")) + 6
FieldNameSize = InStrB(FieldNameStart,FormData,ChrB(34)) - FieldNameStart '(")的ASC值=34
FormFieldName = bin2str(MidB(FormData,FieldNameStart,FieldNameSize))
'filename起始位置(filename="xxxxx")
FieldFileNameStart = InStrB(PosOpenBoundary,FormData,str2bin("filename=")) + 10
If FieldFileNameStart < PosCloseBoundary And FieldFileNameStart > PosopenBoundary Then
FieldFileNameSize = InStrB(FieldFileNameStart,FormData,ChrB(34)) - FieldFileNameStart '(")的ASC值=34
FormFileName = bin2str(MidB(FormData,FieldFileNameStart,FieldFileNameSize))
Else
FormFileName = ""
End If
'Content-Type起始位置(Content-Type: xxxxx)
FieldFileCTStart = InStrB(PosOpenBoundary,FormData,str2bin("Content-Type:")) + 14
If FieldFileCTStart < PosCloseBoundary And FieldFileCTStart > PosOpenBoundary Then
FieldFileCTSize = InStrB(FieldFileCTStart,FormData,str2bin(VbCrLf & VbCrLf)) - FieldFileCTStart
FormFileCT = bin2str(MidB(FormData,FieldFileCTStart,FieldFileCTSize))
Else
FormFileCT = ""
End If
'数据起始位置：2个CRLF开始
DataStart = InStrB(PosOpenBoundary,FormData,str2bin(VbCrLf & VbCrLf)) + 4
If FormFileName <> "" Then
'数据长度，减1是因为数据文件的存取字节数问题(可能是AppendChunk方法的问题)：
'由于字节数为奇数的图象存到数据库时会去掉最后一个字符导致图象不能正确显示,
'字节数为偶数的数据文件就不会出现这个问题，因此必须保持字节数为偶数。
DataSize = InStrB(DataStart,FormData,DivStr) - DataStart - 1
FormFieldData = MidB(FormData,DataStart,DataSize)
Else
&nb
评论 (0) All
