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

'創(chuàng)建文件上載對(duì)象,FileUploader類在upload.asp中定義
Set	Uploader = New FileUploader

'設(shè)置表單的字符集
Uploader.FormCharSet = "gb2312"

'執(zhí)行上載
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 "印章已創(chuàng)建"	
End if
%>