社区
ASP
帖子详情
各位师兄:急问100分哦
lovejean
2003-08-20 06:49:00
关于 BinaryRead接受的数据
怎么判断其中一项是空值
并没有上传东西。
万分感谢
...全文
35
6
打赏
收藏
各位师兄:急问100分哦
关于 BinaryRead接受的数据 怎么判断其中一项是空值 并没有上传东西。 万分感谢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
pp4u
2003-08-21
打赏
举报
回复
Request.TotalBytes < 1
lovejean
2003-08-21
打赏
举报
回复
谢谢
谢谢大家
结贴
hengxin54
2003-08-20
打赏
举报
回复
支持楼上的
chinesun
2003-08-20
打赏
举报
回复
以上代码必须建在一个类中,比如:
Class UpFile_Class
End Class
然后调用时,用:
dim upload,file
set upload=new UpFile_Class ''建立上传对象
set file=upload.file(formName) ''生成一个文件对象
chinesun
2003-08-20
打赏
举报
回复
这是一个Sub:
_________________________________
Public Sub GetDate (RetSize)
'定义变量
Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
Dim iFileSize,sFilePath,sFileType,sFormValue,sFileName
Dim iFindStart,iFindEnd
Dim iFormStart,iFormEnd,sFormName
'代码开始
If Request.TotalBytes < 1 Then
Err = 1
Exit Sub
End If
If RetSize > 0 Then
If Request.TotalBytes > RetSize Then
Err = 2
Exit Sub
End If
End If
Set Form = Server.CreateObject ("Scripting.Dictionary")
Form.CompareMode = 1
Set File = Server.CreateObject ("Scripting.Dictionary")
File.CompareMode = 1
Set tStream = Server.CreateObject ("ADODB.Stream")
Set oUpFileStream = Server.CreateObject ("ADODB.Stream")
oUpFileStream.Type = 1
oUpFileStream.Mode = 3
oUpFileStream.Open
oUpFileStream.Write Request.BinaryRead (Request.TotalBytes)
oUpFileStream.Position = 0
RequestBinDate = oUpFileStream.Read
iFormEnd = oUpFileStream.Size
bCrLf = ChrB (13) & ChrB (10)
'取得每个项目之间的分隔符
sSpace = MidB (RequestBinDate,1, InStrB (1,RequestBinDate,bCrLf)-1)
iStart = LenB (sSpace)
iFormStart = iStart+2
'分解项目
Do
iInfoEnd = InStrB (iFormStart,RequestBinDate,bCrLf & bCrLf)+3
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iFormStart
oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart
tStream.Position = 0
tStream.Type = 2
tStream.CharSet = "gb2312"
sInfo = tStream.ReadText
'取得表单项目名称
iFormStart = InStrB (iInfoEnd,RequestBinDate,sSpace)-1
iFindStart = InStr (22,sInfo,"name=""",1)+6
iFindEnd = InStr (iFindStart,sInfo,"""",1)
sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
'如果是文件
If InStr (45,sInfo,"filename=""",1) > 0 Then
Set oFileInfo = new FileInfo_Class
'取得文件属性
iFindStart = InStr (iFindEnd,sInfo,"filename=""",1)+10
iFindEnd = InStr (iFindStart,sInfo,"""",1)
sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileName = Mid (sFileName,InStrRev (sFileName, "\")+1)
oFileInfo.FilePath = Left (sFileName,InStrRev (sFileName, "\")+1)
oFileInfo.FileExt = Mid (sFileName,InStrRev (sFileName, ".")+1)
iFindStart = InStr (iFindEnd,sInfo,"Content-Type: ",1)+14
iFindEnd = InStr (iFindStart,sInfo,vbCr)
oFileInfo.FileType = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileStart = iInfoEnd
oFileInfo.FileSize = iFormStart -iInfoEnd -2
oFileInfo.FormName = sFormName
file.add sFormName,oFileInfo
else
'如果是表单项目
tStream.Close
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iInfoEnd
oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2
tStream.Position = 0
tStream.Type = 2
tStream.CharSet = "gb2312"
sFormValue = tStream.ReadText
If Form.Exists (sFormName) Then
Form (sFormName) = Form (sFormName) & ", " & sFormValue
else
form.Add sFormName,sFormValue
End If
End If
tStream.Close
iFormStart = iFormStart+iStart+2
'如果到文件尾了就退出
Loop Until (iFormStart+2) = iFormEnd
RequestBinDate = ""
Set tStream = Nothing
End Sub
__________________________
然后用
Filesize=file.FileSize
'记录文件
if Filesize>0 then '如果 FileSize > 0 说明有文件数据
''执行上传文件
else
''说明空值,没有上传
end if
nchen123
2003-08-20
打赏
举报
回复
If Request.TotalBytes < 1 Then '如果没有数据上传
计算机系19年插本,经验
分
享丨19年插本成功的
师兄
详细
分
享自己插本经验!!!...
原标题:经验
分
享丨19年插本成功的
师兄
详细
分
享自己插本经验!!!各位师弟师妹,如果你觉得自己还不清楚你到底选不选择插本的时候,我可以跟你们说,你们已经比那些开始看书的人拉开距离了。但是别慌,因为,你迈出第一步,永远好过你原地踏步。先介绍本人考试科目,三科公共课:政治,管理,英语专业课:市场营销,消费者行为学录取院校:华农珠1.插本复习办法介绍好的,现在我开始跟师弟师妹
分
享一下实战经验:其实,插本离...
一
师兄
的面试经历:对于销售职位来…
八一八我的求职经历,销售为主 今天接到最后一个在等的公司的offer,我的求职过程应该算告一段落了。本来不想写出来,因为河
Hawk: 无编程抓取淘女郎的所有高清照片
1.这是什么鬼? 哦?美女? 最近看了这一篇文章:http://cuiqingcai.com/
100
1.html 大概说的是用Python和Pyspider(这货好像是我的一位
师兄
写的,吓尿),抓取淘宝淘女郎的所有美女照片。只是里面还要敲一堆代码,还要用其他动态js运行框架,看着好不烦人啊。 Hawk是沙漠君开发的一款爬虫和清洗工具,目前已经在Github开源: https://github.co...
朋友都问:在美团暑期实习将近半年,真的值得吗?
因为很多人问我中兴薪资结构,就给大家说一下,不过大家在洽谈的时候也不要显得自己很懂的样子,还是要问清楚呀!八大职类:技术类、供应链类、产品类、运营类、设计类、职能类、风控类、商品。一面 到了就进去了 问项目问的很细,然后问我关于链表的东西还让我画啥,冒泡排序就这些问题出来都以为自己凉了hr面 就一些常规问题主管面 记得问了一个学生和工作会。bg:双非硕 cpp选手 #晒一晒我的offer# #谈薪时HR压价该怎么应对# #offer决赛圈,我是怎么选的# 1.百度在北京总部,但是要转go,担心试用。
大佬们,鹏新旭的一面主要会问什么问题啊,很急,明天面试了.
可恶啊,看别人都说一面是hr面,怎么我这直接上来技术面,我傻傻以为是hr面,一点准备都没有[牛泪]问题很多,想不起来全部,只记得被拷打了足足5。#面经# 总共十来
分
钟,面试官和蔼无八股拷打,base珠海1.自我介绍2.问项目老套路了3.根据项目提出问题看你遇到过没,怎么解决4.问了我专利,随便说了说就过。一个场景题求最短路问题,使用了bfs。第一题,模拟,成功签到第二题,模拟,如何判断点在矩形内或者圆心内,用例过了,不知道为啥AC不了第三题,排序+滑动窗口,也可以多重背包,背包问题改编第四题,感觉是。
ASP
28,391
社区成员
357,060
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章