📄 bbsview.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="fanconn.asp"-->
<!--#include file="fanfuc.asp"-->
<% 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="#F0F0F0" 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' bgcolor='#FFFFFF'>" & top(i) & "</td>"
strurl = "<td width='75' align='center'><a href='bbsview.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")%>"><font color='#FF0000'>我要发布新闻</font></a></td>
<td width='75' align="center" bgcolor="#CCFFFF"><a href="index.asp">返回主页</a></td>
</tr>
</table>
</center>
</div><br>
<%
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>"
Response.Write "<p align='center'><font color='#FF0000'>该版块暂无内容！</font></p>"
Response.Write "<p align='center'><a href='addbbs.asp?type="&Request.querystring("type")&"'>我要发布</a><br><br><br><br><br><br><br><br>"
else
rs.pagesize = 18
rs.AbsolutePage = 1
if Request("page") <> "" then rs.AbsolutePage = Request("page")
RowCount = rs.pagesize
If Not rs.Eof Then
%>
<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="146" bgcolor="#CCFFCC"><p align="center">发 言 时 间</td>
</tr>
<%
dim color
dim face
face = 0
Do While Not rs.Eof AND RowCount > 0
if face = 0 then
color = "#FFFFFF"
face = 1
else
color = "#F0F0F0"
face = 0
end if
dim mtitle
dim muser
mtitle=rs("title")
muser=rs("user")
response.write "<tr><td width='101' bgcolor='"&color&"'> "
if strLength(muser) > 13 then
response.write "<a"
if rs("mail") <> "" then
response.write " href='mailto:"&server.htmlencode(rs("mail"))&"'"
end if
response.write " title='"&server.htmlencode(muser)&"'>"
response.write server.htmlencode(left(muser,strLen(muser,12)))&".."
else
if rs("mail") <> "" then
response.write "<a href='mailto:"&server.htmlencode(rs("mail"))&"'>"
end if
response.write server.htmlencode(muser)
end if
response.write "</td>"
response.write "<td valign='middle' bgcolor='"&color&"'> "
if strLength(mtitle) > 41 then
response.write "<a href='bbsview2.asp?type=" & m & "&id=" & rs("id") &"' title='"&server.htmlencode(mtitle)&"'>"
if Formatdatetime(rs("bbstime"),2) = Formatdatetime(now(),2) then
response.write "<font color='#FF0000'>"
end if
response.write server.htmlencode(left(mtitle,strLen(mtitle,40)))&"..</font>"
else
response.write "<a href='bbsview2.asp?type=" & m & "&id=" & rs("id") &"'>"
'当天发言的标题加红
if Formatdatetime(rs("bbstime"),2) = Formatdatetime(now(),2) then
response.write "<font color='#FF0000'>"
end if
response.write server.htmlencode(mtitle)&"</font>"
end if
response.write "</a></font></td>"
response.write "<td width='34' align='center' bgcolor='"&color&"'><font color='#AAAAAA'>"&rs("hits")&"</font></td>"
if rs("reply") = 0 then
response.write "<td width='33' align='center' bgcolor='"&color&"'><font color='#BBBBBB'>0</font></td>"
else
response.write "<td width='33' align='center' bgcolor='"&color&"'><font color='#FF0000'>+"&rs("reply")&"</font></td>"
end if
response.write "<td width='146' align='center' bgcolor='"&color&"'><font color='#BBBBBB'>"&rs("bbstime")&"</font></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>"
For i=1 to rs.pagecount
Response.Write "<td><a href='bbsview.asp?page=" & i & "&type=" & Request.querystring("type") & "'>"
Response.Write "[<b>" & i & "</b>]</a>"
Response.Write "</td>"
Next
Response.Write "<td> <a href='login.asp'><font color='#BBBBBB'>版主维护</font></a></td>"
Response.Write "</tr></table>"
End if
End if
rs.close
Set rs=nothing
conn.close
Set conn=nothing
%>
<br><a href="http://myhome.kaiping.gd.cn/tutufan/link/viewlink.asp" target="_blank"><img border="0" src="autolink.gif" alt="日月滚动酷链，欢迎加入！"></a><a href='http://user.qzone.qq.com/281451936'><font color='#BBBBBB'>【日月工作室】制作</font></a></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -