?? upload.asp
字號(hào):
<!--#include file="Include/Startup.asp"-->
<!--#include file="Include/upfile_class.asp"-->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★ ★
'☆ eWebEditor - eWebSoft在線文本編輯器 ☆
'★ ★
'☆ 版權(quán)所有: eWebSoft.com ☆
'★ ★
'☆ 程序制作: eWeb開發(fā)團(tuán)隊(duì) ☆
'★ email:webmaster@webasp.net ★
'☆ QQ:589808 ☆
'★ ★
'☆ 相關(guān)網(wǎng)址: [產(chǎn)品介紹]http://www.eWebSoft.com/Product/eWebEditor/ ☆
'★ [支持論壇]http://bbs.eWebSoft.com/ ★
'☆ ☆
'★ 主頁(yè)地址: http://www.eWebSoft.com/ eWebSoft團(tuán)隊(duì)及產(chǎn)品 ★
'☆ http://www.webasp.net/ WEB技術(shù)及應(yīng)用資源網(wǎng)站 ☆
'★ http://bbs.webasp.net/ WEB技術(shù)交流論壇 ★
'★ ★
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
%>
<%
Server.ScriptTimeOut = 1800
Dim sType, sStyleName
Dim sAllowExt, nAllowSize
Call InitUpload() ' 初始化上傳變量
Call DBConnEnd() ' 斷開數(shù)據(jù)庫(kù)連接
Dim sAction
sAction = UCase(Trim(Request.QueryString("action")))
Call ShowForm() ' 顯示上傳表單
If sAction = "SAVE" Then
Call DoSave() ' 存文件
End If
Sub ShowForm()
%>
<HTML>
<HEAD>
<TITLE>文件上傳</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
body, a, table, div, span, td, th, input, select{font:9pt;font-family: "宋體", Verdana, Arial, Helvetica, sans-serif;}
body {padding:0px;margin:0px}
</style>
<script language="JavaScript" src="dialog/dialog.js"></script>
</head>
<body bgcolor=menu>
<form action="?action=save&type=<%=sType%>&style=<%=sStyleName%>" method=post name=myform enctype="multipart/form-data">
<input type=file name=uploadfile size=1 style="width:100%">
</form>
<script language=javascript>
var sAllowExt = "<%=sAllowExt%>";
// 檢測(cè)上傳表單
function CheckUploadForm() {
if (!IsExt(document.myform.uploadfile.value,sAllowExt)){
parent.UploadError("提示：\n\n請(qǐng)選擇一個(gè)有效的文件，\n支持的格式有（"+sAllowExt+"）！");
return false;
}
return true
}
// 提交事件加入檢測(cè)表單
var oForm = document.myform ;
oForm.attachEvent("onsubmit", CheckUploadForm) ;
if (! oForm.submitUpload) oForm.submitUpload = new Array() ;
oForm.submitUpload[oForm.submitUpload.length] = CheckUploadForm ;
if (! oForm.originalSubmit) {
oForm.originalSubmit = oForm.submit ;
oForm.submit = function() {
if (this.submitUpload) {
for (var i = 0 ; i < this.submitUpload.length ; i++) {
this.submitUpload[i]() ;
}
}
this.originalSubmit() ;
}
}
// 上傳表單已裝入完成
try {
parent.UploadLoaded();
}
catch(e){
}
</script>
</body>
</html>
<%
End Sub
Sub DoSave()
Dim oUpload, oFile, sFileExt, sFileName
' 建立上傳對(duì)象
Set oUpload = New upfile_class
' 取得上傳數(shù)據(jù),限制最大上傳
oUpload.GetData(nAllowSize*1024)
If oUpload.Err > 0 Then
Select Case oUpload.Err
Case 1
Call OutScript("parent.UploadError('請(qǐng)選擇有效的上傳文件！')")
Case 2
Call OutScript("parent.UploadError('你上傳的文件總大小超出了最大限制（" & nAllowSize & "KB）！')")
End Select
Response.End
End If
Set oFile = oUpload.File("uploadfile")
sFileExt = UCase(oFile.FileExt)
Call CheckValidExt(sFileExt)
Dim sRnd
Randomize
sRnd = Int(900 * Rnd) +100
sFileName = "lytax" & year(now) & month(now)+10 & day(now)+10 & hour(now)+10 & minute(now)+10 & second(now)+10 & sRnd & "." & sFileExt
oFile.SaveToFile Server.Mappath("uploadfile/"& sFileName)
Set oFile = Nothing
Set oUpload = Nothing
Call OutScript("parent.UploadSaved('" & sFileName & "')")
End Sub
Sub OutScript(str)
Response.Write "<script language=javascript>" & str & ";history.back()</script>"
End Sub
Sub CheckValidExt(sExt)
Dim b, i, aExt
b = False
aExt = Split(sAllowExt, "|")
For i = 0 To UBound(aExt)
If UCase(aExt(i)) = UCase(sExt) Then
b = True
Exit For
End If
Next
If b = False Then
OutScript("parent.UploadError('提示：\n\n請(qǐng)選擇一個(gè)有效的文件，\n支持的格式有（"+sAllowExt+"）！')")
Response.End
End If
End Sub
' 初始化上傳限制數(shù)據(jù)
Sub InitUpload()
sType = UCase(Trim(Request.QueryString("type")))
sStyleName = Trim(Request.QueryString("style"))
sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "'"
oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
Select Case sType
Case "FILE"
sAllowExt = oRs("S_FileExt")
nAllowSize = oRs("S_FileSize")
Case "MEDIA"
sAllowExt = oRs("S_MediaExt")
nAllowSize = oRs("S_MediaSize")
Case "FLASH"
sAllowExt = oRs("S_FlashExt")
nAllowSize = oRs("S_FlashSize")
Case Else
sAllowExt = oRs("S_ImageExt")
nAllowSize = oRs("S_ImageSize")
End Select
Else
OutScript("parent.UploadError('無(wú)效的樣式ID號(hào)，請(qǐng)通過頁(yè)面上的鏈接進(jìn)行操作！')")
End If
oRs.Close
' 任何情況下都不允許上傳asp腳本文件
sAllowExt = Replace(UCase(sAllowExt), "ASP", "")
End Sub
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -