uploadtemplate.asp

本示例综合展示了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 
			Set RS = Server.CreateObject("ADODB.Recordset")
			RS.Open	"templates", conn, adOpenDynamic, adLockOptimistic	
			RS.AddNew
			RS("tname")  =	File.FileName
			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>"
		
	Next
	
End	If

Set	Uploader = Nothing
Closeconn()
%>