frm_zszpm_modify_confirm.asp

来自「一套石油公司内部的运营管理系统」· ASP 代码 · 共 30 行

<!--#include virtual="/include/DBCon.inc"-->
	<%
		Set obj = Server.CreateObject("LyfUpload.UploadFile")
		'obj.extname="doc"
		ss=obj.SaveFiletodb("file1") '保存文件到服务器
		aa=obj.filetype("file1") '得到文件的Content-Type
		if ss= "1" then
			response.redirect "/profile/errorpage.asp?title=上传文件&msg=文件不是合法文档。" 
	    end if

		memo=obj.request("memo")
		zszpmId=obj.request("chzszpm")

		Set Rs = Server.CreateObject("ADODB.RecordSet")
		SQL="select * from oil.oil_file where file_id='" &zszpmId& "'"
		rs.open SQL,conn,1,3
		if ss<>"" then
			rs("file_name")=ss
			rs("file_blob").AppendChunk obj.DBContent 'BLOB数据不能直接赋值
		end if
		if memo<>"" then
			rs("file_memo")=memo
		end if
		rs("file_obj_date")=year(now) & "-" & month(now) & "-" & day(now)
		rs("file_create_date")=year(now) & "-" & month(now) & "-" & day(now)
		rs.Update 
		rs.close
		response.redirect "frm_zszpm.asp"
	%>
<!--#include virtual="/include/DBClose.inc"-->