📄 err.asp
字号:
<%
if session("admin")="" and session("flag")="" then
response.redirect "admin.asp"
end if
%>
<!--#include FILE="conn.asp"-->
<%
sq1="select * from upset order by id"
Set Rs1 = Server.CreateObject("Adodb.Recordset")
rs1.open sq1,conn,1,2
rsformPath=rs1("formPath")
rsnamekind=rs1("namekind")
rsfilesize=rs1("filesize")
rsallowedfile=rs1("allowedfile")
rs1.close
Set rs1=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link rel="stylesheet" type="text/css" href="style.css">
<body>
<table align="center" width="50%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor=#999999 colspan="2" align="center"><B>文件上传错误</B></td>
</tr>
<%If request("id")="" Then response.redirect"mobileup.asp"%>
<%if request("id")=1 then %>
<tr bgcolor=#999999><td colspan="2" width="100%" align="center">文件名不能为空！</td></tr>
<%End if%>
<%if request("id")=2 then %>
<tr bgcolor=#ffffff><td colspan="2" width="100%" align="center">文件类型错误，上传不成功！</td></tr>
<tr bgcolor=#ffffff><td colspan="2" width="100%" align="center">允许上传的文件类型有:<%=rsallowedfile%></td></tr>
<%End if%>
<%if request("id")=3 then %>
<tr bgcolor=#ffffff><td colspan="2" width="100%" align="center">文件过大，上传不成功！</td></tr>
<tr bgcolor=#ffffff><td colspan="2" width="100%" align="center">允许上传的文件大小为:<%=rsfilesize%>KB</td></tr>
<%End if%>
<%if request("id")=4 then %>
<tr bgcolor=#ffffff><td colspan="2" width="100%" align="center">文件已存在，上传不成功！</td></tr>
<%
size=CStr(size)
sq2="select * from article where filesize='"&size&"'"
Set Rs2 = Server.CreateObject("Adodb.Recordset")
rs2.open sq2,conn,1,2
id=rs2("articleid")
title=rs2("title")
classid=rs2("classid")
nclassid=rs2("nclassid")
content=rs2("content")
size=rs2("filesize")
writer=rs2("writer")
dateandtime=rs2("dateandtime")
rs2.close
Set rs2=nothing
%>
<tr bgcolor=#FFFFFF><td bgcolor=#999999 width="20%">ID:</td><td width="80%"><%=id%></td></tr>
<tr bgcolor=#FFFFFF><td bgcolor=#999999 width="20%">名称:</td><td width="80%"><%=title%></td></tr>
<tr bgcolor=#FFFFFF><td bgcolor=#999999 width="20%">描述:</td><td width="80%"><%=content%></td></tr>
<tr bgcolor=#FFFFFF><td bgcolor=#999999 width="20%">大小:</td><td width="80%"><%size=Round(size/1024,2)
If Left(size,1)="." Then size="0"&size
%>
<%=size%>KB</td></tr>
<tr bgcolor=#FFFFFF><td bgcolor=#999999 width="20%">上传人:</td><td width="80%"><%=writer%></td></tr>
<tr bgcolor=#FFFFFF><td bgcolor=#999999 width="20%">上传时间:</td><td width="80%"><%=dateandtime%></td></tr>
<tr bgcolor=#999999><td colspan="2" width="100%" align="center"><B><a href='softdown.asp?id=<%=id%>&aid=<%=classid%>&bid=<%=nclassid%>'>到下载页面</a></B></td></tr>
<tr bgcolor=#999999><td colspan="2" width="100%" align="center"><B><a href='upadd.asp'>继续上传</a></B></td></tr>
<%End if%>
<%if request("id")=5 then %>
<tr bgcolor=#ffffff><td colspan="2" width="100%" align="center">请选择要上传的文件！</td></tr>
<%End if%>
<%if request("id")=6 then %>
<tr bgcolor=#ffffff><td colspan="2" width="100%" align="center">系统错误，请联系管理员！</td></tr>
<tr bgcolor=#ffffff><td colspan="2" width="100%" align="center">错误6，保存上传数据所需文件夹不存在！</td></tr>
<%End if%>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -