📄 index.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
body {
background-image: url();
}
-->
</style>
</head>
<body>
<!--#include file="top.asp"-->
<table width="710" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<!--#include file="left.asp"-->
<td width="1%"> </td>
<td width="69%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" background="img/bg.gif" bgcolor="#F9E49D">
<tr>
<td height="20" bgcolor="#E1B142">更新列表</td>
<td width="20"> </td>
</tr>
<tr>
<td><table width="100%" border="0" bgcolor="#FFFFFF">
<tr>
<td><table width="100%" border="0" cellspacing="1" bgcolor="#E0E0E0">
<tr bgcolor="#FFFFFF">
<td width="20%"><div align="center" class="style1">文章分类</div></td>
<td height="20"><div align="center" class="style1">文章标题</div></td>
<td width="20%"><div align="center" class="style1">更新日期</div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" bgcolor="#E0E0E0">
<%
sql="select * from wen order by wen_id desc"
set objrs=conn_str(sql)
for i=1 to objrs.recordcount
if i>10 then exit for
if len(objrs("wen_title"))>12 then
title=left(objrs("wen_title"),12)&"……"
else
title=objrs("wen_title")
end if
%>
<tr bgcolor="#FFFFFF">
<td width="20%" height="20" align="center"><a href="#"><%=objrs.fields("wen_nsort")%></a></td>
<td width="60%" height="20" align="center"><a href="show_wen.asp?id=<%=objrs("wen_id")%>"><%=title%></a></td>
<td width="20%" height="20" align="center"><%=objrs.fields("wen_date")%></td>
</tr>
<%
objrs.movenext
next
if objrs.recordcount<10 then
for i=1 to 10-objrs.recordcount
%>
<tr bgcolor="#FFFFFF">
<td width="20%" height="20" align="center"></td>
<td width="60%" height="20" align="center"></td>
<td width="20%" height="20" align="center"></td>
</tr>
<%
next
end if
sql1="select * from wen where wen_date=#"&date()&"#"
set objrs1=conn_str(sql1)
%>
</table></td>
</tr>
</table></td>
<td> </td>
</tr>
<tr>
<td height="20" bgcolor="#F9E49D"><div align="right">文章总数:<%=objrs.recordcount%>篇 今日更新：<%=objrs1.recordcount%>篇</div></td>
<%close_str(objrs)
close_str(objrs1)%>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#cccccc">
<tr>
<td width="50%" valign="top"><table width="100%" border="0">
<tr>
<td bgcolor="#F7F7F7"> 『人生之旅』 </td>
<td width="25%" bgcolor="#F7F7F7"><div align="center"><a href="nsort.asp?nsort=人生之旅">More</a></div></td>
</tr>
</table>
<%
sub zzq(class_name)
sql="select * from wen where wen_nsort='"&class_name&"' order by wen_date desc"
set objrs=conn_str(sql)
for i=1 to objrs.recordcount
if i>5 then exit for
if len(objrs("wen_title"))>12 then
title=left(objrs("wen_title"),12)&"……"
else
title=objrs("wen_title")
end if
%>
<tr>
<td height="20"> · <a href="show_wen.asp?id=<%=objrs("wen_id")%>"><%=title%></a></td>
</tr>
<%objrs.movenext
next
if objrs.recordcount<5 then
for i=1 to 5-objrs.recordcount
%>
<tr>
<td height="20"> · </td>
</tr>
<%
next
end if
close_str(objrs)
end sub
%>
<table width="100%" border="0" bgcolor="#FFFFFF">
<%zzq("人生之旅")%>
</table></td>
<td valign="top"><table width="100%" border="0">
<tr>
<td bgcolor="#EFEFEF">『诗歌家园』</td>
<td width="25%" bgcolor="#EFEFEF"><div align="center"><a href="nsort.asp?nsort=诗歌家园">More</a></div></td>
</tr>
</table>
<table width="100%" border="0" bgcolor="#FFFFFF">
<%zzq("诗歌家园")%>
</table></td>
</tr>
<tr>
<td width="50%" valign="top"><table width="100%" border="0">
<tr>
<td bgcolor="#F7F7F7">『情感世界』</td>
<td width="25%" bgcolor="#F7F7F7"><div align="center"><a href="nsort.asp?nsort=情感世界">More</a></div></td>
</tr>
</table>
<table width="100%" border="0" bgcolor="#FFFFFF">
<%zzq("情感世界")%>
</table></td>
<td valign="top"><table width="100%" border="0">
<tr>
<td bgcolor="#EFEFEF">『幽默笑话』</td>
<td width="25%" bgcolor="#EFEFEF"><div align="center"><a href="nsort.asp?nsort=幽默笑话">More</a></div></td>
</tr>
</table>
<table width="100%" border="0" bgcolor="#FFFFFF">
<%zzq("幽默笑话")%>
</table></td>
</tr>
<tr>
<td width="50%" valign="top"><table width="100%" border="0">
<tr>
<td bgcolor="#F7F7F7">『奇闻轶事』</td>
<td width="25%" bgcolor="#F7F7F7"><div align="center"><a href="nsort.asp?nsort=奇闻轶事">More</a></div></td>
</tr>
</table>
<table width="100%" border="0" bgcolor="#FFFFFF">
<%zzq("奇闻轶事")%>
</table></td>
<td valign="top"><table width="100%" border="0">
<tr>
<td bgcolor="#EFEFEF">『网海拾贝』</td>
<td width="25%" bgcolor="#EFEFEF"><div align="center"><a href="nsort.asp?nsort=网海拾贝">More</a></div></td>
</tr>
</table>
<table width="100%" border="0" bgcolor="#FFFFFF">
<%zzq("网海拾贝")%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table>
<br>
<hr align="center" width="710">
<!--#include file="foot.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -