upload.asp

asp开发 asp开发 asp开发 asp开发

<%
	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
%>