⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 up.asp

📁 gdflsdf fkspofql owjlfkjsoijdf sdjfo
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="sub/config.asp"-->
<%
if session("admin")<>"axsj" then
response.Write "<script>alert('您还没有登陆！');this.location.href='index.asp';</script>"
Response.End
end if%>
<link href="index.css" rel="stylesheet" type="text/css" />
<body leftmargin=0 topmargin=0 srcoll=no>
<%
select case request("action")
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■上传新闻附件
case "news":
if Request.QueryString("submit")="news" then
uploadpath="up/news/"                              '■■■■■■■■上传新闻附件文件目录
uploadsize=newsupsize                                 '■■■■■■■■上传新闻附件文件大小
uploadtype=newsup                       '■■■■■■■■上传新闻附件文件类型
Set axrequest=new UpLoadClass
    axrequest.SavePath=uploadpath
    axrequest.MaxSize=uploadsize*1024 
    axrequest.FileType=uploadtype
    AutoSave=true
    axrequest.open
if axrequest.form("file_Err")<>0  then
select case axrequest.form("file_Err")
case 1:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件超过"&uploadsize&"k [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
case 2:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件格式不对 [<a href='javascript:history.go(-1)']>重新上传</a>]</font></div>"
case 3:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件太大且格式不对 [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
end select
response.write str
else
response.write "<script language=""javascript"">parent.form2.pic.value='"&axrequest.SavePath&axrequest.Form("file")&"';" 
response.write "</script>"
response.write "<script language=""javascript"">" 
response.write "parent.IframeID.document.body.innerHTML+='<img align=left src="&axrequest.SavePath&axrequest.Form("file")&" width=200>';" 
response.write "</script>"
size=round((axrequest.Form("file_size")/1024),2)&"kb"
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><font size=2>文件上传成功!&nbsp;[<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set axrequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form class=form action=?action=news&submit=news method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class""wubian"">&nbsp;"
response.write "<input type=submit name=submit value=上传 class=""wubian"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■上传文章附件
case "book":
if Request.QueryString("submit")="book" then
uploadpath="up/book/"
uploadsize=bookupsize
uploadtype=bookup
Set axrequest=new UpLoadClass
    axrequest.SavePath=uploadpath
    axrequest.MaxSize=uploadsize*1024 
    axrequest.FileType=uploadtype
    AutoSave=true
    axrequest.open
if axrequest.form("file_Err")<>0  then
select case axrequest.form("file_Err")
case 1:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件超过"&uploadsize&"k [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
case 2:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件格式不对 [<a href='javascript:history.go(-1)']>重新上传</a>]</font></div>"
case 3:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件太大且格式不对 [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
end select
response.write str
else
response.write "<script language=""javascript"">parent.form2.pic.value='"&axrequest.SavePath&axrequest.Form("file")&"';" 
response.write "</script>"
response.write "<script language=""javascript"">" 
response.write "parent.IframeID.document.body.innerHTML+='<img align=left src="&axrequest.SavePath&axrequest.Form("file")&" width=200>';" 
response.write "</script>"
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><font size=2>文件上传成功!&nbsp;[<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set axrequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form class=form action=?action=book&submit=book method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class""wubian"">&nbsp;"
response.write "<input type=submit name=submit value=上传 class=""wubian"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■上传图片
case "pic":
if Request.QueryString("submit")="pic" then
uploadpath="up/pic/"
uploadsize=picupsize
uploadtype=picup
Set axrequest=new UpLoadClass
    axrequest.SavePath=uploadpath
    axrequest.MaxSize=uploadsize*1024 
    axrequest.FileType=uploadtype
    AutoSave=true
    axrequest.open
if axrequest.form("file_Err")<>0  then
select case axrequest.form("file_Err")
case 1:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件超过"&uploadsize&"k [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
case 2:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件格式不对 [<a href='javascript:history.go(-1)']>重新上传</a>]</font></div>"
case 3:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件太大且格式不对 [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
end select
response.write str
else
response.write "<script language=""javascript"">parent.form3.pic.value='"&axrequest.SavePath&axrequest.Form("file")&"';" 
response.write "</script>"
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><font size=2>文件上传成功!&nbsp;[<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set axrequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form class=form action=?action=pic&submit=pic method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class""wubian"">&nbsp;"
response.write "<input type=submit name=submit value=上传 class=""wubian"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■上传软件
case "down":
if Request.QueryString("submit")="down" then
uploadpath="up/down/"
uploadsize=downupsize
uploadtype=downup
Set axrequest=new UpLoadClass
    axrequest.SavePath=uploadpath
    axrequest.MaxSize=uploadsize*1024 
    axrequest.FileType=uploadtype
    AutoSave=true
    axrequest.open
if axrequest.form("file_Err")<>0  then
select case axrequest.form("file_Err")
case 1:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件超过"&uploadsize&"k [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
case 2:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件格式不对 [<a href='javascript:history.go(-1)']>重新上传</a>]</font></div>"
case 3:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件太大且格式不对 [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
end select
response.write str
else
response.write "<script language=""javascript"">parent.form2.url1.value='"&axrequest.SavePath&axrequest.Form("file")&"';" 
response.write "</script>"
size=round((axrequest.Form("file_size")/1024),0)&"KB"
  response.write "<script language=""javascript"">parent.form2.size.value='"&size&"';" 
  response.write "</script>"
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><font size=2>文件上传成功!&nbsp;[<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set axrequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form class=form action=?action=down&submit=down method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class""wubian"">&nbsp;"
response.write "<input type=submit name=submit value=上传 class=""wubian"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■上传软件缩图
case "downpic":
if Request.QueryString("submit")="downpic" then
uploadpath="up/down/pic/"
uploadsize=downpicupsize
uploadtype=downpicup
Set axrequest=new UpLoadClass
    axrequest.SavePath=uploadpath
    axrequest.MaxSize=uploadsize*1024 
    axrequest.FileType=uploadtype
    AutoSave=true
    axrequest.open
if axrequest.form("file_Err")<>0  then
select case axrequest.form("file_Err")
case 1:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件超过"&uploadsize&"k [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
case 2:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件格式不对 [<a href='javascript:history.go(-1)']>重新上传</a>]</font></div>"
case 3:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件太大且格式不对 [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
end select
response.write str
else
response.write "<script language=""javascript"">parent.form2.pic.value='"&axrequest.SavePath&axrequest.Form("file")&"';" 
response.write "</script>"
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><font size=2>文件上传成功!&nbsp;[<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set axrequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form class=form action=?action=downpic&submit=downpic method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class""wubian"">&nbsp;"
response.write "<input type=submit name=submit value=上传 class=""wubian"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■上传Flash文件
case "dj":
if Request.QueryString("submit")="dj" then
uploadpath="up/dj/"
uploadsize=djupsize
uploadtype=djup
Set axrequest=new UpLoadClass
    axrequest.SavePath=uploadpath
    axrequest.MaxSize=uploadsize*1024 
    axrequest.FileType=uploadtype
    AutoSave=true
    axrequest.open
if axrequest.form("file_Err")<>0  then
select case axrequest.form("file_Err")
case 1:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件超过"&uploadsize&"k [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
case 2:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件格式不对 [<a href='javascript:history.go(-1)']>重新上传</a>]</font></div>"
case 3:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件太大且格式不对 [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
end select
response.write str
else
response.write "<script language=""javascript"">parent.form.url.value='"&axrequest.SavePath&axrequest.Form("file")&"';" 
response.write "</script>"
size=round((axrequest.Form("file_size")/1024),0)&"KB"
  response.write "<script language=""javascript"">parent.form.size.value='"&size&"';" 
  response.write "</script>"
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><font size=2>文件上传成功!&nbsp;[<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set axrequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form action=?action=dj&submit=dj method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class=""yecao"">&nbsp;"
response.write "<input type=submit name=submit value=上传 class=""adminbutton"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■上传频道附件
case "other":
if Request.QueryString("submit")="other" then
uploadpath="up/other/"
uploadsize=otherupsize
uploadtype=otherup
Set axrequest=new UpLoadClass
    axrequest.SavePath=uploadpath
    axrequest.MaxSize=uploadsize*1024 
    axrequest.FileType=uploadtype
    AutoSave=true
    axrequest.open
if axrequest.form("file_Err")<>0  then
select case axrequest.form("file_Err")
case 1:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件超过"&uploadsize&"k [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
case 2:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件格式不对 [<a href='javascript:history.go(-1)']>重新上传</a>]</font></div>"
case 3:str="<div style=""padding-top:5px;padding-bottom:5px;""><font color=red>上传不成功!文件太大且格式不对 [<a href='javascript:history.go(-1)'>重新上传</a>]</font></div>"
end select
response.write str
else
response.write "<script language=""javascript"">" 
response.write "parent.IframeID.document.body.innerHTML+='<img align=left src="&axrequest.SavePath&axrequest.Form("file")&" width=200>';" 
response.write "</script>"
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><font size=2>文件上传成功!&nbsp;[<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set axrequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form action=?action=other&submit=other method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class=""yecao"">&nbsp;"
response.write "<input type=submit name=submit value=上传 class=""adminbutton"">"
response.write "</form></div></center>"
end select
'上传函数
Class UpLoadClass

	Private p_MaxSize,p_FileType,p_SavePath,p_AutoSave,p_Error
	Private objForm,binForm,binItem,strDate,lngTime
	Public	FormItem,FileItem

	Public Property Get Version
		Version="Rumor UpLoadClass Version 2.0"
	End Property

	Public Property Get Error
		Error=p_Error
	End Property

	Public Property Get MaxSize
		MaxSize=p_MaxSize
	End Property
	Public Property Let MaxSize(lngSize)
		if isNumeric(lngSize) then
			p_MaxSize=clng(lngSize)
		end if
	End Property

	Public Property Get FileType
		FileType=p_FileType
	End Property
	Public Property Let FileType(strType)
		p_FileType=strType
	End Property

	Public Property Get SavePath
		SavePath=p_SavePath
	End Property
	Public Property Let SavePath(strPath)
		p_SavePath=replace(strPath,chr(0),"")
	End Property

	Public Property Get AutoSave
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -