addattachdo.asp

功能齐全的oa系统

<%option explicit%>
<!--#include file ="../../../Include/DataEnvi.asp"-->
<!--#include file = "../../../Include/String.asp"-->
<!--#include file = "../../../Include/Page.asp"-->
<%
	Dim ObjDB,ObjRS,StrSQL
	Dim strFileName,IntConID
	Dim StrExtName,IntID
	Dim ObjPic,PicType,IntSaveRe
	Dim Source,IntFileSize,StrErr
	
	Set ObjPic = Server.CreateObject("LyfUpload.UploadFile")
	
'	ObjPic.MaxSize = 601440  '设置文件上传的最大为2048个字节(2K)

	IntFileSize = 0
	IntConID	= ObjPic.Request("ConID")
	StrExtName = ObjPic.FileType("source")
	strFileName = ObjPic.Request("attachName")
	Source		= ObjPic.Request("source")
'	Response.Write source 
'	Response.End 
	
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	Set ObjRS = Server.CreateObject("Adodb.Recordset")
	
	StrSQL	= "Select * From t_OA_Work_Conference_Attach"

	ObjRS.Open StrSQL,ObjDB,1,3
	
	ObjRS.AddNew 
	objRS("ConID")	 = IntConID
	objRS("AttachName")  = strFileName
	ObjRS("ExtName")	= GetExtName(Source)
	objRS("CreateTime") = Now()
	ObjRS.Update
	IntID = ObjRS("ID")
	ObjRS.Close()
	
	IntSaveRe = ObjPic.SaveFile("source",Server.MapPath("Attach"),true,GetFileName(IntID,Source)) '保存文件到服务器
	IntFileSize	 = ObjPic.FileSize 
	

	
	If IntSaveRe = "" Then
		StrErr = "文件上传失败!"
	ElseIf IntSaveRe = "0"  Then
		StrErr = "文件尺寸过大!"
	ElseIf IntSaveRe = "1" Then
		StrErr = "文件不是jpg文件!"
	Else
		StrSQL = "Update t_OA_Work_Conference_Attach Set AttachSize = " & IntFileSize & " Where ID = " & IntID
		ObjDB.Execute StrSQL 
		StrSQL = "Update t_OA_Work_Conference_Attach Set IsUpSuccess = 1 Where ID = " & IntID
		ObjDB.Execute StrSQL 
	End if

	If StrErr <> "" Then
		Response.Write "<script language=javascript>alert('" & StrErr & "');window.history.go(-1)</script>"
	Else
		Response.Write "<script language=javascript>window.history.go(-1)</script>"
	End If
	
	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
	'	Response.Write subSign & "---" & upSign & "--" & extLen & "--" & extName & "--" & FileName
	End Function
	Function GetExtName(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)
		
		GetExtName	=	extName
	'	Response.Write subSign & "---" & upSign & "--" & extLen & "--" & extName & "--" & FileName
	End Function
%>