 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% \\\' upload.asp Function IntMin(n,y) If n<y and n>0 Then IntMin=Int(n) ElseIf y>0 Then IntMin=Int(y) Else IntMin=n End If End Function Function getFormValue(Name) Dim formSize,formData,DataHeader,DataStart,DataEnd,formNameStart,formNameEnd,formName,firstFilter formSize=Request.TotalBytes() formData=Request.BinaryRead(formSize) firstFilter=true For i=1 to Len(Name) tmp=tmp&ChrB(AscB(Mid(Name,i,1))) Next Name=tmp DataEnd=0 DataStart=0 Do While formSize>0 formData=RightB(formData,formSize-DataEnd-DataStart+1) formSize=formSize-DataEnd-DataStart+1 DataHeader=LeftB(formData,InStrB(formData,Chrb(13)&Chrb(10))-1) DataStart=InStrB(formData,ChrB(13)&ChrB(10)&ChrB(13)&ChrB(10))+4 DataEnd=InStrB(DataStart+1,formData,DataHeader)-DataStart If DataStart<0 or DataEnd<=0 Then Exit Do filteredData=MidB(formData,DataStart,DataEnd-1) formNameStart=InStrB(formData,ChrB(AscB("n"))&ChrB(AscB("a"))&ChrB(AscB("m"))&ChrB(AscB("e"))&ChrB(AscB("="))&ChrB(AscB("""")))+6 formNameEnd=intMin(InStrB(formNameStart,formData,ChrB(13)&ChrB(10))-formNameStart-1,InStrB(formNameStart,formData,ChrB(AscB(";")))-formNameStart-1) formName=MidB(formData,formNameStart,formNameEnd) If Name=formName Then getFormValue=filteredData Exit Function End If Loop getFormValue=Name&" Not Found!" End Function Response.binaryWrite(getFormValue("loadfromfile"))\\\'这个loadfromfile就是表单名啦~ %> 返回类别: 教程 上一教程: ASP中FSO的神奇功能 - 文件读取 下一教程: 手把手教你使用JAVA来编写ASP组件(6) 您可以阅读与"二文件上传,才30行代码"相关的教程: · 无组件文件上传代码实例 · 6行代码实现无组件上传 · ASP实例:6行代码实现无组件上传 · 一个的无组件上传的ASP代码 · 《支持中文的无组件文件上传》-- UPLOAD.INC |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
