<%
	set conn = server.createobject("ADODB.CONNECTION")
	conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &_
		server.mappath("temp.mdb")
	Set upload = Server.CreateObject("LyfUpload.UploadFile")
	upload.maxsize=2*1024*1024  '設置文件上傳的最大為2MB
	'保存文件到服務器內存中,upfile是表單中的名稱
	filename = upload.SaveFiletodb("upfile")   
	If filename="0" Then
		'表示文件過大，超出體積
		Response.Write "文件超出2M！請返回" 
		Response.Write "<a href='history.back(-1);'>重新上傳</a><center>"
	Else
		'將文件信息保存到數據庫，首先建立Recordset對象
		strSql="SELECT * FROM uploadfiles"
		Set rs = Server.CreateObject("Adodb.Recordset")
		rs.Open strSql,conn,1,3
		'下面增加一條新記錄
		rs.AddNew
		rs("filename") = filename
		rs("ext") = GetExt(filename)    '調用函數獲取擴展名
		rs("size") = Upload.filesize
		rs("intro") = Upload.Request("intro") '獲取表單信息
		rs("fileimage").AppendChunk Upload.DBContent '給文件內容字段賦值
		rs.Update 
		'成功插入數據庫后，返回首頁
		Response.Redirect("index.asp")
	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
%>