企业400电话
微网小程序
AI电话机器人
电商代运营
全 部 栏 目
企业400电话
网络优化推广
AI电话机器人
呼叫中心
网站建设
商标✡知产
微网小程序
电商运营
彩铃•短信
增值拓展业务
无组件上传图片之文件采用方案
首先
,图片在页面中能查找选择。设计表单页面
index.asp
和上传选择页
upload.asp
,upload.asp在index.asp中以iframe包含。
其次
,所选图片应能上传到某文件夹。建立一文件夹
uploadimg
最后
,传上去的图片应如何引用?很显然,采用UBB立即显示。upload.asp的指向对象upfile.asp具有写入UBB标签的功能。
无组件上传调试文件夹
-- index.asp
-- upload.asp
-- upfile.asp
-- uploadimg文件夹
图片上传采用稻香老农的无组件上传。所以upload.inc文件必不可少。
1,upload.inc(拷贝以下文本框的所有代码)
SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> dim upfile_5xSoft_Stream Class upload_5xSoft dim Form,File,Version Private Sub Class_Initialize dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr Version="" if Request.TotalBytes1 then Exit Sub set Form=CreateObject("Scripting.Dictionary") set File=CreateObject("Scripting.Dictionary") set upfile_5xSoft_Stream=CreateObject("Adodb.Stream") upfile_5xSoft_Stream.mode=3 upfile_5xSoft_Stream.type=1 upfile_5xSoft_Stream.open upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes) vbEnter=Chr(13)Chr(10) iDivLen=inString(1,vbEnter)+1 strDiv=subString(1,iDivLen) iFormStart=iDivLen iFormEnd=inString(iformStart,strDiv)-1 while iFormStart iFormEnd iStart=inString(iFormStart,"name=""") iEnd=inString(iStart+6,"""") mFormName=subString(iStart+6,iEnd-iStart-6) iFileNameStart=inString(iEnd+1,"filename=""") if iFileNameStart>0 and iFileNameStartiFormEnd then iFileNameEnd=inString(iFileNameStart+10,"""") mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10) iStart=inString(iFileNameEnd+1,vbEntervbEnter) iEnd=inString(iStart+4,vbEnterstrDiv) if iEnd>iStart then mFileSize=iEnd-iStart-4 else mFileSize=0 end if set theFile=new FileInfo theFile.FileName=getFileName(mFileName) theFile.FilePath=getFilePath(mFileName) theFile.FileSize=mFileSize theFile.FileStart=iStart+4 theFile.FormName=FormName file.add mFormName,theFile else iStart=inString(iEnd+1,vbEntervbEnter) iEnd=inString(iStart+4,vbEnterstrDiv) if iEnd>iStart then mFormValue=subString(iStart+4,iEnd-iStart-4) else mFormValue="" end if form.Add mFormName,mFormValue end if iFormStart=iformEnd+iDivLen iFormEnd=inString(iformStart,strDiv)-1 wend End Sub Private Function subString(theStart,theLen) dim i,c,stemp upfile_5xSoft_Stream.Position=theStart-1 stemp="" for i=1 to theLen if upfile_5xSoft_Stream.EOS then Exit for c=ascB(upfile_5xSoft_Stream.Read(1)) If c > 127 Then if upfile_5xSoft_Stream.EOS then Exit for stemp=stempChr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))ChrB(c))) i=i+1 else stemp=stempChr(c) End If Next subString=stemp End function Private Function inString(theStart,varStr) dim i,j,bt,theLen,str InString=0 Str=toByte(varStr) theLen=LenB(Str) for i=theStart to upfile_5xSoft_Stream.Size-theLen if i>upfile_5xSoft_Stream.size then exit Function upfile_5xSoft_Stream.Position=i-1 if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then InString=i for j=2 to theLen if upfile_5xSoft_Stream.EOS then inString=0 Exit for end if if AscB(upfile_5xSoft_Stream.Read(1))>AscB(MidB(Str,j,1)) then InString=0 Exit For end if next if InString>0 then Exit Function end if next End Function Private Sub Class_Terminate form.RemoveAll file.RemoveAll set form=nothing set file=nothing upfile_5xSoft_Stream.close set upfile_5xSoft_Stream=nothing End Sub Private function GetFilePath(FullPath) If FullPath > "" Then GetFilePath = left(FullPath,InStrRev(FullPath, "\")) Else GetFilePath = "" End If End function Private function GetFileName(FullPath) If FullPath > "" Then GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1) Else GetFileName = "" End If End function Private function toByte(Str) dim i,iCode,c,iLow,iHigh toByte="" For i=1 To Len(Str) c=mid(Str,i,1) iCode =Asc(c) If iCode0 Then iCode = iCode + 65535 If iCode>255 Then iLow = Left(Hex(Asc(c)),2) iHigh =Right(Hex(Asc(c)),2) toByte = toByte chrB("H"iLow) chrB("H"iHigh) Else toByte = toByte chrB(AscB(c)) End If Next End function End Class Class FileInfo dim FormName,FileName,FilePath,FileSize,FileStart Private Sub Class_Initialize FileName = "" FilePath = "" FileSize = 0 FileStart= 0 FormName = "" End Sub Public function SaveAs(FullPath) dim dr,ErrorChar,i SaveAs=1 if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function if FileStart=0 or right(fullpath,1)="/" then exit function set dr=CreateObject("Adodb.Stream") dr.Mode=3 dr.Type=1 dr.Open upfile_5xSoft_Stream.position=FileStart-1 upfile_5xSoft_Stream.copyto dr,FileSize dr.SaveToFile FullPath,2 dr.Close set dr=nothing SaveAs=0 end function End Class /SCRIPT>
[Ctrl+A 全部选择进行拷贝 提示:可先修改部分代码,再点击运行]
2,表单页面
index.asp
。注意框架包含的上传选择页
upload.asp
form name="form_name" method="POST" action="add.asp"> textarea cols="100" name="cn_content" rows="18" width="100%">/textarea> /form> iframe border="0" frameBorder="0" noResize scrolling="no" width="100%" src="upload.asp">/iframe>
[Ctrl+A 全部选择进行拷贝 提示:可先修改部分代码,再点击运行]
3,上传选择页
upload.asp
注意: enctype="multipart/form-data"
form name="form" method="post" action="upfile.asp" enctype="multipart/form-data"> input type="hidden" name="filepath" value="uploadimg"> input type="hidden" name="act" value="upload"> input type="file" name="file1" size=40> input type="submit" class=button name="Submit" value="上传图片" onclick="parent.document.forms[0].Submit.disabled=true">类型:gif,jpg,限制:100K /form>
[Ctrl+A 全部选择进行拷贝 提示:可先修改部分代码,再点击运行]
4,最后一 个文件
upfile.asp
主要作用:生成图片名,并将图片上传,同样也要将UBB标签写入index.asp中的textarea中。
(拷贝以下文本框的所有代码)
!--#include file="upload.inc"--> html> head> title>文件上传/title> /head> body> script> parent.document.forms[0].Submit.disabled=false; /script> % dim upload,file,formName,formPath,iCount,filename,fileExt set upload=new upload_5xSoft ''建立上传对象 formPath=upload.form("filepath") ''在目录后加(/) if right(formPath,1)>"/" then formPath=formPath"/" response.write "body>" iCount=0 for each formName in upload.file ''列出所有上传了的文件 set file=upload.file(formName) ''生成一个文件对象 if file.filesize100 then response.write "请选择你要上传的文件 [ a href=# onclick=history.go(-1)>重新上传/a> ]" response.end end if if file.filesize>100*1000 then response.write "文件大小超过了限制100K [ a href=# onclick=history.go(-1)>重新上传/a> ]" response.end end if fileExt=lcase(right(file.filename,4)) uploadsuc=false Forum_upload="gif,jpg,png" Forumupload=split(Forum_upload,",") for i=0 to ubound(Forumupload) if fileEXT="."trim(Forumupload(i)) then uploadsuc=true exit for else uploadsuc=false end if next if uploadsuc=false then response.write "文件格式不正确 [ a href=# onclick=history.go(-1)>重新上传/a> ]" response.end end if randomize ranNum=int(90000*rnd)+10000 filename=formPathyear(now)month(now)day(now)hour(now)minute(now)second(now)ranNumfileExt if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据 file.SaveAs Server.mappath(FileName) ''保存文件 for i=0 to ubound(Forumupload) if fileEXT="."trim(Forumupload(i)) then response.write "script>parent.form_name.cn_content.value+='[img]"FileName"[/img]'/script>" exit for end if next iCount=iCount+1 end if set file=nothing next set upload=nothing ''删除此对象 Htmend iCount" 个文件上传结束!" sub HtmEnd(Msg) set upload=nothing response.write "上传成功 [ a href=# onclick=history.go(-1)>继续上传/a>]" response.end end sub %> /body> /html>
[Ctrl+A 全部选择进行拷贝 提示:可先修改部分代码,再点击运行]
当然,保持图片的文件夹uploadimg不能少
您可能感兴趣的文章:
在无组件的情况下,如何上传图片?
asp.net MVC实现无组件上传图片实例介绍
上一篇:
ASP初学者常犯的几个错误(ZT)
下一篇:
ASP编程入门进阶(二十):ADO组件之查询数据记录
相关文章
无组件上传图片之文件采用方案
首先 ,图片在页面中能查找选择。设计表单页面 index.asp 和上传选择页 upload.asp ,upload.asp在index.asp中以iframe包含。 其次 ,所选图片应能上传到某文件夹。建立一文件夹 uploadimg 最后 ,无,组件,上传,图片,之,文件,...
市民可用微信地图标注违法犯罪行为
日前,中山市公安局微信集成服务平台正式上线,将办事服务、信息发布、警民互动三...
工业物联网监控之物联网卡采购注意事项篇
物联网自发展以来,为多个行业领域硬件设备提供物联网连接方案,赋能硬件设备提升...
重庆ai智能电话机器人(重庆智能机器人生产厂家)
今天给各位分享重庆ai智能电话机器人的知识,其中也会对重庆智能机器人生产厂家进...
机灵燕ai智能电话机器人(小灵灵智能语音机器人)
今天给各位分享机灵燕ai智能电话机器人的知识,其中也会对小灵灵智能语音机器人进...
400电话可以帮助企业营销宣传(400电话可以帮助企业营销
400电话是企业电话,只有正规的企事业单位,个体工商户可以办理。400电话可以有效提...
分钟王app办理
分钟王app办理,办理分钟王软件,分钟王app下载,分钟王代理 文章上方有亿卡惠通信客服电...
湖南定做企业外呼管理系统(长沙外呼系统公司)
本篇文章给大家谈谈湖南定做企业外呼管理系统,以及长沙外呼系统公司对应的知识点...
电销系统手机能用吗(电销用的电话系统哪些)
本文目录一览: 1、电销系统哪款比较好?要求可以手机拨打,而且可以群呼,求推荐!...
辽阳自动外呼系统(自动外呼什么意思)
今天给各位分享辽阳自动外呼系统的知识,其中也会对自动外呼什么意思进行解释,如...
河南电商专用外呼机器人多少钱-浅析
河南电商专用外呼机器人多少钱外包型呼叫中心系统则指用户将自身的呼叫相关业务外...
做电话营销怎么样
2、那么多家电话机器人有什么区别?【做电话营销怎么样】 外呼机器人具有强大的学...
一文读懂小云AI机器人
随着企业规模和客户需求的不断增大,企业需要解决大量的前期咨询和售后问题。在这...
百度地图标注移动时代’关键数字’来临
在最近大热的科幻大片《超体》中,每逢大脑开发的百分比数字提高10%都会进入到一个...
防封电销机器人招商(防封电销app)
本篇文章给大家谈谈防封电销机器人招商,以及防封电销app对应的知识点,希望对各位...
中小企业励销电话机器人(电销机器人加盟代理)
本文目录一览:1、电销机器人有什么用?2、励销云打电话系统中用人工打电话吗3、如何...
无组件上传图片之文件采用方案
首先 ,图片在页面中能查找选择。设计表单页面 index.asp 和上传选择页 upload.asp ,upload.asp在index.asp中以iframe包含。 其次 ,所选图片应能上传到某文件夹。建立一文件夹 uploadimg 最后 ,无,组件,上传,图片,之,文件,...
咨 询 客 服