upload_class.asp

这是作的一个网站,修改很方便,可以做网站设计.管理登陆：admin.asp 帐号和密码：admin/admin

<!--#include file="Include/Gaobei_setup.asp"-->
<!--#include file="Include/check.asp"-->
<!--#include file="upload.inc" -->
<%
    CheckAdmin1
    Class LBUpload
	Public Id
	Public FileName
	Public DateAndTime
	Public FileSize
	Public Extension
	Public Category
	Public Description
	Public Version
	Public ActionConn
	Private limExtension
	Private limFileSize
	Private Up
	Private Upid

	'构造函数
	Private Sub Class_Initialize
		set ActionConn=conn
		Upid=1
		Reset()
		UpObject()
	end sub
	
	'解析函数
	Private Sub Class_Terminate 
		Reset()
		Set Up=Nothing
	end sub
	
	'重置属性函数
	private Sub ReSet()
		Version="Gaobei_Sys Ver1.0.0"
		FileName=""
		DateAndTime=Now()
		FileSize=0
		Extension=""
		Category=""
		limExtension="jpg,gif,bmp,png,jpeg,rar,zip,doc"
		limFileSize=0
	End Sub
'# ----------------------------------------------------------------------------
'# 函数：upobject
'# 描述：建立上传对象
'#-----------------------------------------------------------------------------
	Private Function UpObject()
		Select Case Upid
		  Case 1
			Set Up=new upload_5xsoft
		  Case Else
		End Select
	End Function
'# ----------------------------------------------------------------------------
'# 函数：PageHtmlForm
'# 描述：显示页面上的表单
'#-----------------------------------------------------------------------------

		%>
		
		
		<% 
			Public Function PageHtmlForm()
		%>
		<BR>
		<div align="center">
		<form method="post" enctype="multipart/form-data" action="?action=<%=request.querystring("action")%>&fieldname=<%=request.querystring("fieldname")%>&formname=<%=request.querystring("formname")%>">
			
    <table class="table" width=280 border=0 cellpadding=0 cellspacing=0>
      
      
      <tr>	
        <td class="lefttd" align="center" width="41">文件:</td>
				
        <td width="236" class="righttd">&nbsp;&nbsp; 
          <input type="file" size=20 class="file" name="filesource" value=""></td>
			</tr>
			
			
			
			<tr style="display:none">
				
        <td class="lefttd" align="center" width="41">分类:</td>
				<td class="righttd">&nbsp;&nbsp;
				<select class="select" name="category" size="">
				<option value=""></option>
				</select></td>
			</tr>
			
			
			
			
			<tr style="display:none">
				
        <td class="lefttd" align="center">描述:</td>
				<td class="righttd">&nbsp;&nbsp;
          <textarea name="description" class="textarea"><%=Description%></textarea></td>
			</tr>
			</table>
			<BR>
			<table width=100% border=0 cellpadding=0 cellspacing=0>
			<tr>
				<td align="center" height="25"><input type="submit" class="button" value=" 确认上存 ">
         &nbsp;&nbsp; <input type="button" class="button01-out" value=" 取消上存 " onclick="window.close();"></td>
			</tr>
			</table>
		</form></div>
<% End Function %>
<%
'# ----------------------------------------------------------------------------
'# 函数：pageshowurl
'# 描述：显示上传结果连接地址的页面
'#-----------------------------------------------------------------------------
    Private Function PageShowUrl(url) 
%>
		<form method="post" action="" name="formresult">
		<table width=100% align="center" border=0 cellpadding=0 cellspacing=0>
		<tr>
			<td align="center">以下文本框的内容就是你刚才上传的文件的访问地址.</td>
		</tr>
		<tr>
		  <td height="20"></td>
		</tr>
		<TR><TD align="center"><input type="text" name="url" size="50" class="text" value="<%=url%>"></td></tr>
		<tr>
		  <td height="25" align="center"><a title="" href="#" onclick="window.close();">关闭窗口</a></td>
		</tr>
		</table>
		</form>
<SCRIPT LANGUAGE="JavaScript">
		<!--
		formresult.url.focus();
		formresult.url.select();
		//-->
</SCRIPT>
<%
    End Function
'# ----------------------------------------------------------------------------
'# 函数：GetUrl
'# 描述：取得文件的URl地址
'# 参数：fm-要取得url的文件
'# 返回：取得的URl，文本型
'#-----------------------------------------------------------------------------
	Private Function GetUrl(fm)
		Dim addr0,addr1,url
		addr0=request.servervariables("server_name")
		addr1=request.servervariables("url")
		addr1=replace(addr1,"up.asp","upfiles/article/"&fm)
		url="http://"&addr0&addr1
		GetUrl=url
	End Function
    Function ShowError(ErrInfo)
    Response.Write "<br><br><p align='Center'>"&ErrInfo&"<br><br><a href='#' onclick='window.close();'>关闭重新上存</a></p>"
    End Function
'# ----------------------------------------------------------------------------
'# 函数：Add
'# 描述：上传添加文件
'# 参数： id-使用的上传组件  1-化境编程的无组件上传
'#-----------------------------------------------------------------------------
	Public Function Add()
		Dim file
		Select Case Upid
		  Case 1
			Set file=Up.file("filesource")

			'取得表单的内容已经文件的信息
			FileName=file.filename
			DateAndTime=Now()
			FileSize=file.filesize
			'大小转换成以K为单位
			FileSize=formatnumber(FileSize/1024,2)

			'判断有效性
			If FileSize=0 And FileName="" Then
				Call ShowError("请选择要上传的文件")
				Exit Function
			End If
			If limFileSize>0 And CInt(FileSize)>LimFileSize Then
				Call ShowError("文件大小超过限制,请上传不大于"&limFileSize&"K的文件")
				Exit Function
			End If

			Extension=split(FileName,".")(ubound(split(FileName,".")))
			'判断有效性
			Extension=Lcase(Extension)
			If InStr(limExtension,Extension)=0 Then
				Call ShowError("该文件类型已经禁止上传")
				Exit Function
			End If
			Category=up.Form("category")
			Description=up.Form("description")
			'保存文件
			FileName=Year(dateandtime)&month(dateandtime)&day(dateandtime)&hour(dateandtime)&minute(dateandtime)&second(dateandtime)&"."&Extension
			file.saveas server.mappath("UploadFile/article/"&FileName)
			Set file=Nothing
		  Case Else
		End Select
		'记录数据库信息
		'Dim rs
		'Set rs=Conn.execute("select max(id) from upfiles")
		'Dim idd
		'If IsNull(rs(0)) Or rs(0)="" Then
		'	idd=1
		'Else
		'	idd=rs(0)+1
		'End If
		'ActionConn.execute("insert into upfiles (id,filename,dateandtime,filesize,extension,category,description) values ("&Idd&",'"&FileName&"','"&Dateandtime&"',"&FileSize&",'"&extension&"','"&category&"','"&description&"')")

		Response.Write "<script>window.returnValue ='UploadFile/article/"&FileName&"';window.close();</script>"
	End Function
'# ----------------------------------------------------------------------------
'# 函数：eWebList
'# 描述：eWeb文件上传页面
'#-----------------------------------------------------------------------------
Public Function eWebList() 
%>
<HTML>	
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
		body, a, table, div, span, td, th, input,tr, select{font:9pt;font-family: "宋体", Verdana, Arial, Helvetica, sans-serif;}
		body {padding:0px;margin:0px}
		</style>
<script language="JavaScript" src="dialog/dialog.js"></script>
</head>
		<body bgcolor=menu>
		<form action="?action=ewebsave&type=<%=sType%>&style=<%=sStyleName%>" method=post name=myform enctype="multipart/form-data">
		<input type=file name=uploadfile size=1 style="width:100%">
		<input type="submit" class="button" value="dddd">
		</form>
<script language=javascript>
		var sAllowExt = "<%=limExtension%>";
		// 是否有效的扩展名
		function IsExt(url, opt){
			var sTemp;
			var b=false;
			var s=opt.toUpperCase().split(",");
			for (var i=0;i<s.length ;i++ ){
				sTemp=url.substr(url.length-s[i].length-1);
				sTemp=sTemp.toUpperCase();
				s[i]="."+s[i];
				if (s[i]==sTemp){
					b=true;
					break;
				}
			}
			return b;
		}
		// 检测上传表单
		function CheckUploadForm() {
			if (!IsExt(document.myform.uploadfile.value,sAllowExt)){
				parent.UploadError("提示：\n\n请选择一个有效的文件，\n支持的格式有（"+sAllowExt+"）！");
				return false;
			}
			return true
		}
		// 提交事件加入检测表单
		var oForm = document.myform ;
		oForm.attachEvent("onsubmit", CheckUploadForm) ;
		if (! oForm.submitUpload) oForm.submitUpload = new Array() ;
		oForm.submitUpload[oForm.submitUpload.length] = CheckUploadForm ;
		if (! oForm.originalSubmit) {
			oForm.originalSubmit = oForm.submit ;
			oForm.submit = function() {
				if (this.submitUpload) {
					for (var i = 0 ; i < this.submitUpload.length ; i++) {
						this.submitUpload[i]() ;
					}
				}
				this.originalSubmit() ;
			}
		}
		// 上传表单已装入完成
		try {
			parent.UploadLoaded();
		}
		catch(e){
		}
</script>
		</body>
		</html>
<%
    End Function
'# ----------------------------------------------------------------------------
'# 函数：eWebAdd
'# 描述：上传添加文件
'# 参数： id-使用的上传组件  1-化境编程的无组件上传
'#-----------------------------------------------------------------------------
    Public Function eWebAdd()
		Dim file
		Select Case Upid
		  Case 1
			Set file=Up.file("uploadfile")

			'取得表单的内容已经文件的信息
			FileName=file.filename
			DateAndTime=Now()
			FileSize=file.filesize
			'大小转换成以K为单位
			FileSize=formatnumber(FileSize/1024,2)

			'判断有效性
			If FileSize=0 And FileName="" Then
				Call OutScript("parent.UploadError('请选择有效的上传文件！')")
				Exit Function
			End If
			If limFileSize>0 And CInt(FileSize)>LimFileSize Then
				Call OutScript("parent.UploadError('文件大小超过限制,请上传不大于"&limFileSize&"K的文件')")
				Exit Function
			End If

			Extension=split(FileName,".")(ubound(split(FileName,".")))
			'判断有效性
			If InStr(limExtension,Extension)=0 Then
				Call OutScript("parent.UploadError('该文件类型已经禁止上传')")
				Exit Function
			End If

			Category="新闻内容图片"
			Description=up.Form("description")

			'保存文件
			FileName=Year(dateandtime)&month(dateandtime)&day(dateandtime)&hour(dateandtime)&minute(dateandtime)&second(dateandtime)&"."&Extension
			file.saveas server.mappath("../upload/upfiles/"&FileName)
			Set file=Nothing
		  Case Else
		End Select

		'记录数据库信息
		Dim rs
		Set rs=Conn.execute("select max(id) from upfiles")
		Dim idd
		If IsNull(rs(0)) Or rs(0)="" Then
			idd=1
		Else
			idd=rs(0)+1
		End If
		ActionConn.execute("insert into upfiles (id,filename,dateandtime,filesize,extension,category,description) values ("&Idd&",'"&FileName&"','"&Dateandtime&"',"&FileSize&",'"&extension&"','"&category&"','"&description&"')")

		Call OutScript("parent.UploadSaved('" & ewebGeturl(FileName) & "')")
     End Function
'# ----------------------------------------------------------------------------
'# 函数：ewebGetUrl
'# 描述：取得文件的URl地址
'# 参数：fm-要取得url的文件
'# 返回：取得的URl，文本型
'#-----------------------------------------------------------------------------
	Private Function ewebGetUrl(fm)
		Dim addr0,addr1,url
		addr0=request.servervariables("server_name")
		addr1=request.servervariables("url")
		addr1=replace(addr1,"htmledit/upload.asp","upload/upfiles/"&fm)
		url="http://"&addr0&addr1
		ewebGetUrl=url
	End Function
'# ----------------------------------------------------------------------------
'# 函数：delete
'# 描述：删除一个文件
'#-----------------------------------------------------------------------------
	Public Function Delete() 
		Id=Request.QueryString("id")
		'读取文件名称
		Dim rs
		Set rs=ActionConn.execute("select * from upfiles where id="&Id)
		Dim filename
		If Not rs.eof Then
			filename=rs("filename")
		Else 
			filename="error"
		End If
		rs.Close
		Set rs = Nothing
		'从数据库中删除文件信息
		ActionConn.execute("Delete * from upfiles where id="&Id)
		'使用fso组件删除文件
		Set fso=Server.CreateObject("Scripting.FileSystemObject")
		'如果出错则结束
		If err Then
			Call Showsuccess("服务器不支持Fso组件,数据已经从数据库中删除,要删除文件请手动删除.","?action=list")
			exit function
		End If
		'如果文件存在就删除
		If fso.fileExists("upfiles/"&filename) Then
			fso.DeleteFile "upfiles/"&filename
		End If
		Set fso=Nothing
		'返回信息
		If err Then
			Call ShowError("删除文件失败.")
		Else
			Call ShowSuccess("文件删除成功.","?action=list")
		End If
	End Function
'# ----------------------------------------------------------------------------
'# 函数：
'# 描述：
'#-----------------------------------------------------------------------------
Function FileName2Pic(sExt)
	Select Case sExt
	case "txt"
		spicname = "txt.gif"
	case "chm", "hlp"
		spicname = "hlp.gif"
	case "doc"
		spicname = "doc.gif"
	case "pdf"
		spicname = "pdf.gif"
	case "mdb"
		spicname = "mdb.gif"
	case "gif", "jpg", "png", "bmp"
		spicname = "pic.gif"
	case "asp", "jsp", "js", "php", "php3", "aspx"
		spicname = "code.gif"
	case "htm", "html", "shtml"
		spicname = "htm.gif"
	case "zip", "rar"
		spicname = "zip.gif"
	case "exe"
		spicname = "exe.gif"
	case "avi", "mpg", "mpeg", "asf"
		spicname = "mp.gif"
	case "ra", "rm"
		spicname = "rm.gif"
	case "mid", "wav", "mp3", "midi"
		spicname = "audio.gif"
	case "xls"
		spicname = "xls.gif"
	case "ppt", "pps"
		spicname = "ppt.gif"
	case else
		spicname = "unknow.gif"
	end select
	FileName2Pic = "<img border=0 src='sysimage/file/" & sPicName & "'>"
    End Function
    End Class
%>