📄 uperr.asp

📁 admin/admin.asp是WAP的后台管理登陆页面
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#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
%>
<% Response.ContentType="text/vnd.wap.wml;charset=UTF-8" %>
<?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
<card  title='上传错误'>
<p>
<%If request("id")="" Then response.redirect"mobileup.asp"%>
<%if request("id")=1 then %>
   文件名不能为空！<br/>
<%End if%>
<%if request("id")=2 then %>
文件类型错误，上传不成功！<br/>
允许上传的文件类型有:<%=rsallowedfile%><br/>
<%End if%>
<%if request("id")=3 then %>
文件过大，上传不成功！<br/>
允许上传的文件大小为:<%=rsfilesize%>KB<br/>
<%End if%>
<%if request("id")=4 then %>
文件已存在，上传不成功！<br/>
-----------------<br/>
<%
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
%>
ID:<%=id%><br/>
名称:<%=title%><br/>
描述:<%=content%><br/>
大小:<%size=Round(size/1024,2)
If Left(size,1)="." Then size="0"&size
%>
<%=size%>KB<br/>
上传人:<%=writer%><br/>
上传时间:<%=dateandtime%><br/>
<a href='softdown.asp?id=<%=id%>&amp;aid=<%=classid%>&amp;bid=<%=nclassid%>'>到下载页面</a><br/>
<%End if%>
<%if request("id")=5 then %>
   请选择要上传的文件！<br/>
<%End if%>
<%if request("id")=6 then %>
系统错误，请联系管理员！<br/>
错误6，保存上传数据所需文件夹不存在！<br/>
<%End if%>
-----------------<br/>
<a href='mobileup.asp?aid=<%=classid%>&amp;bid=<%=nclassid%>'>继续上传</a><br/>
<a href='main.asp'>&#x7BA1;&#x7406;&#x9996;&#x9875;</a>
</p>
</card>
</wml>
⌨️ 快捷键说明

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