?? upload.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%const need_purview=1%>
<!--#include file="localhost.asp"-->
<!--#include FILE="purview.asp"-->
<!--#include FILE="upfile_class.asp"-->
<!--#include FILE="show_error.asp"-->
<!--#include FILE="conn.asp"-->
<%
'文件屬性：例如上傳文件為c:\myfile\doc.txt
'FileName 文件名 字符串 "doc.txt"
'FileSize 文件大小 數值 1210
'FileType 文件類型 字符串 "text/plain"
'FileExt 文件擴展名 字符串 "txt"
'FilePath 文件原路徑 字符串 "c:\myfile"
'使用時注意事項:
'由于Scripting.Dictionary區分大小寫,所以在網頁及ASP頁的項目名都要相同的大小
'寫,如果人習慣用大寫或小寫,為了防止出錯的話,可以把
'sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
'改為
'(小寫者)sFormName = LCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
'(大寫者)sFormName = UCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
Dim filesext
call opendb()
set rs=conn.execute("select * from eric_config")
filesext=rs("upload_extend")
call closedb()
'filesext="gif,jpg,jpeg,bmp,png,dwg" '允許的上傳文件類型
work_name=trim(request.querystring("work_name"))
'response.write work_name
'過濾字符
If Request.QueryString("action")="Upload" Then
Server.ScriptTimeOut=999999'要是你的論壇支持上傳的文件比較大，就必須設置。
dim upfile,FileName,oFile
set upfile=new upfile_class ''建立上傳對象
upfile.GetData (1024000) '取得上傳數據,限制最大上傳1M
formPath=upfile.form("filepath")'取得上傳路徑
if upfile.err > 0 then '如果出錯
select case upfile.err
case 1
call error("請先選擇你要上傳的文件 [ <a href=# onclick=history.go(-1)>重新上傳</a> ]")'沒有數據
case 2
call error("上傳文件單個不能超過1M [ <a href=# onclick=history.go(-1)>重新上傳</a> ]")
end select
call Iserror()
response.end
else
'for each formName in upfile.file '列出所有上傳了的文件
set oFile=upfile.file("file")'生成一個文件對象
'FileName=upfile.form("file")'取得文本域的值'
'判斷文件類型
fileExt=lcase(oFile.FileExt)
if lcase(fileEXT)="asp" or lcase(fileEXT)="asa" or lcase(fileEXT)="aspx" or CheckFileExt(fileEXT)=false then
call error("文件格式不正確 [ <a href=# onclick=history.go(-1)>重新上傳</a> ]")
Call Iserror()
response.end
end if
'賦值變量
randomize
ranNum=int(90000*rnd)+10000
file_name=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum'時間加5位隨機數
'work_name為傳遞過來的該次作業的名稱
file_name=session("student_num_name") & "_" & work_name & "_" & session("student_class") & "_" & file_name
FileName=file_name&"."&fileExt
oFile.SaveToFile Server.mappath(formPath&FileName) ''保存文件
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=work_name%></title>
<link href="eric.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01">
<tr>
<td class="white_bold_blue">本地文件：</td>
<td class="white_bold_blue">文件大小：</td>
<td class="white_bold_blue">文件名：</td>
</tr>
<tr>
<td><%=oFile.FilePath&oFile.FileName%></td>
<td><%=formatnumber(oFile.filesize/1024,1,-1)):rem 設置輸出的數字格式%>KB</td>
<td><%=FileName%></td>
</tr>
<%set oFile=nothing
'next
end if
set upfile=nothing '刪除此對象
'插入數據庫操作
call opendb()
upload_path=formPath&FileName
'response.write upload_path
'response.end
num=left(session("student_num_name"),2)
conn.execute("insert into upload_info (upload_username,upload_path,upload_homework_name,class_e,teacher,num) values ('" & session("student") & "','" & upload_path & "','" & work_name & "','" & session("student_class") & "','" & session("our_teacher") & "','" & num & "')")
'判斷文件類型是否合格
Private Function CheckFileExt (fileEXT)
dim Forumupload
Forumupload=split(filesext,",")'從數據庫中取出文件類型
for i=0 to ubound(Forumupload)
if lcase(fileEXT)=lcase(trim(Forumupload(i))) then
CheckFileExt=true
exit Function
else
CheckFileExt=false
end if
next
End Function
%>
<tr>
<td colspan="3" align="center" class="red_12pt_font">恭喜一個作業文件上傳成功！</td>
</tr>
<tr>
<td colspan="3" align="center"><input name="contiune" type="button" id="contiune" value="繼續上傳該次作業的其它文件" onClick="history.go(-1)">
<input name="manage_index" type="button" id="manage_index" value="返回管理首頁" onclick="window.location.href='explain.asp'">
</td>
</tr>
</table>
</body>
</html>
<%
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=work_name%></title>
<link href="eric.css" rel="stylesheet" type="text/css">
</head>
<body>
<form action="?action=Upload&work_name=<%=work_name%>" method="post" enctype="multipart/form-data" name="form">
<table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01">
<tr>
<td width="151" class="white_bold_blue">[<%=work_name%>]作業上傳：</td>
<td width="430" class="white_bold_blue">目前只能上傳<%=filesext%>類型的文件 </td>
</tr>
<tr>
<td>上傳文件：</td>
<td>
<input type="hidden" name="filepath" value="Upload/<%response.write session("our_teacher") & "/" & session("student_class") & "/" & work_name & "/" %>" readonly>
<input name="file" type="file" class="input_file_01">
</td>
</tr>
<tr>
<td colspan="2" class="center"><input type="submit" name="Submit2" value="提交">
<input type="reset" name="Submit3" value="重置"></td>
</tr>
</table>
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -