⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 upfile.asp

📁 视频源代码 视频源代码
💻 ASP
字号:
🔍 
<%if Session("admin")="" then%>
<html>
<head>
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>易影中国 >> 系统管理 >> 上传文件</title>
<style>
body{margin:0px;scrollbar-face-color:buttonface;scrollbar-highlight-color:buttonface;scrollbar-shadow-color:buttonface;scrollbar-3dlight-color:buttonhighlight;scrollbar-arrow-color:#797979;scrollbar-track-color:#EEEEEE;scrollbar-darkshadow-color:buttonshadow}
body,a,table,div,span,td,th,input,select{font:9pt;font-family: "宋体", Verdana, Arial, Helvetica, sans-serif;}
.text{border:1 solid buttonface;background-color:buttonhighlight}
.button{height:18;border:1 ridge buttonhighlight;background-color:buttonface}
#do{background-color:ffffff;color:FF8000;text-align:center;width:8pt;height:8pt;corsur:hand}
#box{width:9pt;height:9pt;}
</style>
<body onSelectStart="event.returnValue=false;" onConTextMenu="event.returnValue=false">

<table border=0 cellPadding=0 cellSpacing=0 height="100%" width="100%">
  <tbody>
  <tr><td align=middle>

<table border="0" cellpadding="3" cellspacing="2" width="200" align="center" bgcolor="EAEAEA">
  <form name="form" method="post" action="default.asp">
  <tr><th bgcolor="AAAAAA" colspan="2">管 理 员 登 陆</td></tr>
  <tr><td>用户名</td><td><input class="text" type="text" name="adminname"></td></tr>
  <tr><td>口　令</td><td><input class="text" type="Password" name="adminpass"></td></tr>
  <tr><td></td><td align="center">
    <input class="button" type="submit" value="登　陆">
    <input class="button" type="reset" value="取　消">
  </td></tr>
  </form>
</table>
<br><br><br>
<table>
  <tr><td>
<b>本软件声明：</b><br><br>
　　·本软件本身不含攻击性及违反当地法规、国家法律和国际法律的资料。<br><br>
　　·凡使用本软件必须遵守有关法律，自觉约束使用行为。<br><br>
　　·不能使用本软件进行他人服务器破坏活动。<br><br>
　　·未经资料所有人允许，不能使用本软件进行资料复制、修改或删除行为。<br><br>
　　·非法使用本软件进行破坏行为、非法行为及违反法律行为，都与本软件作者无关。<br><br>
  </td></tr>
  <tr><td height="50" align=right>
Copyright &copy; 2001～2002 <a href="http://www.zwcity.com" style="color:0000FF">ZWCITY.COM</a> 易影中国. All rights reserved.
  </td></tr>
</table>

  </td></tr>
</table>
<%Response.end
  end if%>

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
dim zwcity_Stream

Class upload_zwcity
  
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

if Request.TotalBytes<1 then Exit Sub
set Form=CreateObject("Scripting.Dictionary")
set File=CreateObject("Scripting.Dictionary")
set zwcity_Stream=CreateObject("Adodb.Stream")
zwcity_Stream.mode=3
zwcity_Stream.type=1
zwcity_Stream.open
zwcity_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 iFileNameStart<iFormEnd then
   iFileNameEnd=inString(iFileNameStart+10,"""")
   mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
   iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)
   iEnd=inString(iStart+4,vbEnter&strDiv)
   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,vbEnter&vbEnter)
   iEnd=inString(iStart+4,vbEnter&strDiv)

   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
 zwcity_Stream.Position=theStart-1
 stemp=""
 for i=1 to theLen
   if zwcity_Stream.EOS then Exit for
   c=ascB(zwcity_Stream.Read(1))
   If c > 127 Then
    if zwcity_Stream.EOS then Exit for
    stemp=stemp&Chr(AscW(ChrB(AscB(zwcity_Stream.Read(1)))&ChrB(c)))
    i=i+1
   else
    stemp=stemp&Chr(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 zwcity_Stream.Size-theLen
   if i>zwcity_Stream.size then exit Function
   zwcity_Stream.Position=i-1
   if AscB(zwcity_Stream.Read(1))=AscB(midB(Str,1)) then
    InString=i
    for j=2 to theLen
      if zwcity_Stream.EOS then 
        inString=0
        Exit for
      end if
      if AscB(zwcity_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
  zwcity_Stream.close
  set zwcity_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 iCode<0 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
    zwcity_Stream.position=FileStart-1
    zwcity_Stream.copyto dr,FileSize
    dr.SaveToFile FullPath,2
    dr.Close
    set dr=nothing 
    SaveAs=0
  end function
End Class
</SCRIPT>

<%
  Server.ScriptTimeout = 9999999

  ON ERROR RESUME NEXT

  Set upload=new upload_zwcity

'文章上传图片
  path=upload.form("path")
  Set filedata=upload.file("filename")

'调用
  Set fso=CreateObject("Scripting.FileSystemObject")
  if fso.FolderExists(path)=false then
    error="<br><Br>该目录不存在！"
  end if
  Set fso=nothing

  filedata.saveAs path&filedata.filename

  Set filedata=nothing
  Set upload=nothing%>
<html>
<head>
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body scroll="no" bgColor="#003063">
<script>
top.location.reload();
</script>
<%response.end%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -