📄 news.asp
字号:
<!--#include file="../login/check.asp" -->
<link rel="stylesheet" href="../../inc/lbstyle.css" type="text/css">
<body>
<!--#include file="news_class.asp" -->
<%
Dim news
Set news=new LBNews
Dim action
action=LCase(Request.QueryString("action"))
Select Case action
Case "add"
news.AddPage()
Case "modify"
news.ModifyPage()
Case "list"
news.ListPage()
Case "delete"
news.DeletePage()
Case "set"
news.SetPage()
Case "pass"
if cint(session("adminpower"))<10 then
response.write "<script>location.href='../err.html';</script>"
response.end
end if
If IsPost Then
news.NewsPass()
Else
news.PagePassList()
End If
Case Else
End Select
Set news=Nothing
%>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -