?? default.asp
字號:
<%@ language="vbscript"%>
<!-- #include file="adovbs.inc" -->
<html>
<head>
<title>新聞</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="3508.css">
<style type="text/css">
<!--
.bottom { font-size: 12px; color: #000000; background-color: #E8E277; cursor: hand}
.textarea { font-size: 12px; color: #006600; background-color: #FFFFE8}
.dateyj { font-size: 11px; color: #000000; font-style: italic}
.big1 { font-size: 14px; color: #003366}
.white { color: #FFFFFF}
.new1 { font-size: 13pt; font-weight: bold; color: #FF0000}
.yjtitle { line-height: 50px}
.darkred { color: #FF0000}
.botton { font-size: 12px; line-height: 14px; color: #FFFFFF; background-color: #669900}
-->
</style>
</head>
<body bgcolor="#FFFFF0">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="18" bgcolor="#FFCC99">
<tr>
<td width="260">【本站導航】 新聞</td>
<td width="40">◆<a href="more.asp?class='A'">娛樂</a> </td>
<td width="40">◆<a href="more.asp?class='B'">游戲</a></td>
<td width="40">◆<a href="more.asp?class='C'">體育</a></td>
<td width="40">◆<a href="more.asp?class='D'">軍事</a></td>
<td width="40">◆<a href="more.asp?class='E'">科技</a></td>
<td width="40">◆<a href="more.asp?class='F'">房產</a></td>
<td width="40">◆<a href="more.asp?class='G'">財經</a></td>
<td width="40">◆<a href="more.asp?class='H'">教育</a></td>
<td width="40">◆<a href="more.asp?class='I'">笑話</a></td>
<td width="40">◆<a href="more.asp?class='J'">天氣</a></td>
<td width="40">◆<a href="more.asp?class='K'">旅游</a></td>
<td width="40">◆<a href="more.asp?class='L'">其他</a></td>
</tr>
</table>
<table width="740" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="right">
<td height="17"><a href="jr.asp">新聞后臺管理</a></td>
</tr>
</table>
<table width="740" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="145" valign="top" align="left" bgcolor="#9999FF"> </td>
<td width="595" valign="top" align="center">
<table width="98%" border="0" cellspacing="4" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#FFCCFF">
<%
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("news.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
mclass="ABCDEFGHIJKL"
mclasstype="娛樂游戲體育軍事科技房產財經教育笑話天氣旅游其他"
i=1
while i<=6
wza=midb(mclasstype,(i-1)*8+1,4)
wzb=midb(mclasstype,(i-1)*8+5,4)
a="'"&mid(mclass,(i-1)*2+1,1)&"'"
b="'"&mid(mclass,(i-1)*2+2,1)&"'"
' response.write wz1&"-------"&a&"<br>"
' response.write wz2&"-------"&b&"<br>"
set rsa=server.createobject("adodb.recordset")
sqltexta="Select top 5 * from news where classfication="&a&"order by newsdate desc"
rsa.open sqltexta,conn
set rsb=server.createobject("adodb.recordset")
sqltextb="Select top 5 * from news where classfication="&b&"order by newsdate desc"
rsb.open sqltextb,conn
%>
<tr>
<td align="center">
<table width="100%" cellpadding="0" cellspacing="0" border="1" bordercolorlight="#FFFFF8" bordercolordark="#CCFFCC">
<tr bgcolor="#F1FFD2">
<td class="red"> 【<a href="more.asp?class=<%=a%>"><%=wza%></a>】</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
for ia=1 to 5
if rsa.eof then
%>
<tr>
<td> </td>
</tr>
<%else%>
<tr>
<td> ◆<a href="comment.asp?newsid=<%=rsa("newsid")%>" target="_blank"><%=rsa("title")%></a></td>
</tr>
<%
rsa.movenext
end if
next
%>
</table>
</td>
</tr>
</table>
</td>
<td align="center">
<table cellpadding="0" cellspacing="0" border="1" width="100%" bordercolorlight="#FFFFF8" bordercolordark="#CCFFCC">
<tr bgcolor="#F1FFD2">
<td class="red"> 【<a href="more.asp?class=<%=b%>"><%=wzb%></a>】</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
for ib=1 to 5
if rsb.eof then
%>
<tr>
<td> </td>
</tr>
<%else%>
<tr>
<td> ◆<a href="comment.asp?newsid=<%=rsb("newsid")%>" target="_blank"><%=rsb("title")%></a></td>
</tr>
<%
rsb.movenext
end if
next
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
<%
rsa.close
set rsa=nothing
rsb.close
set rsb=nothing
i=i+1
wend
%>
</table>
</td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -