uploadtemplate.asp.bak

本示例综合展示了NTKO OFFICE文档控件所具有的发布为HTML

<%@	Language=VBScript %>
<!--#include file="conn.asp"-->
<!-- #include file="upload.asp"	-->
<%

'创建文件上载对象,FileUploader类在upload.asp中定义
Set	Uploader = New FileUploader

'设置表单的字符集
Uploader.FormCharSet = "gb2312"

'执行上载
Uploader.Upload()

If Uploader.Files.Count	= 0	Then
	Response.Write "没有上载的文件."
Else
	For	Each File In Uploader.Files.Items
		If (Ucase(File.InputName) = "EDITFILE") Then 
						
					SQL = " SELECT tname,tid FROM templates WHERE tname = '" & File.FileName	& "'"
									set RS = conn.Execute( SQL )
					If RS.Bof OR RS.Eof Then				
						RS.Close
						set RS = Nothing
						Set	RS = Server.CreateObject("ADODB.Recordset")
						RS.Open	"templates", conn, adOpenDynamic, adLockOptimistic	
						RS.AddNew
						RS("tname")	  =	File.FileName
					Else 
						RS.Close
						set RS = Nothing
						Set	RS = Server.CreateObject("ADODB.Recordset")
						RS.Open	"templates", conn, adOpenDynamic, adLockOptimistic	
						RS.Find "tname=" & File.Filename	
					End if
					RS("tsize")	  =	File.FileSize
					File.SaveToDatabase	RS("tcontent")
					RS.Update			
			End if
			RS.Close
			set	RS = Nothing
			

			Response.Write "保存的模板:	" &	File.FileName &	"<br>"
			Response.Write "大小: "	& File.FileSize	& "	bytes<br>"
		END	IF
	Next
	
End	If

Set	Uploader = Nothing
Closeconn()
%>