?? uploadseal.asp
字號(hào):
<%@ 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
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -