?? upload.asp
字號:
<!--#include file="upload_class.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" xml:lang="zh-cn" lang="zh-cn">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>示例結果</title>
<style type="text/css">
TABLE {border:1px green solid;margin-top:5px;}
TD{border-bottom:1px #dddddd solid;height:20px;padding:3px 0 0 5px;}
.head{background-color:#eeeeee;}
</style>
</head>
<body style="font-size:12px">
<%
Dim Upload,successful
'===============================================================================
set Upload=new AnUpLoad '創(chuàng)建類實例
Upload.SingleSize=200*1024 '設置單個文件最大上傳限制,按字節(jié)計；默認為不限制
Upload.MaxSize=200*1024 '設置最大上傳限制,按字節(jié)計；默認為不限制
Upload.Exe="rar|jpg|bmp|gif" '設置合法擴展名,以|分割,忽略大小寫
Upload.GetData() '獲取并保存數(shù)據(jù),必須調(diào)用本方法
'===============================================================================
if Upload.Err>0 then '判斷錯誤號,如果myupload.Err<=0表示正常
response.write Upload.Description '如果出現(xiàn)錯誤,獲取錯誤描述
else
if Upload.forms(-1).count>0 then '這里判斷是否有表單項
for each f in Upload.Forms(-1)
response.Write f & "值為:" & Upload.Forms(f) & "<br />"
next
response.Write "共有" & Upload.Forms(-1).count & "項表單!"
end if
end if
set Upload=nothing '銷毀類實例
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -