<!--#include file="conn.asp"-->
<%
'****************************************************
' 文件上傳系統(tǒng)UploFlin v1.0      Power by eekku.com
' Web: http://www.eekku.com
' 負(fù)零制作 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			'設(shè)置為二進(jìn)制類型
	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")

		'將文件信息保存到數(shù)據(jù)庫(kù)，首先建立Recordset對(duì)象
		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)    '調(diào)用函數(shù)獲取擴(kuò)展名
		rs("size") = MyFile.size
		rs("intro") =intro '獲取表單信息
		rs.Update 
		'成功插入數(shù)據(jù)庫(kù)后，返回首頁(yè)
		Response.Redirect("index.asp")
		else
		Response.Write "上傳文件出錯(cuò)，請(qǐng)返回" 
		Response.Write "<a href='history.back(-1);'>重新上傳</a><center>"
	End If
%>
<%
	'該函數(shù)用來(lái)得到文件的擴(kuò)展名
	Function GetExt(thefilename)
		strTemp = Split(thefilename,".")
		numTemp = Ubound(strTemp)
		If numTemp = 0 Then
			GetExt="No"  '表示沒有擴(kuò)展名
		Else
			GetExt="." & strTemp(numTemp)  '是數(shù)組中最后一項(xiàng)
		End If
	End Function
%>