下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 aspupload组件使用实例代码(The aspupload component uses t…

aspupload组件使用实例代码(The aspupload component uses the instance code).doc

aspupload组件使用实例代码(The aspupload…

Moira成兰
2018-04-30 0人阅读 举报 0 0 暂无简介

简介:本文档为《aspupload组件使用实例代码(The aspupload component uses the instance code)doc》,可适用于社会民生领域

aspupload组件使用实例代码(Theaspuploadcomponentusestheinstancecode)aspupload组件使用实例代码(Theaspuploadcomponentusestheinstancecode)<=false>enablesessionstate<Responseexpires=PID=request("PID")Timaeus=request("to")Setuploadprogress=servercreateobject("persitsuploadprogress")Format="<br><center><b>正在上传,请耐心等待<b><><br>centerTTBt速度:(s秒)估计剩余时间:RRUv(P)lT"Thebarcontent=uploadprogressformatprogress(PID,Timaeus,"#f"format)If"=barcontentthen><HTML><head><title>uploadfinished<Title><scriptlanguage="JavaScript">Functioncloseme(){Windowparentclose()Returntrue}Script><Head<><bodyonload="closeme()"bgcolor="menu"><body>HTML><<Else'notfinishedyet><HTML><head><metahttpequiv="Refresh"content="Url=<ResponseWrite("URL")requestservervariablesResponseWrite"To="theTimaeus"PID="PID>"><title>uploadingfilestitle<><styletype="textCSS">Body,TD{fontfamily:Tahomafontsize:pt}Tdspread{fontsize:ptlineheight:pt}Tdbrick{fontsize:ptheight:px}Style><Head<>Bgcolor="menu"<body>topmargin=<=barcontent><body>HTML><Endif><Fileconfigasp<Dimuploadfilepath,uploadlimitsize,notallowfileext,browerfilepathUploadfilepath=year(now)""month(now)""Day(now)""'文件上传路径Browerfilepath=""Uploadlimitsize=*'最大上传文件大小,单位为kNotallowfileext="ASP|cer|CDX|wing|HTW|IDA|IDq|SHTM|shtml|STM|printer||PHPCGI|PHP|CFM|ASPX"'不可以上传的文件类型Functioncanupload(fileurl)Fileurl=lcase("|"mid(fileurl,InStrRev(fileurl,""))"|")Notallowfileextstr="|""notallowfileext|"Ifinstr(notallowfileextstr,fileurl)>thenCanupload=falseElseCanupload=trueEndifEndfunctionFunctioncreatefolder(filepath)DimFSO,FOnerrorsummarizednextSetFSO=CreateObject("scriptingfilesystemobject")Ifnotfsofolderexists(filepath)thenThesetF=fsocreatefolder(filepath)ThesetF=nothingEndifSetFSO=nothingendfunction>framebarasp<enablesessionstate=false<responseexpires=<title><title>正在上传styletype="textcsstd>{fontfamily:tahomafontsize:pt}><style<bodybgcolor="menu"scroll="no"frameborder="no"status="no"style="border:px"><scriptlanguage="javascript"><!functionstopupload(){if(typeof(windowopener)="undefined"){try{windowopenerdocumentexeccommand("stop")}catch(e){}}elseif(typeof(windowdialogarguments)="undefined"){try{windowdialogargumentsdocumentexeccommand("stop")}catch(e){}}windowclose()}><script>iframesrc="barasppid=<=request("pid")"to="request("to")>"title="uploading"noresizescrolling=noframeborder=framespacing=width=height=><iframe>tableborder=""width=""cellpadding=""cellspacing=""><tr><tdalign="center"><buttononclick="stopupload()"style="fontsize:px"><>取消上传button<td><q>table><<a>html><uploadfileasp<!#includesfile=fileconfigasp><!htmldoctypepublic"wcdtdhtmltransitionalen"><html><head><metahttpequivalent="contenttype"content="texthtmlcharset=gb"><metaname="keywords"content="windowsnet"><metaname="author"content="haiwa"><title><title>uploadwindowsnet><style<!*{font:px}>><style<a><body><onerrorresumenextserverscripttimeout=ifrequest("act")="upload"thendimfolder,savepathsavepath=servermappath(uploadfilepath)createfolder(savepath)setupload=servercreateobject("persitsupload")uploadsetmaxsizeuploadlimitsize*,trueuploadoverwritefiles=falseifrequestquerystring("pid")=""thenuploadprogressid="debcaab"elseuploadprogressid=requestquerystring("pid")endifcount=uploadsave(savepath)iferrnumber<>thenresponsewrite"<divstyle="color:redfontsize:px">出现错误"errnumber"、"errdescription"<ahref="javascript:historygo()">重新上传<a><div>"endififerrnumber=)responsewrite"<divstyle=""color:redfontsize:px"">你上传的文件超过限制("uploadlimitsizem)<ahref="javascript:historygo()">重新上传<a><div>"responseendendifdiminputnamedimsize,rsupfileforeachfileinthefileuploadifnotcanupload(fileext)thendeletefileresponsewrite"<divstyle=""color:redfontsize:px"">"filefilename"("filesize")格式不正确!<ahref="javascript:historygo()">重新上传<a><div>"elsedimnewnamenewname=year(now)":"month(now)":"day(now)":"hour(now)":"minute(now)":""(now)fileextfilemovesavepath""newnameresponsewrite"<divstyle=""color:greenfontsize:px""><!"filefilename","filesize")>上传成功"><ahref="javascript:historygo()重新上传"><a><div><endifnextelse><dimspid,pid,barrefsetuploadprogress=servercreateobject("persitsuploadprogress")spid=uploadprogresscreateprogressid()pid="pid="spidbarref="framebaraspto="pid><scriptlanguage="javascript">functionshowprogress(){strappversion=navigatorappversionif(documentmyformfilevalue!=""){if(strappversionindexof(msie)=strappversionsubstr(strappversionindexof(msie))>){winstyle="dialogwidth=pxdialogheight:pxcenter:yesstatus:no"windowshowmodelessdialog('<=barref>b=ie,window,winstyle)}else{windowopen('<=barref>b=nn','','width=,height=,true)}}returntrue}superfluous()function{if(myformfilevalue==""){alert("请从硬盘选择你要上传的文件")returnfalse}}<script><formname="myform"method="post"enctype="multipartformdata"action="<=pid>act=upload"onsubmit="returnshowprogress()"><输入名称=“file”type=“文件大小=“”>“<输入名称=“提交”type=“提交”value=“上传”onclick=“回归chk()”><形式><结束如果><身体><>

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/10

aspupload组件使用实例代码(The aspupload component uses the instance code)

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利