filemgr.inc

物业管理和办公自动化系统

<%
'################################################################################################
'#
'#	文件名	 : filemgr.inc
'#
'#
'#	创建人	 : zhouyun
'# 　	日　期	 : 2002-05-13
'#
'#	修改历史  : ****年**月**日 ****** 修改内容:**************************************************
'#
'#	功能描述	 : 公文查询管理函数文件
'# 　	版  　本	 :
'#	
'#	Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'################################################################################################

'***************************************************************************************************
'	Name		: TableLink
'	Function	: Table Show the Search records detail
'	In		: No
'	Out		: No
'	Return		: Table of record detail
'	Comment		: No
'
'---------------------------------------------------------------------------------------------------

Function TableLink()

	'-------------------------------------------------
	' Declares and Get parameters
	'-------------------------------------------------
	Dim id : id = GetParam("id")
	Dim links 
	'--------------------------------------------------
	' Construct the link string
	'--------------------------------------------------

	If IsEmpty(id) Then
		'------------------------------------------
		' hide the Browse and Upload links
		'------------------------------------------
		links = ""
	Else
		'------------------------------------------
		' show the Browse and Upload links
		'------------------------------------------
		links = _
		"		&nbsp;&nbsp;&nbsp;" & _
		"		<img src=""../images/goto.gif"" >&nbsp;<a href=""filemgr.asp"">公文文件上载</a></td>" & _
		"		&nbsp;&nbsp;&nbsp;" & _
		"		<img src=""../images/goto.gif"" >&nbsp;<a href=""#"">制度文件阅读</a></td>" 
	End If

	'--------------------------------------------------
	' Return the table of links
	'--------------------------------------------------
	TableLink = _
		"<table width=400 cellspacing=0 cellpadding=0 border=0 align=left>" & _
		"<tr height=10>" & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=400 height=3></td>" & _
		"</tr>" & _
		"<tr height=20 align=left>" & _
		"	<td width=400 align=left>&nbsp;" & _
		"		<img src=""../images/goto.gif"" >&nbsp;<a href=""typemgr.asp"">制度类别管理</a>" & _
				links & _
		"	</td>" & _
		"</tr>" & _
		"</table>"
End Function
'***************************************************************************************************


'--------------------------------------------------------------------------------------------------
' 使用Request.Form后不能调用Binary Read，因此这里需覆盖common.asp中的GetParam()函数来获取参数
'--------------------------------------------------------------------------------------------------
function GetParam(ParamName)
	Dim Param : Param = ""
	if Request.QueryString(ParamName).Count > 0 then Param = Request.QueryString(ParamName)
	if Param = "" then Param = Empty
	GetParam = Param
end function

'***************************************************************************************************
'	Name		: TableUpload
'	Function	: Form Table of Upload
'	In		: No
'	Out		: No
'	Return		: Table of Upload entries
'	Comment		: No
'
'---------------------------------------------------------------------------------------------------

