📄 up.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<%
'//版权所有：野草设计
'//程序作者：野草
'//当前版本：V2.0
'//联系QQ：94440079
'//官方网站：http://www.yecaoweb.com
%>
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
Response.Write("<script language=javascript>alert('你提交的路径有误，禁止从站点外部提交数据请不要乱改参数！');this.location.href='c:\';</script>")
response.end
end if
call hacker()
if session("superlogin")<>yecaocookies then
response.Write "<script>alert('您的权限不足！');this.location.href='index.asp';</script>"
response.end
end if%>
<LINK href="img/admin.css" type=text/css rel=stylesheet>
<body srcoll=no style="margin:0px;">
<%
select case request("action")
'■■■■■■■■■■■■■■■■■■■上传新闻附件
case "news":
if Request.QueryString("submit")="news" then
uploadpath="up/news/" '上传新闻附件文件目录
uploadsize=upsize '上传新闻附件文件大小
uploadtype=up '上传新闻附件文件类型
Set yecaorequest=new UpLoadClass
yecaorequest.SavePath=uploadpath
yecaorequest.MaxSize=uploadsize*1024
yecaorequest.FileType=uploadtype
AutoSave=true
yecaorequest.open
if yecaorequest.form("file_Err")<>0 then
select case yecaorequest.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.pic.value='"&yecaorequest.SavePath&yecaorequest.Form("file")&"';"
response.write "</script>"
response.write "<script language=""javascript"">"
response.write "parent.IframeID.document.body.innerHTML+='<img align=left src="&yecaorequest.SavePath&yecaorequest.Form("file")&" width=200>';"
response.write "</script>"
size=round((yecaorequest.Form("file_size")/1024),2)&"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>文件上传成功! [<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set yecaorequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form action=?action=news&submit=news method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class=""yecao""> "
response.write "<input type=submit name=submit value=上传 class=""adminbutton"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■■■上传文章附件
case "art":
if Request.QueryString("submit")="art" then
uploadpath="up/art/"
uploadsize=upsize
uploadtype=up
Set yecaorequest=new UpLoadClass
yecaorequest.SavePath=uploadpath
yecaorequest.MaxSize=uploadsize*1024
yecaorequest.FileType=uploadtype
AutoSave=true
yecaorequest.open
if yecaorequest.form("file_Err")<>0 then
select case yecaorequest.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.pic.value='"&yecaorequest.SavePath&yecaorequest.Form("file")&"';"
response.write "</script>"
response.write "<script language=""javascript"">"
response.write "parent.IframeID.document.body.innerHTML+='<img align=left src="&yecaorequest.SavePath&yecaorequest.Form("file")&" width=200>';"
response.write "</script>"
size=round((yecaorequest.Form("file_size")/1024),2)&"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>文件上传成功! [<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set yecaorequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form action=?action=art&submit=art method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class=""yecao""> "
response.write "<input type=submit name=submit value=上传 class=""adminbutton"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■■■■上传图片
case "pic":
if Request.QueryString("submit")="pic" then
uploadpath="up/pic/"
uploadsize=upsize
uploadtype=up
Set yecaorequest=new UpLoadClass
yecaorequest.SavePath=uploadpath
yecaorequest.MaxSize=uploadsize*1024
yecaorequest.FileType=uploadtype
AutoSave=true
yecaorequest.open
if yecaorequest.form("file_Err")<>0 then
select case yecaorequest.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.pic.value='"&yecaorequest.SavePath&yecaorequest.Form("file")&"';"
response.write "</script>"
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><font size=2>文件上传成功! [<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set yecaorequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form action=?action=pic&submit=pic method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class=""yecao""> "
response.write "<input type=submit name=submit value=上传 class=""adminbutton"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■上传软件
case "down":
if Request.QueryString("submit")="down" then
uploadpath="up/down/"
uploadsize=upsize
uploadtype=up
Set yecaorequest=new UpLoadClass
yecaorequest.SavePath=uploadpath
yecaorequest.MaxSize=uploadsize*1024
yecaorequest.FileType=uploadtype
AutoSave=true
yecaorequest.open
if yecaorequest.form("file_Err")<>0 then
select case yecaorequest.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+='"&yecaorequest.SavePath&yecaorequest.Form("file")&"';"
response.write "</script>"
size=round((yecaorequest.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>文件上传成功! [<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set yecaorequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form action=?action=down&submit=down method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class=""yecao""> "
response.write "<input type=submit name=submit value=上传 class=""adminbutton"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■上传软件缩图
case "downpic":
if Request.QueryString("submit")="downpic" then
uploadpath="up/down/"
uploadsize=upsize
uploadtype=up
Set yecaorequest=new UpLoadClass
yecaorequest.SavePath=uploadpath
yecaorequest.MaxSize=uploadsize*1024
yecaorequest.FileType=uploadtype
AutoSave=true
yecaorequest.open
if yecaorequest.form("file_Err")<>0 then
select case yecaorequest.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.pic.value='"&yecaorequest.SavePath&yecaorequest.Form("file")&"';"
response.write "</script>"
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><font size=2>文件上传成功! [<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set yecaorequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form action=?action=downpic&submit=downpic method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class=""yecao""> "
response.write "<input type=submit name=submit value=上传 class=""adminbutton"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■■■上传娱乐文件
case "dj":
if Request.QueryString("submit")="dj" then
uploadpath="up/dj/"
uploadsize=upsize
uploadtype=up
Set yecaorequest=new UpLoadClass
yecaorequest.SavePath=uploadpath
yecaorequest.MaxSize=uploadsize*1024
yecaorequest.FileType=uploadtype
AutoSave=true
yecaorequest.open
if yecaorequest.form("file_Err")<>0 then
select case yecaorequest.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.url.innerHTML='"&yecaorequest.SavePath&yecaorequest.Form("file")&"';"
response.write "</script>"
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><font size=2>文件上传成功! [<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set yecaorequest=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""> "
response.write "<input type=submit name=submit value=上传 class=""adminbutton"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■■■上传娱乐缩图
case "djpic":
if Request.QueryString("submit")="djpic" then
uploadpath="up/dj/"
uploadsize=upsize
uploadtype=up
Set yecaorequest=new UpLoadClass
yecaorequest.SavePath=uploadpath
yecaorequest.MaxSize=uploadsize*1024
yecaorequest.FileType=uploadtype
AutoSave=true
yecaorequest.open
if yecaorequest.form("file_Err")<>0 then
select case yecaorequest.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.pic.value='"&yecaorequest.SavePath&yecaorequest.Form("file")&"';"
response.write "</script>"
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><font size=2>文件上传成功! [<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set yecaorequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form action=?action=djpic&submit=djpic method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class=""yecao""> "
response.write "<input type=submit name=submit value=上传 class=""adminbutton"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■■■■上传娱乐LCR
case "djlcr":
if Request.QueryString("submit")="djlcr" then
uploadpath="up/dj/"
uploadsize=upsize
uploadtype=up
Set yecaorequest=new UpLoadClass
yecaorequest.SavePath=uploadpath
yecaorequest.MaxSize=uploadsize*1024
yecaorequest.FileType=uploadtype
AutoSave=true
yecaorequest.open
if yecaorequest.form("file_Err")<>0 then
select case yecaorequest.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.lcr.innerHTML='"&yecaorequest.SavePath&yecaorequest.Form("file")&"';"
response.write "</script>"
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><font size=2>文件上传成功! [<a href='javascript:history.go(-1)'>重新上传</a>]</font></p></div></center>"
end if
Set yecaorequest=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form action=?action=djlcr&submit=djlcr method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class=""yecao""> "
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -