📄 admin_upfile.asp

📁 新闻发布系统
💻 ASP
字号:
<!--#include file = conn.asp-->
<!--#include file = session.asp-->
<!--#include FILE="Inc/upload.inc"-->
<html>
<head>
<title>文件上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body leftmargin="0" topmargin="4" bgcolor="#E6F1FB">
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯图文信息系统
'当前版本：2004.I.0225
'=========================================================
'Copyright (C) 2002-2003 cooin.com. All rights reserved.
'网站: http://www.cooin.com
'程序制作：轻风云(QQ:655071)  skeen@cooin.com,skeen@263.net,skeen@sohu.com  
'论坛支持：风讯论坛(http://www.cooin.com/bbs)
'=========================================================
%>
<%
  dim upload,file,formName,formPath,iCount,fileext,filename
  Domain=Request.ServerVariables("SERVER_NAME")
  soFilePath=Request.ServerVariables("PATH_INFO")
  soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
  sowinpath="http://"&Domain&soFilePath
  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
  set upload=new upload_5xSoft
  formPath="../Files/upfile"
  iCount=0
  for each formName in upload.file
    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("<font size=2>上传文件太大。请<a href=""javascript:history.back();"">返回</a></font>")
      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" then FindFile=false
    if FindFile=false then
      response.write("<font size=2>上传文件类型错误。请<a href=""javascript:history.back();"">返回</a></font>")
      response.end
    end if
    if file.FileSize>0 then
    file.SaveAs Server.mappath(formPath&FileName&"."&fileext)   ''保存文件
      response.write("<font color=red size=2>"&sowinpath&"Files/upfile/"&FileName&"."&fileext&"</font>[<a href=""javascript:history.back();""><font size=2>返回</font></a>]<br>")
      iCount=iCount+1
    else
      response.write "<font size=2 color=#0000ff>请选择你要上传的文件!![<a href=""javascript:history.back();"">返回</a>]</font>"
    end if
    set file=nothing
  next
  set upload=nothing
  rs.close
  set rs=nothing
%>
⌨️ 快捷键说明

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