?? news.asp
字號:
<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<html>
<head>
<title>新聞管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel=STYLESHEET type=text/css>
</head>
<body leftmargin="0" topmargin="0">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="mainmiddle">
<tr>
<td width="29" height="32"> <div align="left">
<p class="maindaohang"> </p>
</div></td>
<td width="709"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<b><font color="#000000"><b> <span class="bigNavi">新聞管理</span> </b></font></b></td>
<td width="8" class="mainrights"></td>
</tr>
</table>
<br>
<table width="95%" height="22" border="0" align="center" cellpadding="3" cellspacing="1" class="tabbgcolor">
<tr class="tabbgcolorli">
<td><table width="755" height="56" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="border1">
<%
'=======================================
'88red科技獨(dú)立開發(fā)完成本程序，并提供免費(fèi)技術(shù)支持與升級服務(wù)
'官方網(wǎng)站 http://www.88red.com QQ:8375158 TEL:13964489818
'對于商業(yè)客戶，本站提供細(xì)致周到的各項(xiàng)售后服務(wù)；對于盜版客戶恕不提供，對于散播本程序者本站將追究其法律責(zé)任
'88red科技將陸續(xù)開發(fā)其他各種先進(jìn)程序，例如企業(yè)網(wǎng)站建站系統(tǒng)等等，對老客戶購買其他程序給予最大程度的優(yōu)惠，歡迎洽談
'=======================================
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From NewsClass Order By paixu"
Rs.Open Sql,Conn,1,1
If Rs.eof then
Response.Write"暫時(shí)沒有新聞類別"
else
do while not rs.eof
sid=Rs("id")
%>
{<a href="news1.asp?id1=<%=sid%>"><%=rs("newsclass")%></a>}
<%
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs=Nothing
%>
</td>
</tr>
</table></td>
</tr>
</table>
<br>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -