upload.asp

负零文件上传系统~~文件轻松上传到数据库~~负零文件上传系统~~文件轻松上传到数据库~~

<!--#include file="conn.asp"-->
<%
'****************************************************
' 文件上传系统UploFlin v1.0      Power by eekku.com
' Web: http://www.eekku.com
' 负零制作 QQ:252687345
' Copyright (C) 2007 Flin工作室 All Rights Reserved.
'****************************************************
If Request("upfile") <> "" Then
	Path = Request("upfile")
	Set objStream = Server.CreateObject("ADODB.Stream")
	objStream.Type = 1			'设置为二进制类型
	objStream.Open
	objStream.LoadFromFile Path
	FileName = mid(Path,InStrRev(Path, "\") + 1)
	FileURL="upfiles/"&FileName
	objStream.SaveToFile Server.MapPath(FileURL) , 2
	objStream.Close
	set MyFileObject  = Server.CreateObject("Scripting.FileSystemObject")
	path    = Server.mappath(FileURL)
	set MyFile = MyFileObject.GetFile(path)
	intro=session("intro")

		'将文件信息保存到数据库，首先建立Recordset对象
		strSql="SELECT * FROM upfiles"
		Set rs = Server.CreateObject("Adodb.Recordset")
		rs.Open strSql,conn,1,3
		'下面增加一条新记录
		rs.AddNew
		rs("filename") = filename
		rs("fileurl") = FileURL
		rs("ext") = GetExt(filename)    '调用函数获取扩展名
		rs("size") = MyFile.size
		rs("intro") =intro '获取表单信息
		rs.Update 
		'成功插入数据库后，返回首页
		Response.Redirect("index.asp")
		else
		Response.Write "上传文件出错，请返回" 
		Response.Write "<a href='history.back(-1);'>重新上传</a><center>"
	End If
%>
<%
	'该函数用来得到文件的扩展名
	Function GetExt(thefilename)
		strTemp = Split(thefilename,".")
		numTemp = Ubound(strTemp)
		If numTemp = 0 Then
			GetExt="No"  '表示没有扩展名
		Else
			GetExt="." & strTemp(numTemp)  '是数组中最后一项
		End If
	End Function
%>