upload_class.asp

这是我根据动网新闻核心自行设计的校园新闻系统

<%
pageadmin=10
%>
<!--#include file="upload.inc" -->
<%
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="LBNOW CREATE @ 2004-4-5 AND LAST UPDATE @ 2004-04-07"
		FileName=""
		DateAndTime=Now()
		FileSize=0
		Extension=""
		Category=""
		limExtension="jpg,gif,doc,bmp,txt,swf,rm,ram,mpg,mpeg,exe,excel,htm,mid,rar"
		limFileSize=0
	End Sub
'# ----------------------------------------------------------------------------
'# 函数：upobject
'# 描述：建立上传对象
'# 参数： -
'# 返回：

'# 日期：2004-04-07
'#-----------------------------------------------------------------------------
	Private Function UpObject()
		Select Case Upid
		  Case 1
			Set Up=new upload_5xsoft
		  Case Else
		End Select
	End Function
'# ----------------------------------------------------------------------------
'# 函数：PageHtmlForm
'# 描述：显示页面上的表单
'# 参数：
'# 返回：页面输出Html代码

'# 日期：2004-04-07
'#-----------------------------------------------------------------------------
	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" border=1 width=100% border=0 cellpadding=0 cellspacing=0>
			<tr>
				<td class="lefttd" align="center" width="100">文件:</td>
				<td class="righttd">&nbsp;&nbsp;<input type="file" size=25 class="file" name="filesource" value=""></td>
			</tr>
			<tr style="display:none">
				<td class="lefttd" align="center">请选择上传文件分类</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" rows="8" cols="40"><%=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="确认上传文件"></td>
			</tr>
			</table>
		</form></div>
		<%
	End Function
'# ----------------------------------------------------------------------------
'# 函数：pageuplist
'# 描述：显示已经上传的文件列表,以及管理选项
'# 参数： psize-每页显示多少内容
'# 返回：

'# 日期：2004-04-07
'#-----------------------------------------------------------------------------
	Public Function PageUpList(psize) 
		%>
		<div align="center">
		<table width=100% border=1 class="table" cellpadding=0 cellspacing=0>
		<tr class="headtr" align="center">
			<td class="td">文件名</td>
			<td width="100" class="td">大小</td>
			<td width="120" class="td">上传日期</td>
			<td width="100" class="td">管理选项</td>
		</tr>
		<%
		Dim rs
		Dim count,pagecount,nowpage,a
		Set rs=Server.CreateObject("adodb.recordset")
		sql="select * from upfiles order by id desc"
		rs.open sql,conn,3,1
		totalcount=rs.recordcount
		'***********************************分页
		count=psize
		if count<=0 then
			count=pize
		end if
		if not rs.eof then
			rs.pagesize=count
			pagecount=rs.pagecount
			if request("page")="" then
				nowpage=1
			else
				nowpage=int(request("page"))
			end if
			if nowpage>=rs.pagecount then
				nowpage=rs.pagecount
			elseif nowpage<=1 then
				nowpage=1
			end if
			rs.absolutepage=nowpage
		else
			pagecount=1
			nowpage=1
		end if
		a=1
		do while not rs.eof and a<=count
		%>
			<tr height="20">
				<td class="td">&nbsp;<%=FileName2Pic(rs("extension"))%>&nbsp;<A HREF="upfiles/<%=rs("filename")%>" target=_blank title="<%=rs("description")%>"><font color=#000000><%=rs("filename")%></font></A></td>
				<td class="td" align="center" width="100"><%=FormatNumber(rs("filesize"),2,-1)%> &nbsp;K</td>
				<td class="td" align="center" width="120"><%=rs("dateandtime")%></td>
				<td class="td" align="center" width="100">
					<table width=100% border=0 cellpadding=0 cellspacing=0>
					<tr>
						
						<td class="td" align="center"><a title="" href="?action=delete&id=<%=rs("id")%>">删除</a></td>
					</tr>
					</table>
				</td>
			</tr>
		<%
			a=a+1
			rs.movenext
		loop 
		%>
		</table>
		<BR>
		<table width=100% class="table1" border=0 cellpadding=0 cellspacing=0>
		<tr>
			<td><%showpage totalcount,pagecount,nowpage,"up.asp"%></td>
		</tr>
		</table>
		</div>
		<%
	End Function
'# ----------------------------------------------------------------------------
'# 函数：pageshowurl
'# 描述：显示上传结果连接地址的页面
'# 参数： -
'# 返回：

'# 日期：2004-04-07
'#-----------------------------------------------------------------------------
	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，文本型

'# 日期：2004-04-07
'#-----------------------------------------------------------------------------
	Private Function GetUrl(fm)
		Dim addr0,addr1,url
		addr0=request.servervariables("server_name")
		if request.servervariables("server_port")<>"80" then addr0=addr0 & ":" & request.servervariables("server_port")
		addr1=request.servervariables("url")
		addr1=replace(addr1,"up.asp","upfiles/"&fm)
		url="http://"&addr0&addr1
		GetUrl=url
	End Function
'# ----------------------------------------------------------------------------
'# 函数：Add
'# 描述：上传添加文件
'# 参数： id-使用的上传组件  1-化境编程的无组件上传
'# 返回：

'# 日期：2004-04-07
'#-----------------------------------------------------------------------------
	Public Function Add()
		Dim file
		Select Case Upid
		  Case 1
			Set file=Up.file("filesource")

			'取得表单的内容已经文件的信息
			FileName=LCase(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,".")))
			'判断有效性
			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("upfiles/"&FileName)