?? upb.asp
字號:
<!--#include FILE="UPC.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ok</title>
<style type="text/css">
<!--
.STYLE3 {
color: #CC0033;
font-size: 18px;
}
-->
</style>
<script language=javascript>
function winclose() {
window.opener.location.reload();
window.close();
}
</script>
</head>
<body onmouseover="self.status='紅笛軟件[http://weekaa.com/red]';return true" onUnload="winclose();">
<%
dim upload,file,formName,formPath,L,M,N,StuNo
IDNo=session("ID")
set upload=new upload_5xSoft ''建立上傳對象
formPath=upload.form("filepath") ''在目錄后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
for each formName in upload.file ''列出所有上傳了的文件
set file=upload.file(formName) ''生成一個文件對象
if file.filesize<100 then
response.write "<font size=2>請先選擇你要上傳的文件 [ <a href=# onclick=history.go(-1)>重新上傳</a> ]</font>"
response.end
end if
Fname=file.FileName
Fname="[" & IDNo & "]"&Fname
file.FileName=Fname
if file.FileSize>0 then ''如果 FileSize > 0 說明有文件數據
file.SaveAs Server.mappath(file.FileName) ''保存文件
end if
set file=nothing
next
set upload=nothing
response.write "<BR><BR><BR><p align='center'> <span class='STYLE3'>上傳成功</span></p>"
%>
<script language="javascript">
<!--
function clock(){i=i-1
document.title="本窗口自動關閉倒計時："+i;
if(i>0)setTimeout("clock();",300);
else self.close();}
var i=3
clock();
//-->
</script>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -