up.asp
来自「这是我根据动网新闻核心自行设计的校园新闻系统」· ASP 代码 · 共 40 行
ASP
40 行
<%
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 + =
减小字号Ctrl + -
显示快捷键?