?? upgift2.asp
字號:
<%OPTION EXPLICIT%>
<%
if session("admin")="" then
response.redirect "login.asp"
end if
%>
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>東方訂房網——本地化、專業便捷快速優惠預訂上海酒店,上海賓館,上海酒店公寓,上海飯店,上海住宿,上海會議,浦東酒店,浦東會議,上海展會,上海培訓</title>
<link href="../admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="400" height="100" border="0" align="center" cellpadding="10" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center"><%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xSoft ''建立上傳對象
response.write "文件上傳成功！<br>" ''顯示上傳類的版本
if upload.form("filepath")="" then ''得到上傳目錄
HtmEnd "請輸入要上傳至的目錄!"
set upload=nothing
response.end
else
formPath=upload.form("filepath")
''在目錄后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
end if
iCount=0
for each formName in upload.file ''列出所有上傳了的文件
set file=upload.file(formName) ''生成一個文件對象
if file.FileSize>0 then ''如果 FileSize > 0 說明有文件數據
file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件
response.write "請復制此文件名到“禮品圖片”文本框：<font color=red><b>"&File.FileName&"</b></font><br>"
iCount=iCount+1
end if
set file=nothing
next
set upload=nothing ''刪除此對象
Htmend iCount&" 個文件上傳結束!"
sub HtmEnd(Msg)
set upload=nothing
response.write "[<a href=""javascript:window.close();"">關閉</a>]"
response.end
end sub
%></td>
</tr>
</table>
</body>
</html>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -