📄 index.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="fanconn.asp"-->
<!--#include file="fanfuc.asp"-->
<%randomize%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>日月新闻发布系统</title>
<link rel="stylesheet" type="text/css" href="style.css">
<base target="_top">
</head>
<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF">
<p align='center'><br>【<font color="#FF0000">日月新闻发布系统</font><font color="#000000"><b>Ⅰ</b></font>】</p>
<div align="center">
<table border="1" width="770" bgcolor="#FFFFCC" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" cellspacing="0">
<%
dim num
dim head
num = Int((Rnd*8)+1)
if num = 1 then dot = "○"
if num = 2 then dot = "●"
if num = 3 then dot = "◇"
if num = 4 then dot = "◆"
if num = 5 then dot = "□"
if num = 6 then dot = "■"
if num = 7 then dot = "△"
if num = 8 then dot = "▲"
num = Int((Rnd*3)+1)
dim tcolor
if num = 1 then htcolor = "#FFFFCC"
if num = 2 then htcolor = "#CCFFCC"
if num = 3 then htcolor = "#CCFFFF"
dim linknum
dim i
dim j
dim k
dim m
dim top(7)
top(1) = "国际新闻"
top(2) = "国内新闻"
top(3) = "港.澳.台新闻"
top(4) = "北京新闻"
top(5) = "上海新闻"
top(6) = "其他新闻"
for i = 1 to 3
for j = 1 to 2
for k = 1 to 2
m = 2 * i + k - 2
if k = 1 then
response.write "<tr>"
end if
if j = 1 then
response.write "<td width='40%' align='center' bgcolor='"&htcolor&"'>"
response.write "<font color='#008000'>【</font><font color='#FF0000'>"
response.write top(m)&"</font><font color='#008000'>】</font></td>"
response.write "<td width='5%' align='center' bgcolor='#F0F0F0'>"
response.write "<font color='#FF0000'><a href='bbsview.asp?type=" & m & "' target='_top'>更多</a></font></td>"
response.write "<td width='5%' align='center' bgcolor='#FFFFFF'><font color='#FF0000'>"
response.write "<a href='addbbs.asp?type=" & m & "'>发布</a></font></td>"
else
response.write " <td width='50%' valign='top' bgcolor='#F9F9F9' colspan='3'>"
SQL="select * from " & m & " where first = 0 ORDER BY ID DESC"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
If rs.Bof OR rs.Eof Then
Response.Write "<p align='center'>目前"&top(m)&"没有内容，<a href='addbbs.asp?type=" & m & "'>请发布新闻</a>！</p>"
else
linknum = 0
'设置显示记录数
DO WHILE NOT rs.EOF and linknum < 5
response.write "<font color='#FF0000'>"&dot&"</font> "
mtitle=rs("title")
if strLength(mtitle) >29 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,28)))&"..</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 color='#999999'>"&rs("hits")&"</font>] 回复["
if rs("reply") > 0 then
response.write "<font color='#FF0000'>+"&rs("reply")&"</font>]"
else
response.write "<font color='#999999'>0</font>]"
end if
response.write "</a> <font color='#BBBBBB'>"&Formatdatetime(rs("bbstime"),2)&"</font><br>"
rs.movenext
linknum = linknum + 1
loop
set rs=nothing
end if
end if
if k = 2 then
response.write "</tr>"
end if
next
next
next
%>
</table>
<br><p align='center'><font color='#BBBBBB'><a href="http://user.qzone.qq.com/281451936" target="_blank"><img border="0" src="tutufan.gif" alt="ECJTU组制作"></a></font></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -