news.asp

来自「这是我根据动网新闻核心自行设计的校园新闻系统」· ASP 代码 · 共 36 行

ASP
36 行
字号 
<!--#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>

news.asp - 源码说明

本页面展示了「这是我根据动网新闻核心自行设计的校园新闻系统」中的 news.asp 源码文件，采用 ASP 编程语言编写，共 36 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与新闻相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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