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

📄 cf_upfile.asp

📁 1.核心采用.Net、Mssql数据库、存储过程、缓存技术构建
💻 ASP
字号:
🔍 
<%
'乘风多用户计数器
'制作：乘　风
'QQ：178575
'E-Mail：yliangcf@163.com
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfcount
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<!--#include FILE="Conn.asp"-->
<!--#include FILE="CF_UpFile_Class.asp"-->
<%If Request("Action")="" Then%>
<body leftmargin="0" topmargin="0">
<form name="form1" method="post" action="?Action=upsave" enctype="multipart/form-data">
<input type=file name="img">
<input type=submit name="submit" value="上传">
<%
Session("CFCountUserType")=Request("CFCountUserType")
%>
</form>
<%End If%>


<%If Request("Action")="upsave" Then%>
<%
 Const UpFileType="jpg|gif" '允许的上传文件类型
 Const MaxFileSize="100" '允许的最大上传文件多少K
 FormName="img"'上传的表单名称
 SavePath="Upload"   '存放上传文件的目录
 If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目录后加(/)
 
 If Session("CFCountUserType")="admin" Then
  FileName=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
 ElseIf Session("CFCountUserType")="user" Then
  FileName=Session("CFcountUser")
 End If

 set upfile=new upfile_class ''建立上传对象
 upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;"	'设置上传类型的黑名单
 upfile.GetData (10240000)   '取得上传数据,限制最大上传10M

 Set File=UpFile.File(FormName)    
 If file.filesize<100 Then
  Response.Write "<script language='javascript'>" & VbCRlf
  Response.Write "alert('请先选择你要上传的文件！');" & VbCrlf
  Response.Write "history.go(-1);" & vbCrlf
  Response.Write "</script>" & VbCRLF
  Response.End
 End If
 If File.filesize>(MaxFileSize*1024) Then
  Response.Write "<script language='javascript'>" & VbCRlf
  Response.Write "alert('上传的文件大小超过限制！');" & VbCrlf
  Response.Write "history.go(-1);" & vbCrlf
  Response.Write "</script>" & VbCRLF
  Response.End
 End If
		
 FileExt=Lcase(File.FileExt)
 ForumUpload=Split(UpFileType,"|")
 For I=0 To Ubound(ForumUpload)
  If fileEXT=Trim(Forumupload(i)) Then
   EnableUpload=True
   Exit For
  End If
 Next
 If FileExt="asp" Or FileExt="asa" or FileExt="aspx" Then EnableUpload=False
 If EnableUpload=False Then
  Response.Write "<script language='javascript'>" & VbCRlf
  Response.Write "alert('对不起,不支持这类文件上传!');" & VbCrlf
  Response.Write "history.go(-1);" & vbCrlf
  Response.Write "</script>" & VbCRLF
  Response.End
 End If
		

 FilePath=SavePath&FileName&"."&FileExt
 FileName1=FileName&"."&FileExt

 UpFile.SaveToFile FormName,Server.MapPath(FilePath)
 Set UpFile=nothing



 If Session("CFCountUserType")="admin" Then
  set rs=server.createobject("adodb.recordset")
  sql="select Top 1 * from CFCount_Upfile"
  rs.open sql,conn,3,2
  rs.addnew
  rs("FileName")=FileName1
  rs.update
  

  Response.Write "<script language='javascript'>" & VbCRlf
  Response.Write "alert('上传成功!');" & VbCrlf
  Response.Write "top.location.href = 'CF_Admin_Manage.asp?Action=imglist';" & vbCrlf
  Response.Write "</script>" & VbCRLF  
 ElseIf Session("CFCountUserType")="user" Then
  Set Rs=Server.CreateObject("Adodb.RecordSet")
  Sql="Select * From CFCount_User where UserName='"&Session("CFcountUser")&"'"
  Rs.Open Sql,Conn,3,2
  Rs("ImgFileName")=FileName1
  Rs.Update
  
 
  Response.Write "<script language='javascript'>" & VbCRlf
  Response.Write "alert('上传成功!');" & VbCrlf
  Response.Write "top.location.href = 'Manage.asp?Action=imglist';" & vbCrlf
  Response.Write "</script>" & VbCRLF
 End If
%>
<%End If%>

⌨️ 快捷键说明

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