addnew.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 147 行

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/File.asp" -->
<!-- #include virtual="include/SelectValue.asp" -->
<%
	Dim ObjDB,ObjRS,StrSQL
	Dim C
	Dim StrSelectTrueName,IntParentID
	Dim ObjFile,StrContentType,StrFileName,IntID
	Dim StrExtName,IntSaveRe,IntFileSize

	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB
	
	IntParentID = Request.QueryString("ParentID")
	
	If Request.QueryString("F")<>"" Then

		Set ObjFile = Server.CreateObject("LyfUpload.UploadFile")
		StrContentType	= ObjFile.FileType("Source")
		StrFileName		= ObjFile.Request("Source")
		
	'	Response.Write StrFileName & "<br>"
	'	Response.Write  GetExtName(StrFileName)
	'	Response.Write ObjFile.Request("BelongTo")	& "<br>" & ObjFile.Request("FileName")
	'	Response.End 
	'	Response.Write Server.MapPath("../../../UpLoad/OA/EI/DataUP")
		
		Set ObjRS = Server.CreateObject("Adodb.Recordset")
		StrSQL = "Select Top 1 * From t_OA_EI_DataUP Where ID=0"
		ObjRS.Open StrSQL,ObjDB,1,3
		ObjRS.AddNew
		ObjRS.Fields("FileName")	=	ObjFile.Request("FileName")
		ObjRS.Fields("BeLongTo")	=	ObjFile.Request("BelongTo")
		ObjRS.Fields("ExtName")		=	GetExtName(StrFileName)
		ObjRS.Fields("KeyWord")		=	ObjFile.Request("KeyWord")
		ObjRS.Update
		IntID = ObjRS("ID")
		
		
		StrExtName = GetExtName(StrFileName)
	
		IntSaveRe = ObjFile.SaveFile("Source",Server.MapPath("../../../UpLoad/OA/EI/DataUP"), true,IntID & "." & StrExtName) '保存文件到服务器
		
		If IntSaveRe<>"" And IntSaveRe<>"1" And IntSaveRe<>"0" Then '上传成功
			IntFileSize	 = ObjFile.FileSize
			StrSQL = "Update t_OA_EI_DataUP Set IsValid = 1 , FileSize = " & IntFileSize & " Where ID = " & IntID
			ObjDB.Execute StrSQL
		Else							'上传失败
			StrSQL = "Delete From t_OA_EI_DataUP Where ID = " & IntID
			ObjDB.Execute StrSQL
		End If

		
				
		ObjRS.Close
		Set ObjRS = Nothing
		ObjDB.Close 
		Set ObjDB = Nothing
		Response.Redirect  ("List.asp")
	
	End If

%>


<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>
	<form action="Addnew.asp?F=0" enctype="multipart/form-data" method="post" onsubmit="return(CheckForm(this))">
	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
		<td width="15%">新增资料</td>
		<td width="85%"> </td>
	</tr>
	<tr class=Ltr>
		<td>新增</td>
		<td>
			<table border=0>
			<tr>
			<td><img src="../../../images/oa/private/data/file.gif"></td>
			<td>文件　　</td>
			</tr>
			</table>		
		</td>
	</tr>
	
	<tr class=Ltr id=Content12 style="display=''">
		<td>上传文件</td>
		<td><input type="file" class=Input Check=0 Show="文件" name="Source"></td>
	</tr>
	<tr class=Ltr id=Content21 style="display=''">
		<td>文件名</td>
		<td><input type="text" class=Input Check=0 Show="文件名" name="FileName"></td>
	</tr>
	<tr class=Ltr id=Content21 style="display=''">
		<td>所属科室</td>
		<td>
			<select name="BelongTo">
				<option value=1>生产运行科</option>
				<option value=2>综合办公室</option>
				<option value=3>技术安全科</option>
				<option value=4>计划财务科</option>
				<option value=5>车辆管理科</option>
				<option value=6>保  卫  科</option>
			</select>
		</td>
	</tr>
	<tr class=Ltr id=Content4 style="display=''">
		<td>检索关键字</td>
		<td><input type="text" class=Input  name="KeyWord"></td>
	</tr>
	</table>
	<table cellspacing=1 cellpadding=3>
	<tr>
		<td>
		<input type="submit"  name="Submit" class=Button value="提 交">
		<input type="button" class=Button value="取 消" onclick="doList()" id=button1 name=button1>
		</td>
		<td>
		</td>
	</tr>
	</table>

	</form>

<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>
<%
	Function GetFileName(IntmyID,mySource)
		Dim FileName,extName,subSign,upSign,extLen
		subSign = InStr(mySource,".") + 1
		upSign = InStr(mySource,"C") - 4
		extLen	= upSign - subSign + 1
		extName = Mid(mySource,subSign,extLen)
		FileName	=	IntmyID & "." & extName
		GetFileName	=	FileName
	End Function
	
	Function GetExtName(mySource)
		GetExtName =  Mid(Mid(mySource,1,InStr(mySource,"Content-Type")-4),InStrRev(Mid(mySource,1,InStr(mySource,"Content-Type")-4), ".")+1)
	End Function
%>
<!-- #include file="templet.asp" -->