📄 userup.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="sqlx.asp"-->
<%
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='index.asp';</script>")
response.end
end if
call hacker()
if username="" then
response.Write "<script>alert('您的权限不足！');this.location.href='admin.asp';</script>"
response.end
elseif userup="no" then
response.Write "<script>alert('你别想乱来！');this.top.location.href='index.asp';</script>"
response.end
end if%>
<LINK href="img/admin.css" type=text/css rel=stylesheet>
<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 web58818request=new UpLoadClass
web58818request.SavePath=uploadpath
web58818request.MaxSize=uploadsize*1024
web58818request.FileType=uploadtype
AutoSave=true
web58818request.open
if web58818request.form("file_Err")<>0 then
select case web58818request.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='"&web58818request.SavePath&web58818request.Form("file")&"';"
response.write "</script>"
response.write "<script language=""javascript"">"
response.write "parent.IframeID.document.body.innerHTML+='<img align=left src="&web58818request.SavePath&web58818request.Form("file")&" width=200>';"
response.write "</script>"
size=round((web58818request.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 web58818request=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=""web58818""> "
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=artupsize
uploadtype=artup
Set web58818request=new UpLoadClass
web58818request.SavePath=uploadpath
web58818request.MaxSize=uploadsize*1024
web58818request.FileType=uploadtype
AutoSave=true
web58818request.open
if web58818request.form("file_Err")<>0 then
select case web58818request.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='"&web58818request.SavePath&web58818request.Form("file")&"';"
response.write "</script>"
response.write "<script language=""javascript"">"
response.write "parent.IframeID.document.body.innerHTML+='<img align=left src="&web58818request.SavePath&web58818request.Form("file")&" width=200>';"
response.write "</script>"
size=round((web58818request.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 web58818request=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=""web58818""> "
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=picupsize
uploadtype=picup
Set web58818request=new UpLoadClass
web58818request.SavePath=uploadpath
web58818request.MaxSize=uploadsize*1024
web58818request.FileType=uploadtype
AutoSave=true
web58818request.open
if web58818request.form("file_Err")<>0 then
select case web58818request.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='"&web58818request.SavePath&web58818request.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 web58818request=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=""web58818""> "
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=downupsize
uploadtype=downup
Set web58818request=new UpLoadClass
web58818request.SavePath=uploadpath
web58818request.MaxSize=uploadsize*1024
web58818request.FileType=uploadtype
AutoSave=true
web58818request.open
if web58818request.form("file_Err")<>0 then
select case web58818request.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.url1.value='"&web58818request.SavePath&web58818request.Form("file")&"';"
response.write "</script>"
size=round((web58818request.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 web58818request=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=""web58818""> "
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=downpicupsize
uploadtype=downpicup
Set web58818request=new UpLoadClass
web58818request.SavePath=uploadpath
web58818request.MaxSize=uploadsize*1024
web58818request.FileType=uploadtype
AutoSave=true
web58818request.open
if web58818request.form("file_Err")<>0 then
select case web58818request.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='"&web58818request.SavePath&web58818request.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 web58818request=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=""web58818""> "
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=djupsize
uploadtype=djup
Set web58818request=new UpLoadClass
web58818request.SavePath=uploadpath
web58818request.MaxSize=uploadsize*1024
web58818request.FileType=uploadtype
AutoSave=true
web58818request.open
if web58818request.form("file_Err")<>0 then
select case web58818request.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='"&web58818request.SavePath&web58818request.Form("file")&"';"
response.write "</script>"
size=round((web58818request.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 web58818request=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=""web58818""> "
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=djpicupsize
uploadtype=djpicup
Set web58818request=new UpLoadClass
web58818request.SavePath=uploadpath
web58818request.MaxSize=uploadsize*1024
web58818request.FileType=uploadtype
AutoSave=true
web58818request.open
if web58818request.form("file_Err")<>0 then
select case web58818request.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='"&web58818request.SavePath&web58818request.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 web58818request=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=""web58818""> "
response.write "<input type=submit name=submit value=上传 class=""adminbutton"">"
response.write "</form></div></center>"
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■上传歌词附件
case "lrc":
if Request.QueryString("submit")="lrc" then
uploadpath="up/lrc/"
uploadsize=lrcupsize
uploadtype=lrcup
Set web58818request=new UpLoadClass
web58818request.SavePath=uploadpath
web58818request.MaxSize=uploadsize*1024
web58818request.FileType=uploadtype
AutoSave=true
web58818request.open
if web58818request.form("file_Err")<>0 then
select case web58818request.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.lrc.value='"&web58818request.SavePath&web58818request.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 web58818request=nothing
end if
response.write "<center><div style=""padding-top:5px;padding-bottom:5px;""><form name=form action=?action=lrc&submit=lrc method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class=""web58818""> "
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 web58818request=new UpLoadClass
web58818request.SavePath=uploadpath
web58818request.MaxSize=uploadsize*1024
web58818request.FileType=uploadtype
AutoSave=true
web58818request.open
if web58818request.form("file_Err")<>0 then
select case web58818request.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="&web58818request.SavePath&web58818request.Form("file")&" width=200>';"
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 web58818request=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=""web58818""> "
response.write "<input type=submit name=submit value=上传 class=""adminbutton"">"
response.write "</form></div></center>"
end select
'上传函数
Class UpLoadClass
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -