uploadseal.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()
sealname = Uploader.Form("Sealname")
sealuser = Uploader.Form("sealuser")
password = Uploader.Form("password1")


If Uploader.Files.Count	= 0	Then
	Response.Write "没有上载的文件."
Else
	File = Uploader.Files.Items
	Set	RS = Server.CreateObject("ADODB.Recordset")
		RS.Open	"seals", conn, adOpenDynamic, adLockOptimistic	
		RS.AddNew
		RS("sname") = sealname
		RS("users") = sealuser
		'RS("password") = password
		RS("espfile").AppendChunk File(0).Filedata
		RS("imagefile").AppendChunk File(1).Filedata
		RS.Update
		RS.Close
       Set	RS = Nothing		
       response.write "印章已创建"	
End if
%>