📄 editbbs.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="fanconn.asp"-->
<!--#include file="fanfuc.asp"-->
<%
if request.cookies("adminok") = "" then
response.redirect "login.asp"
end if
%>
<% response.buffer=true %>
<html>
<head>
<link rel="stylesheet" type="text/css" href="style.css">
<title>管理员维护！</title>
</head>
<body bgcolor="#FFFFCC" link="#000080" vlink="#008080" topmargin="0"><br>
<div align="center">
<center>
<table border="1" width="600" bordercolorlight="#C0C0C0" cellspacing="0" bordercolordark="#FFFFFF" bgcolor="#CCFFFF" style="color: #FF0000">
<tr>
<%
dim m
dim i
dim str,strurl
dim top(7)
top(1) = "国际新闻"
top(2) = "国内新闻"
top(3) = "港.澳.台新闻"
top(4) = "北京新闻"
top(5) = "上海新闻"
top(6) = "其他新闻"
m = Request.querystring("type")
for i = 1 to 6
str = "<td width='75' align='center'><b>" & top(i) & "</b></td>"
strurl = "<td width='75' align='center'><a href='editbbs.asp?type=" & i & "'>" & top(i) & "</a></td>"
if m = Cstr(i) then
response.write str
else
response.write strurl
end if
next
%>
<td width='75' align="center" bgcolor="#FFFFFF"><a href="addbbs.asp?type=<%=Request.querystring("type")%>">发布新闻</a></td>
<td width='75' align="center" bgcolor="#FFFFFF"><a href="../index.htm">返回主页</a></td>
</tr>
</table>
</center>
</div>
<%
if Request.querystring("type") = "" then
sql="SELECT * FROM 1,2,3,,4 WHERE first = 1 ORDER BY ID DESC"
else
sql="SELECT * FROM " & Request.querystring("type")& " WHERE first = 0 ORDER BY ID DESC"
end if
dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
If rs.Bof OR rs.Eof Then
Response.Write "<br><br><br><br><br><br><br><br>"
Response.Write "<p align='center'><font color='#FF0000'><b>无此版块或者该版块无内容！</b></font></p>"
Response.Write "<p align='center'><a href='addbbs.asp?type="&Request.querystring("type")&"'>我要发言</a></p>"
else
rs.pagesize = 15
rs.AbsolutePage = 1
if Request("page") <> "" then rs.AbsolutePage = Request("page")
RowCount = rs.pagesize
If Not rs.Eof Then
%><br>
<div align="center">
<center>
<table border="1" cellspacing="0" width="600" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
<tr>
<td width="101" bgcolor="#CCFFCC"><p align="center">发 布人</td>
<td bgcolor="#CCFFCC"><p align="center">新闻 主 题</td>
<td width="34" align="center" bgcolor="#CCFFCC"><p>浏览</td>
<td width="33" align="center" bgcolor="#CCFFCC"><p>回复</td>
<td width="67" align="center" bgcolor="#CCFFCC" colspan="2">维 护</td>
<td width="146" bgcolor="#CCFFCC"><p align="center">发 布时 间</td>
</tr>
<%
Do While Not rs.Eof AND RowCount > 0
dim mtitle
dim muser
mtitle=rs("title")
muser=rs("user")
response.write "<tr><td width='101'> "
if strLength(muser) > 13 then
response.write "<a href='mailto:"&server.htmlencode(rs("mail"))&"' title='"&server.htmlencode(muser)&"'>"
response.write server.htmlencode(left(muser,strLen(muser,12)))&".."
else
response.write "<a href='mailto:"&server.htmlencode(rs("mail"))&"'>"
response.write server.htmlencode(muser)
end if
response.write "</a></td>"
response.write "<td valign='middle'> "
if strLength(mtitle) > 28 then
response.write "<a href='bbsview2.asp?type=" & m & "&id=" & rs("id") &"' title='"&server.htmlencode(mtitle)&"'>"
response.write server.htmlencode(left(mtitle,strLen(mtitle,27)))&".."
else
response.write "<a href='bbsview2.asp?type=" & m & "&id=" & rs("id") &"'>"
response.write server.htmlencode(mtitle)
end if
response.write "</a></font></td>"
response.write "<td width='34' align='center'>"&rs("hits")&"</td>"
if rs("reply") = 0 then
response.write "<td width='33' align='center'>"&rs("reply")&"</td>"
else
response.write "<td width='33' align='center'><font color='#FF0000'><b>"&rs("reply")&"</b></font></td>"
end if
response.write "<td width='34' align='center'><a href='editbbs2.asp?type="&m&"&id="&rs("id")&"'>修改</a></td>"
response.write "<td width='33' align='center'><a href='dealbbs.asp?type="&m&"&id="&rs("id")&"&deal=delall'>删除</a></td>"
response.write "<td width='146' align='center'>"&rs("bbstime")&"</td></tr>"
%>
<%
rs.MoveNext
RowCount=RowCount-1
Loop
End If
%>
</table>
</center>
</div>
<p align="center">
<%
If rs.pagecount>1 then
Response.Write "<table border='0'>"
Response.Write "<tr>"
Response.Write "<td></td>"
Response.Write "<td>分页显示 ：</td>"
For i=1 to rs.pagecount
Response.Write "<td><a href='editbbs.asp?page=" & i & "&type=" & Request.querystring("type") & "'>"
Response.Write "[<b>" & i & "</b>]</a>"
Response.Write "</td>"
Next
Response.Write "</tr></table>"
End if
End if
rs.close
Set rs=nothing
conn.close
Set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -