📄 showannouncement.asp
字号:
<%
if not session("sfadmin") then response.redirect("welcome.asp")
%>
<!--#INCLUDE FILE="../inc/db_inc.asp"-->
<!--#INCLUDE FILE="../inc/md5_inc.asp"-->
<!--#INCLUDE FILE="../inc/char_inc.asp"-->
<!--#INCLUDE FILE="../inc/xbcode_inc.asp"-->
<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" href="image/style.css" type="text/css">
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000" leftmargin="10" topmargin="10">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
%>
<!--#INCLUDE FILE="checkadmin.asp"-->
<%
if request("mode") <> "" then
errstr = ""
if not IsNumeric(request("id")) then
errstr = "id必须为数字"
else
id = clng(request("id"))
end if
if errstr = "" then
strsql = "delete from sf_announcement where announcementid = " & id
Conn.execute(strsql)
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
<TR>
<TD bgcolor="#D1E3BF" align="center">已经删除指定的公告</TD>
</TR>
</TABLE>
<%
else
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
<TR>
<TD bgcolor="#D1E3BF">错误:<BR><%= errstr %></TD>
</TR>
</TABLE>
<%
end if
else
page = request("page")
' 获得当前页数
if page = "" then
page = 1
else
if not IsNumeric(page) then
page = 1
else
page = clng(page)
end if
end if
pagecount = 1
StrSql = "select sf_announcement.*, sf_user.* from sf_announcement left join sf_user on (sf_announcement.userid = sf_user.userid) order by announcementid DESC"
Set rs = server.CreateObject("ADODB.RecordSet")
rs.Open StrSql, Conn, 1, 1
if not (rs.bof or rs.eof) then
i = 1
rs.PageSize = 20
if page > rs.PageCount then page = rs.PageCount
rs.AbsolutePage = page
pagecount = rs.PageCount
do until rs.eof or i > rs.PageSize
response.write "<TABLE width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""4"" align=""center"">"
response.write "<TR><TD bgcolor=""#D1E3BF"" colspan=""2"">标题: " & rs("title") & " (<a href=""showannouncement.asp?mode=del&id=" & rs("announcementid") & """>删除</A>)" & "</TD></TR>"
response.write "<TR><TD bgcolor=""#F5F5F5"" width=""20%"" align=""center"" valign=""top"">" & rs("username") & "</TD>"
response.write "<TD bgcolor=""#F5F5F5"">有效期: " & rs("startdate") & " 到 " & rs("enddate") & "<HR color=""#FFFFFF"">"
posttext = formatstr(rs("pagetext"))
response.write "<BR>" & posttext & "</TD></TR></TABLE><BR>"
rs.MoveNext
i = i + 1
loop
end if
response.write "共" & pagecount & "页<BR>选择页数: "
for i=1 to pagecount
response.write " <a href=""showannouncement.asp?page=" & i & """> " & i & " </a>"
next
end if
Conn.Close
Set Conn = nothing
Set rs = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -