📄 upload_class.asp
字号:
Set file=Nothing
Case Else
End Select
'记录数据库信息
Dim rs
Set rs=Conn.execute("select max(id) from upfiles")
Dim idd
If IsNull(rs(0)) Or rs(0)="" Then
idd=1
Else
idd=rs(0)+1
End If
ActionConn.execute("insert into upfiles (id,filename,dateandtime,filesize,extension,category,description) values ("&Idd&",'"&FileName&"','"&Dateandtime&"',"&FileSize&",'"&extension&"','"&category&"','"&description&"')")
Response.Write "<script>window.returnValue ='"&GetUrl(FileName)&"';window.close();</script>"
End Function
'# ----------------------------------------------------------------------------
'# 函数：eWebList
'# 描述：eWeb文件上传页面
'# 参数： -
'# 返回：
'# 日期：2004
'#-----------------------------------------------------------------------------
Public Function eWebList()
%>
<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=ewebsave&type=<%=sType%>&style=<%=sStyleName%>" method=post name=myform enctype="multipart/form-data">
<input type=file name=uploadfile size=1 style="width:100%">
<input type="submit" class="button" value="dddd">
</form>
<script language=javascript>
var sAllowExt = "<%=limExtension%>";
// 是否有效的扩展名
function IsExt(url, opt){
var sTemp;
var b=false;
var s=opt.toUpperCase().split(",");
for (var i=0;i<s.length ;i++ ){
sTemp=url.substr(url.length-s[i].length-1);
sTemp=sTemp.toUpperCase();
s[i]="."+s[i];
if (s[i]==sTemp){
b=true;
break;
}
}
return b;
}
// 检测上传表单
function CheckUploadForm() {
if (!IsExt(document.myform.uploadfile.value,sAllowExt)){
parent.UploadError("提示：\n\n请选择一个有效的文件，\n支持的格式有（"+sAllowExt+"）！");
return false;
}
return true
}
// 提交事件加入检测表单
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 Function
'# ----------------------------------------------------------------------------
'# 函数：eWebAdd
'# 描述：上传添加文件
'# 参数： id-使用的上传组件 1-化境编程的无组件上传
'# 返回：
'# 日期：2004-04-07
'#-----------------------------------------------------------------------------
Public Function eWebAdd()
Dim file
Select Case Upid
Case 1
Set file=Up.file("uploadfile")
'取得表单的内容已经文件的信息
FileName=LCase(file.filename)
DateAndTime=Now()
FileSize=file.filesize
'大小转换成以K为单位
FileSize=formatnumber(FileSize/1024,2)
'判断有效性
If FileSize=0 And FileName="" Then
Call OutScript("parent.UploadError('请选择有效的上传文件！')")
Exit Function
End If
If limFileSize>0 And CInt(FileSize)>LimFileSize Then
Call OutScript("parent.UploadError('文件大小超过限制,请上传不大于"&limFileSize&"K的文件')")
Exit Function
End If
Extension=split(FileName,".")(ubound(split(FileName,".")))
'判断有效性
If InStr(limExtension,Extension)=0 Then
Call OutScript("parent.UploadError('该文件类型已经禁止上传')")
Exit Function
End If
Category="新闻内容图片"
Description=up.Form("description")
'保存文件
FileName=Year(dateandtime)&month(dateandtime)&day(dateandtime)&hour(dateandtime)&minute(dateandtime)&second(dateandtime)&"."&Extension
file.saveas server.mappath("../upload/upfiles/"&FileName)
Set file=Nothing
Case Else
End Select
'记录数据库信息
Dim rs
Set rs=Conn.execute("select max(id) from upfiles")
Dim idd
If IsNull(rs(0)) Or rs(0)="" Then
idd=1
Else
idd=rs(0)+1
End If
ActionConn.execute("insert into upfiles (id,filename,dateandtime,filesize,extension,category,description) values ("&Idd&",'"&FileName&"','"&Dateandtime&"',"&FileSize&",'"&extension&"','"&category&"','"&description&"')")
Call OutScript("parent.UploadSaved('" & ewebGeturl(FileName) & "')")
End Function
'# ----------------------------------------------------------------------------
'# 函数：ewebGetUrl
'# 描述：取得文件的URl地址
'# 参数：fm-要取得url的文件
'# 返回：取得的URl，文本型
'# 日期：2004-04-07
'#-----------------------------------------------------------------------------
Private Function ewebGetUrl(fm)
Dim addr0,addr1,url
addr0=request.servervariables("server_name")
if request.servervariables("server_port")<>"80" then addr0=addr0 & ":" & request.servervariables("server_port")
addr1=request.servervariables("url")
addr1=replace(addr1,"htmledit/upload.asp","upload/upfiles/"&fm)
url="http://"&addr0&addr1
ewebGetUrl=url
End Function
'# ----------------------------------------------------------------------------
'# 函数：delete
'# 描述：删除一个文件
'# 参数： -
'# 返回：
'# 日期：2004-04-07
'#-----------------------------------------------------------------------------
Public Function Delete()
Id=Request.QueryString("id")
'读取文件名称
Dim rs
Set rs=ActionConn.execute("select * from upfiles where id="&Id)
Dim filename
If Not rs.eof Then
filename=rs("filename")
Else
filename="error"
End If
rs.Close
Set rs = Nothing
'从数据库中删除文件信息
ActionConn.execute("Delete * from upfiles where id="&Id)
'使用fso组件删除文件
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'如果出错则结束
If err Then
Call Showsuccess("服务器不支持Fso组件,数据已经从数据库中删除,要删除文件请手动删除.","?action=list")
exit function
End If
'如果文件存在就删除
If fso.fileExists("upfiles/"&filename) Then
fso.DeleteFile "upfiles/"&filename
End If
Set fso=Nothing
'返回信息
If err Then
Call ShowError("删除文件失败.")
Else
Call ShowSuccess("文件删除成功.","?action=list")
End If
End Function
'# ----------------------------------------------------------------------------
'# 函数：
'# 描述：
'# 参数： -
'# 返回：
'# 日期：2004
'#-----------------------------------------------------------------------------
Function FileName2Pic(sExt)
Select Case LCase(sExt)
case "txt"
spicname = "txt.gif"
case "chm", "hlp"
spicname = "hlp.gif"
case "doc"
spicname = "doc.gif"
case "pdf"
spicname = "pdf.gif"
case "mdb"
spicname = "mdb.gif"
case "gif", "jpg", "png", "bmp"
spicname = "pic.gif"
case "asp", "jsp", "js", "php", "php3", "aspx"
spicname = "code.gif"
case "htm", "html", "shtml"
spicname = "htm.gif"
case "zip", "rar"
spicname = "zip.gif"
case "exe"
spicname = "exe.gif"
case "avi", "mpg", "mpeg", "asf"
spicname = "mp.gif"
case "ra", "rm"
spicname = "rm.gif"
case "mid", "wav", "mp3", "midi"
spicname = "audio.gif"
case "xls"
spicname = "xls.gif"
case "ppt", "pps"
spicname = "ppt.gif"
case else
spicname = "unknow.gif"
end select
FileName2Pic = "<img border=0 src='../htmledit/sysimage/file/" & sPicName & "'>"
End Function
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -