萬盛學電腦網 >> 網絡編程 >> java >> 風聲無組件上傳類2.1精簡操作
風聲無組件上傳類2.1精簡操作
代碼如下：
index.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>進階應用——風聲無組件上傳類</title>
<link href="../style/default.css" rel="stylesheet" type="text/css" />
</head>
<body>
<form action="upload.asp" enctype="multipart/form-data" name="form1" method="post">
產品圖： <input name="strPhoto2" type="file" id="strPhoto2" />
<input type="submit" name="Submit" value="上傳" />
<input type="reset" name="Submit2" value="重 置" />(大小<500K)
</form>
</body>
</html>
upload.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
’----------------------------------------------------------
’***************** 風聲無組件上傳類 2.1 *****************
’用法舉例：進階應用[添加產品二]
’該例主要說明手動保存模式更靈活的運用
’以常見的產品更新為例<br>
’該例以 gb2312（類默認，無須顯示設置）字符集測試
’下面是上傳程序(upload.asp)的代碼和注釋
’**********************************************************
’----------------------------------------------------------
OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>
<!--include file="UpLoadClass.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>進階應用——風聲無組件上傳類</title>
<link href="../style/default.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%
dim request2
’建立上傳對象
set request2=New UpLoadClass
’設置為手動保存模式
request2.AutoSave=2
’設置字符集，默認為 gb2312 字符集
’request2.Charset="UTF-8"
’設置服務器文件保存路徑
’request2.SavePath="UpLoadFile/"
request2.Open()
’設置產品大圖最大為500K
’當然這裡還可以設置不同的保存路徑，限制格式
request2.MaxSize=500*1024
’設置文件允許的附件類型 例如：gif/jpg/rar/zip
request2.FileType="jpg/gif/bmp/png"
’如果保存圖成功
Response.Write("")
if request2.Save("strPhoto2",0) then
’顯示保存位置
Response.Write("<p>產品圖=>"&request2.SavePath&request2.Form("strPhoto2")&"</p>")
end if
’-------說明開始------
’如果是正確的jpg/gig/png/bmp圖片格式文件，還可以獲取圖片寬高
’if request2.form("strPhoto2_Width")<>"" then
’Response.Write("圖片寬："&request2.form("strPhoto2_Width"))
’Response.Write("圖片高："&request2.form("strPhoto2_Height"))
’end if
’-------說明結束------
’Response.Write "<p>[<a href=""javascript:history.back();"">返回</a>]</p>"
’釋放上傳對象
set request2=nothing
%>
</body>
</html>
<%
’----------------------------------------------------------
’***************** 風聲無組件上傳類 2.1 *****************
’作者：風聲
’網站：http://www.fonshen.com
’郵件：[email protected]
’版權：版權全體,源代碼公開,各種用途均可免費使用
’**********************************************************
’----------------------------------------------------------
Class UpLoadClass
Private m_TotalSize,m_MaxSize,m_FileType,m_SavePath,m_AutoSave,m_Error,m_Charset
Private m_dicForm,m_binForm,m_binItem,m_strDate,m_lngTime
Public FormItem,FileItem
Public Property Get Version
Version="Fonshen UpLoadClass Version 2.1"
End Property
Public Property Get Error
Error=m_Error
End Property
Public Property Get Charset
Charset=m_Charset
End Property
Public Property Let Charset(strCharset)
m_Charset=strCharset
End Property
Public Property Get TotalSize
TotalSize=m_TotalSize
End Property
Public Property Let TotalSize(lngSize)
if isNumeric(lngSize) then m_TotalSize=Clng(lngSize)
End Property
Public Property Get MaxSize
MaxSize=m_MaxSize
End Property
Public Property Let MaxSize(lngSize)
if isNumeric(lngSize) then m_MaxSize=Clng(lngSize)
End Property
Public Property Get FileType
FileType=m_FileType
End Property
Public Property Let FileType(strType)
m_FileType=strType
End Property
Public Property Get SavePath
SavePath=m_SavePath
End Property
Public Property Let SavePath(strPath)
m_SavePath=Replace(strPath
- 上一頁:asp連接各種數據庫的方法
- 下一頁:分頁顯示序號接上之前頁面方法
