📄 admin_news.asp

📁 asp+sql软件系统
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="CheckAdmin.asp"-->
<%
ErrTitle = "管理用户出错："
SucTitle = "管理用户成功："

Dim Nid
Nid=Request.QueryString("Nid")

Dim title,content,flag
title=Trim(Request.Form("title"))
content=RTrim(Request.Form("content"))
flag=Request.Form("flag")

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>公告</title>
</head>

<body> 
<%
Select Case Action
	Case "Add"
		Call Add()
	Case "SaveAdd"
		Call SaveAdd()
	Case "Edit"
		Call Edit()
	Case "SaveEdit"
		Call SaveEdit()
	Case "Del"
		Call Del()
	Case Else
		Call Main()
End Select

Sub Main()
Call OpenDatabase()
Set Rs=Conn.Execute("SELECT Nid,Title,AddTime,Flag FROM [News] ORDER BY AddTime DESC")
%>
<table width="75%" border="1" align="center" cellpadding="2" cellspacing="0">
  <tr>
    <td colspan="5">系统公告</td>
  </tr>
  <tr>
    <td width="5%">ID</td>
    <td width="44%">标题</td>
    <td width="26%">时间</td>
    <td width="11%">标识</td>
    <td width="14%">管理</td>
  </tr>
  <%If Not(Rs.Eof)  Then
  While Not Rs.EOF%>
  <tr>
    <td><%=Rs(0)%></td>
    <td><%=Rs(1)%></td>
    <td><%=Rs(2)%></td>
    <td><%If Rs(3)=1 Then : Response.Write ("显示") : Else : Response.Write ("隐藏") : End If%></td>
    <td><a href="?Action=Edit&Nid=<%=Rs(0)%>">修改</a>|<a href="?Action=Del&Nid=<%=Rs(0)%>">删除</a></td>
  </tr>
  <%
  Rs.MoveNext
  Wend
  Else%>
  <tr align="center">
    <td colspan="5">暂无公告</td>
  </tr>
  <%End If%>
</table>
<%
Rs.Close
Set Rs=Nothing
Call CloseDatabase()
End Sub

Sub Add()
%>
<form name="form1" method="post" action="?Action=SaveAdd">
<table width="75%" border="1" align="center" cellpadding="4" cellspacing="0">
  <tr>
    <td colspan="2">发布公告</td>
  </tr>
  <tr>
    <td width="24%" align="right">标题</td>
    <td width="76%"><input name="title" type="text" id="title" size="40"></td>
  </tr>
  <tr>
    <td align="right">内容</td>
    <td><textarea name="content" cols="40" rows="8" id="content"></textarea></td>
  </tr>
  <tr>
    <td height="0" align="right">作者</td>
    <td><input name="author" type="text" id="author" value="彬彬" size="20"></td>
  </tr>
  <tr align="center">
    <td colspan="2"><input type="submit" name="Submit" value="发布公告"></td>
  </tr>
</table>
</form>
<%End Sub

Sub SaveAdd()
If title="" Or content="" Then
	ErrInfo = ErrInfo&"<li>请输入完整数据。</li>"
	FoundErr=True
End If
If FoundErr Then
	Call ErrorMsg()
Else
	Call OpenDatabase()
	Conn.Execute("INSERT INTO [News](Title,Content,Author,Flag)VALUES('"&NetCom.checkStr(title)&"','"&NetCom.checkStr(content)&"','彬彬',1)")
	Call CloseDatabase()
	Call SucMsg("<li>添加公告成功！</li>","Admin_News.asp")
End If
End Sub

Sub Edit()
Call OpenDatabase()
Set Rs=Conn.Execute("SELECT Title,Content,Flag FROM [News] WHERE Nid="&CInt(Nid)&"")
%>
<form name="form1" method="post" action="?Action=SaveEdit&Nid=<%=Nid%>">
<table width="75%" border="1" align="center" cellpadding="4" cellspacing="0">
  <tr>
    <td colspan="2">发布公告</td>
  </tr>
  <tr>
    <td width="24%" align="right">标题</td>
    <td width="76%"><input name="title" type="text" id="title" size="40" value="<%=Rs(0)%>"></td>
  </tr>
  <tr>
    <td align="right">内容</td>
    <td><textarea name="content" cols="40" rows="8" id="content"><%=Rs(1)%></textarea></td>
  </tr>
  <tr>
    <td height="0" align="right">作者</td>
    <td><input name="author" type="text" id="author" value="彬彬" size="20">
    </td>
  </tr>
  <tr>
    <td height="0" align="right">标识</td>
    <td>显示
      <input name="flag" type="radio" value="1" <%If Rs(2)=1 Then Response.Write ("checked")%>>
      隐藏
      <input type="radio" name="flag" value="0" <%If Rs(2)=0 Then Response.Write ("checked")%>></td>
  </tr>
  <tr align="center">
    <td colspan="2"><input type="submit" name="Submit" value="发布公告"></td>
  </tr>
</table>
</form>
<%
Rs.Close
Set Rs=Nothing
Call CloseDatabase()
End Sub

Sub SaveEdit()
If title="" Or content="" Then
	ErrInfo = ErrInfo&"<li>请输入完整数据。</li>"
	FoundErr=True
End If
If FoundErr Then
	Call ErrorMsg()
Else
	Call OpenDatabase()
	Conn.Execute("UPDATE [News] SET title='"&NetCom.checkStr(title)&"',content='"&NetCom.checkStr(content)&"',AddTime='"&Now()&"',Flag="&flag&" WHERE Nid="&CInt(Nid)&"")
	Call CloseDatabase()
	Call SucMsg("<li>修改公告成功！</li>","Admin_News.asp")
End If
End Sub

Sub Del()
Call OpenDatabase()
	Conn.Execute("DELETE FROM [News] WHERE Nid="&CInt(Nid)&"")
Call CloseDatabase()
Call SucMsg("<li>删除公告成功！</li>","Admin_News.asp")
End Sub
%>
</body>
</html>
⌨️ 快捷键说明

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