📄 up.asp
字号:
<%
pageadmin=10
%>
<!-- #include file="../login/check.asp" -->
<!--#include file="../../inc/conn.asp" -->
<!--#include file="../../inc/function.asp" -->
<!--#include file="upload_class.asp" -->
<%
response.expires=-1
%>
<head>
<link rel="stylesheet" href="../../inc/lbstyle.css" type="text/css">
<title>力行上传程序</title>
<base target="_self">
</head>
<body>
<%
Dim action
action=Request.QueryString("action")
Dim up
Set up=new LBUpload
Select Case action
Case "add"
If LCase(Request.ServerVariables("request_method"))="post" Then
up.Add()
Else
up.PageHtmlForm()
End If
Case "delete"
up.Delete()
Case Else
up.PageUplist(30)
End Select
Set up=Nothing
call connclose
%>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -