index.asp
来自「asp的新闻网站」· ASP 代码 · 共 215 行
ASP
215 行
<%
'*********************************************************************************
'模块名称：IT新闻首页
'开发人：潘树文
'时间：2001年1月17日
'*********************************************************************************
%>
<html>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/showbody.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style.css">
<title>千夜网->新闻->IT新闻</title>
</head>
<%set rs=server.CreateObject ("adodb.recordset")%>
<body topmargin="3" leftmargin="3">
<div align="center"><center>
<%flag="008000"%>
<!--#include file="../include/secondhead.asp"-->
</center></div><div align="center"><center>
<!--#include file="include/redian.asp"-->
</center></div><div align="center"><center>
<table border="0" width="770" cellspacing="0" cellpadding="0">
<tr>
<td width="174" valign="top" bgcolor="#FAFAFA" background="../images/bg-009.gif"><br>
<!--#include file="include/left.asp"-->
<p><br>
</td>
<td width="436" valign="top"><div align="center"><center><table border="0" width="95%"
cellspacing="0" cellpadding="0">
<tr>
<td width="100%" colspan="2" background="../images/bg-002.gif" height="12"> </td>
</tr>
<tr>
<td width="30%" bgcolor="#B500B5" height="19"><p align="center"><span
style="font-size: 14px"><font color="#FFFFFF"><font size="4">e</font> 路风云</font></span></td>
<td width="70%"
style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(181,0,181)"
height="19"> </td>
</tr>
<tr>
<td width="100%" colspan="2"><ul>
<%sql="select * from news2_info where menuid='008001' order by infoid desc"
rs.Open sql,conn,3,1
if not rs.Eof then
for i=1 to 8
if rs.eof then exit for%>
<li><a class="l7"
href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a><%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%> <br>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
<p align="right"><a class="l2"
href="morenews.asp?menuid=008001" target="_blank">【更多...】</a> <br>
</td>
</tr>
<tr>
<td width="30%" bgcolor="#B500B5" height="19"><p align="center"><span
style="font-size: 14px"><font color="#FFFFFF">新品测评</font></span></td>
<td width="70%"
style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(181,0,181)"
height="19"> </td>
</tr>
<tr>
<td width="100%" colspan="2"><ul>
<%sql="select * from news2_info where menuid='008002' order by infoid desc"
rs.Open sql,conn,3,1
if not rs.Eof then
for i=1 to 8
if rs.eof then exit for%>
<li><a class="l7"
href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%><br>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
</ul>
<p align="right"><a class="l2"
href="morenews.asp?menuid=008002" target="_blank">【更多...】</a> <br>
</td>
</tr>
<tr>
<td width="30%" bgcolor="#B500B5" height="19"><p align="center"><span
style="font-size: 14px"><font color="#FFFFFF">游戏攻略</font></span></td>
<td width="70%"
style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(181,0,181)"
height="19"> </td>
</tr>
<tr>
<td width="100%" colspan="2"><ul>
<%sql="select * from news2_info where menuid='008003' order by infoid desc"
rs.Open sql,conn,3,1
if not rs.Eof then
for i=1 to 8
if rs.eof then exit for%>
<li><a class="l7"
href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%><br>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
</ul>
<p align="right"><a class="l2"
href="morenews.asp?menuid=008003" target="_blank">【更多...】</a> </td>
</tr>
<tr>
<td width="30%" bgcolor="#B500B5" height="19"><p align="center"><span
style="font-size: 14px"><font color="#FFFFFF">通讯时代</font></span></td>
<td width="70%"
style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(181,0,181)"
height="19"> </td>
</tr>
<tr>
<td width="100%" colspan="2"><ul>
<%sql="select * from news2_info where menuid='008004' order by infoid desc"
rs.Open sql,conn,3,1
if not rs.Eof then
for i=1 to 8
if rs.eof then exit for%>
<li><a class="l7"
href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a><%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%> <br>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
</ul>
<p align="right"><a class="l2"
href="morenews.asp?menuid=008004" target="_blank" >【更多...】</a> <br>
</td>
</tr>
<tr>
<td width="30%" bgcolor="#B500B5" height="19"><p align="center"><span
style="font-size: 14px"><font color="#FFFFFF">网事速递</font></span></td>
<td width="70%"
style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(181,0,181)"
height="19"> </td>
</tr>
<tr>
<td width="100%" colspan="2"><ul>
<%sql="select * from news2_info where menuid='008005' order by infoid desc"
rs.Open sql,conn,3,1
if not rs.Eof then
for i=1 to 8
if rs.eof then exit for%>
<li><a class="l7"
href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a><%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%> <br>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
</ul>
<p align="right"><a class="l2"
href="morenews.asp?menuid=008005" target="_blank">【更多...】</a> <br>
</td>
</tr>
<tr>
<td width="100%" height="19" colspan="2"></td>
</tr>
</table>
</center></div></td>
<td width="160" valign="top" bgcolor="#FAFAFA">
<!--#include file="include/right.asp"-->
<p><br>
</td>
</tr>
</table>
</center></div><div align="center"><center>
<table border="0" width="770" height="6" cellspacing="0" cellpadding="0">
<tr>
<td width="10"><img src="../images/pic-140.gif" width="10" height="10"></td>
<td width="760" bgcolor="#0280D9"></td>
</tr>
</table>
</center></div>
<hr width="90%" size="1" color="#B500B5">
<div align="center"><center>
<!--#include file="../include/bottom.txt"-->
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?