Function TableUpload()
	'-------------------------------------------------
	' Declares
	'-------------------------------------------------

	Dim DOC_FILE_PATH,objUpload,varResult,filenamesize,totalcount,filevalue,filename

	'--------------------------------------------------
	' Set the DOC_FILE_PATH
	'--------------------------------------------------
	DOC_FILE_PATH = left(Request.ServerVariables("PATH_TRANSLATED"), instrrev(Request.ServerVariables("PATH_TRANSLATED"), "\")) & "files\"

	
	If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
		
		'------------------------------------------
		' Create upload object
		'------------------------------------------
		Set objUpload = Server.CreateObject("aspcn.upload")
		'------------------------------------------
		'设定文件最大长度不超过100K,默认值为100K
		'------------------------------------------
		objupload.maxsize=100000000
		'------------------------------------------
		'设定如果目标文件存在，进行覆盖，默认为1，表示不能覆盖
		'------------------------------------------
		objupload.overwrite=2     
		'------------------------------------------
		'设定上传到服务器的路径，这里必须为绝对路径，默认值为c:\
		'------------------------------------------
		objupload.path=DOC_FILE_PATH 
		'------------------------------------------
		'调用upload方法将文件保存
		'------------------------------------------
		objupload.uptofile=1  ' 此处将uptofile设置为1,表明上传后保存文件（为默认值），2 表示不保存只接收数据
		'------------------------------------------
		'objupload.newfilename="aa.exe"  '此处设置上传后的文件名，如果设定此值后，一次只能上传一个文件
		'------------------------------------------
		varResult = objUpload.Upload
		'------------------------------------------
		'到此为止，如果varResult返回OK，则文件上载成功
		'------------------------------------------

		  
		'***********************************************************************
		'* 前面的这一些你如果赚烦你还可以这样                                  *
		'* varResult=objUpload.Upload(100000,"c:\test\",2)                     *
		'* 作用和上面的一样,三个参数分别表示maxsize,path,overwrite，均可省     *
		'* 如省略maxsize，写法如下:                                            *
		'* varResult=objUpload.Upload(,"c:\test",2)                            *
		'* 此时如果先前objupload.maxsize没有设置，组件将使用默认值             *
		'***********************************************************************
		
        If varResult="OK" Then  '如果varResult返回OK,则文件上载成功
				response.write "<center>上传成功!<br>请点击<a href='infomgr.asp' style=""color:red"">完成</a>返回!</center>"
                '下面我们来看看倒底上传了些什么东东
	            '取得各项的大小，填写表单项时，请注意表单项名字的大小写
  			  filenamesize= objUpload.size("FileName")  '取得upload.htm文件中FileName表单项的大小
	'	      fieldnamesize= objupload.size("fieldname") '取得upload.htm 文件中fieldanme表单项的大小
		      totalcount=objupload.Count
    '          fieldvalue=objUpload.Form("fieldname") '取得fieldname表单项的值
              filevalue=objUpload.Form("FileName") '取得filename表单项的值,注意名字的大小写，不能错
			  filename=objUpload.filename("FileName") '取得上传文件的文件名

			  'response.write "upload filename:"&filename&"<br>"
              '显示上传来的信息
    '          response.write "FieldSize:   "&fieldnamesize&"<br>"
   '          response.write "Field's Value:" &fieldvalue&"<br>"
              'response.write "FileSize:   "&filenamesize&"<br>"
              '因为文本与二进制不能在一起显示，所以如果要显示上传来的二进制，请先屏蔽掉文本显示
              '然后去掉下面几句的引号就可以了，当然显示只能是图片咯
              'response.write "File:"&"<br>"     
              'response.contenttype="image/jpeg"
              'response.binarywrite filevalue
              '另外，我们通过本组件将文本和文件数据上传到数据库中，下面就演示把文件上载到数据中
              'SaveTOBase(filevalue)

			  'update the database 
			  Dim p : p="./files/" & filename
			  'response.write "path:" & p
'			  Application.Lock
'			  sql="update t_document set doc_path='" & p & "' where doc_id=" & Request.QueryString("doc_id")
			  Dim sSQL : sSQL = "update t_document set doc_path='" & p & "' where doc_id=" & Request.QueryString("id")
			  Dim sError :sError = ExecuteSQL(dbLocal, sSQL)
			  If sError <> "" Then
				response.write sError
			  End If
        Else  '上传出错
              response.write varResult  '显示错误信息
        End If 
		Set objUpload = Nothing
End If
'
	TableUpload = _
	"<form name='frmUpload' Method='Post' Enctype='multipart/form-data' Action='filemgr.asp?id=" & Request.QueryString("id") & "'> " & _
	"<table>" & _
	"	<tr>" & _
	"		<td>文件名称</td> " & _
	"		<td><input type=file name='FileName'></td>" & _
	"	</tr>" & _
	"	<TR>" & _
	"		<td COLSPAN=2 ALIGN=center><INPUT TYPE=Submit VALUE='上传文件'><br></TD> " & _
	"	</TR>" & _
	"</table>" & _
	"</form>" 
End Function

%>