📄 index.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head><script src="rainbow.js">
</script>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title_name%></title>
<style>
<!--
body, table, tr, td, p, a, html, select, option, input { font-family: 宋体; font-size: 9pt; text-decoration: none; color: #000000; line-height:150% }
A:hover { FONT-SIZE: 9pt; COLOR: #FF0000; FONT-FAMILY: 宋体; TEXT-DECORATION: none }
A.mecl { FONT-SIZE: 9pt; COLOR: #FFFFFF; FONT-FAMILY: 宋体; TEXT-DECORATION: none }
a:visited.mecl { FONT-SIZE: 9pt; COLOR: #FFFFFF; FONT-FAMILY: 宋体; TOP: 1px; TEXT-DECORATION: none }
a:hover.mecl { FONT-SIZE: 9pt; COLOR: #FFFF00; FONT-FAMILY: 宋体; POSITION: relative; TOP: 1px; TEXT-DECORATION: none }
-->
</style>
<Script Language="JavaScript">
function AddFav()
{
window.external.addFavorite(window.document.location.href,document.title);
}
</Script>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#CCCCCC">
<div align="center">
<center>
<!--#include file="top.asp"-->
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="778" bgcolor="#FFFFFF">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; padding: 5" bordercolor="#FFFFFF" width="100%">
<tr>
<td width="75%" valign="top" rowspan="4">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<%
rs_title_1.movefirst
if not rs_title_1.eof then
for rs_title_1_i = 1 to rs_title_1.recordcount
%>
<tr>
<td valign="top" width="49%" style="word-break:break-all">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 0px solid #C0C0C0 ;word-break:break-all" width="100%">
<tr>
<td width="100%" height="30" style="padding: 3">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse ;word-break:break-all" width="100%" height="100%">
<tr>
<td width="10%" bgcolor="#666666">
<p align="center">
<img border="0" src="img/t1.gif" width="20" height="20"></td>
<td width="90%" bgcolor="#F0F0F0"> <%=rs_title_1("title_1")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" style="padding: 3">
<%
set rs1 = Server.CreateObject("adodb.recordset")
rs1.open "select Top 10 id,title from title where tshow=true and title_1 = '"& rs_title_1("title_1") &"' order by id desc ",conn,1,3
if rs1.eof then
Response.Write("<font size='1' color='#666666'>●</font>此分类还未添加文档")
Else
for i1 = 1 to rs1.recordcount
%>
<font size="1" color="#666666">●</font><a href="article.asp?id=<%=rs1("id")%>&title=left(<%=rs1("id")%>,15)"><%=rs1("title")%></a><br>
<%
rs1.movenext
if rs1.eof then exit for
next
End if
rs1.close
set rs1 = nothing
%>
</td>
</tr>
</table>
</td>
<td width="2%" valign="top" rowspan="2">
</td>
<%
rs_title_1.movenext
if rs_title_1.eof then
%>
<td valign="top" width="49%" style="word-break:break-all">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #C0C0C0 ; word-break:break-all" width="100%">
<tr>
<td width="100%" height="30" style="padding: 3">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse ;word-break:break-all" width="100%" height="100%">
<tr>
<td width="10%" bgcolor="#666666">
<p align="center">
<img border="0" src="img/t1.gif" width="20" height="20"></td>
<td width="90%" bgcolor="#F0F0F0"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" style="padding: 3">
<font size="1" color="#666666">●</font></td>
</tr>
</table>
</td>
<%Else%>
<td valign="top" width="49%" style="word-break:break-all">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 0px solid #C0C0C0 ;word-break:break-all" width="100%">
<tr>
<td width="100%" height="30" style="padding: 3">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse ;word-break:break-all" width="100%" height="100%">
<tr>
<td width="10%" bgcolor="#666666">
<p align="center">
<img border="0" src="img/t1.gif" width="20" height="20"></td>
<td width="90%" bgcolor="#F0F0F0"> <%=rs_title_1("title_1")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" style="padding: 3">
<%
set rs2 = Server.CreateObject("adodb.recordset")
rs2.open "select Top 10 id,title from title where tshow=true and title_1 = '"& rs_title_1("title_1") &"' order by id desc ",conn,1,3
if rs2.eof then
Response.Write("<font size='1' color='#666666'>●</font>此分类还未添加文档")
Else
For i2 = 1 to rs2.recordcount
%>
<font size="1" color="#666666">●</font><a href="article.asp?id=<%=rs2("id")%>&title=<%=rs2("id")%>"><%=rs2("title")%></a><br>
<%
rs2.movenext
if rs2.eof then exit for
next
End if
rs2.close
set rs2 = nothing
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="49%"> </td>
<td> </td>
</tr>
<%
End if
if rs_title_1.eof then
exit for
else
rs_title_1.movenext
if rs_title_1.eof then exit for
End if
next
end if
rs_title_1.close
set rs_title_1 = nothing
%>
</table>
</td>
<td width="25%" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #CCCCCC; padding: 3" width="100%">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" height="27" background="img/bj_8.gif" align="center">
<img border="0" src="img/sbbslogo_13.gif"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" align="center" height="60">
<form action="http://www.9y.com.cn/bbs/login.asp" method="post"><input type="hidden" value="add" name="menu">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -