📄 upload.asp
字号:
<!--#include file="include/config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style>
body,table{
margin:0px;
font-size:12px;
}
</style>
</head>
<body class="body">
<%
dim uptype,cat,urlName,sizeName,content,upmode
upType=Request("upType")
cat=Request("cat")
urlName=Request("urlName")
sizeName=Request("sizeName")
content=Request("content")
if session(userVar)=userVal then
userInfo=session("userInfo")
else
response.write("<font color=""#ff0000"">您没有上传文件的权限！</font>")
response.end
end if
if userUpPopedom=0 then
if cint(userInfo(2))=3 then
call showUpForm()
else
call UpMsg(1)
end if
elseif userUpPopedom=1 then
call ShowUpForm()
elseif userUpPopedom=2 then
if cint(userInfo(2))=2 then
call ShowUpForm()
elseif cint(userInfo(2))=3 then
call ShowUpForm()
else
call UpMsg(2)
end if
end if
Sub ShowUpForm()
%>
<table heiht="100%"><tr><td valign="middle">
<form name="fileform" enctype="multipart/form-data" method="post" action="upfile.asp?cat=<%=cat%>&uptype=<%=upType%>&urlname=<%=urlName%>&sizename=<%=sizeName%>&content=<%=content%>&upmode=<%=upmode%>">
<input type="file" name="upfile" size="30">
<input type="submit" name="up" value="上传">
</form>
</td></tr></table>
<%End Sub
Sub UpMsg(showMode)
dim tempStr
if showMode=1 then
tempStr="<table height=""100%""><tr><td valign=""middle""><font color=""#ff0000"">上传功能已关闭</font></td></tr></table>"
elseif showMode=2 then
tempStr="<table height=""100%""><tr><td valign=""middle""><font color=""#ff0000"">您的上传权限不够</font></td></tr></table>"
end if
response.write tempStr
End Sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -