📄 nupfile.asp

📁 天创商务网客户资源管理系统 v1,asp+Access,iis5

💻 ASP

字号:

<!--#include file = include.asp -->
<!--#include FILE="upload.inc"-->
<html>
<head>
<title>文件上传</title>
</head>
<%
  dim upload,file,formName,formPath,iCount,fileext,filename
  Domain=Request.ServerVariables("SERVER_NAME")
  gFilePath=Request.ServerVariables("PATH_INFO")
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  CountN=len(gFilePath)
  gFilePath=lcase(left(gFilePath,CountN-1))
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  AllPath="http://"&Domain&gfilepath
  set upload=new upload_5xSoft
  formPath="../upfile/"
  iCount=0

for each formName in upload.file ''列出所有上传了的文件
    month1=month(now)
    if Month1<10 then Month1="0"&Month1
    day1=day(now)
    if day1<10 then day1="0"&day1
    hour1=hour(now)
    if hour1<10 then hour1="0"&hour1
    minute1=minute(now)
    if minute1<10 then minute1="0"&minute1
    second1=second(now)
    if second1<10 then second1="0"&second1
    FileName=Year(now)&Month1&Day1&Hour1&Minute1&Second1&"-"&iCount
    set file=upload.file(formName)  ''生成一个文件对象
    set file=upload.file(formName)
    FileExt = lcase(right(file.FileName,3))
    set rs = server.createobject("adodb.recordset")
    sql = "select ConfineFile,FileSize from Config"
    rs.open sql,conn,1,1
    if file.FileSize > rs("FileSize")*1000 then
      response.write("<center><font size=2>上传文件太大。请<a href=""javascript:history.back();"">返回</a></font></center>")
      response.end
    end if
    FileNum=split(rs("ConfineFile"),",")
    FindFile=false
    for i=1 to UBound(FileNUM)
      if FileExt=lcase(trim(FileNum(i))) then
        FindFile=true
        exit for
      end if
    next
	if FileExt="asp" or FileExt="exe" or FileExt="cgi" or FileExt="php" then FindFile=false
    if FindFile=false then
      response.write("<center><font size=2>上传文件类型错误。请<a href=""javascript:history.back();"">返回</a></font></center>")
      response.end
    end if


   
   if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
     file.SaveAs Server.mappath(formPath&FileName&"."&fileext)   ''保存文件
     response.write("文件名：<a href="&AllPath&"upfile/"&FileName&"."&fileext&" target=_blank>"&FileName&"."&fileext&"</a><br>[ <a href=# onclick=""Addpic('"&AllPath&"upfile/"&FileName&"."&fileext&"')""><font color=#ff0000>点击添加到编辑器中</font></a> ]<br>")
     iCount=iCount+1
  end if
  set file=nothing
next
  
  response.write("<br><br><center><a href=""javascript:history.back();""><font color=#0000ff>[ 继续上传文件 ]</font></a></center>")
  set upload=nothing
  rs.close
  set rs=nothing
%>

💿 文件大小 322 K

👤 上传用户 wylyyzjz

📂 所属分类 OA系统

🏷️ 相关标签

#Access #asp #iis #天创

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -