📄 adminnews.asp

📁 晴和教务管理系统
💻 ASP
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/function.asp"-->
<html>
<head>
<title>教务管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
</head>
<body style="background-color: #799AE1">
<table class="tableBorder" width="887" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr> 
<td colspan="6" align="center" background="images/admin_bg_1.gif" height="25"><b><font color="#ffffff">教务管理—</font></b><font color="#FFFFFF"><b>新闻管理</b></font></td>
</tr>
<form name="guestinfo" method="post" action="addnews.asp?action=save">
<tr> 
<td width="101" bgcolor="#E8F1FF" align="center">序号</td>
    <td width="328" bgcolor="#E8F1FF" align="center">
	标题</td>
    <td width="149" bgcolor="#E8F1FF" align="center">
	作者</td>
    <td width="102" bgcolor="#E8F1FF" align="center">
	修改</td>
    <td width="102" bgcolor="#E8F1FF" align="center">
	隐藏</td>
    <td width="103" bgcolor="#E8F1FF" align="center">
	删除</td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_news",conn,1,3
if rs.RecordCount=0 then
%>
<tr> 
<td width="100%" bgcolor="#E8F1FF" align="center" colspan="7"><font color=red>无记录</font></td>
</tr>
<%
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount 
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif  page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if

For i=1 To x
%>
<tr> 
<td width="101" bgcolor="#E8F1FF" align="center"><% =rs("newsid")%></td>
    <td width="328" bgcolor="#E8F1FF" align="center"><% =rs("newsname")%></td>
    <td width="149" bgcolor="#E8F1FF" align="center"><% =rs("addname")%></td>
    <td width="102" bgcolor="#E8F1FF" align="center"><a href="addnews.asp?action=edit&newsid=<% =rs("newsid")%>">修改</a></td>
<% If rs("lock") = 0 Then%>
    <td width="102" bgcolor="#E8F1FF" align="center"><a href="addnews.asp?action=lock&newsid=<% =rs("newsid")%>">隐藏</a></td>
<% Else%>
    <td width="102" bgcolor="#E8F1FF" align="center"><a href="addnews.asp?action=unlock&newsid=<% =rs("newsid")%>">解除隐藏</a></td>
<% End If%>
    <td width="103" bgcolor="#E8F1FF" align="center"><a href="addnews.asp?action=del&newsid=<% =rs("newsid")%>">删除</a></td>
</tr>
<%
rs.movenext
next
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
<TR>
<td bgcolor="#ffffff" height="25" align="center" colspan="6"><% call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")%></td>
</tr>
</form>
</table>
⌨️ 快捷键说明

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