📄 list.asp
字号:
<!--#include file="articleconn.asp"-->
<html>
<%
dim sql
dim rs
dim listname
dim typename
typename="e见钟情"
set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid="&request("id")
rs.open sql,conn,1,1
%>
<head>
<title><%=rs("title")%></title>
<link rel="stylesheet" href="style.css">
</head>
<body>
<div align="center"><a name="top2"></a>
<table border="1" width="97%" cellspacing="0" cellpadding="0" bordercolorlight="#000000"
bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFacff" colspan="2">
<p align="center"> <font color="#FFFF00"><%=typename%><font color="#000000">----文章编号:</font><%=rs("articleid")%><font color="#000000">----加入日期:</font></font><%=rs("dateandtime")%>
<script language="JavaScript">
var currentpos,timer;
function initialize()
{timer=setInterval("scrollwindow()",1);}
function sc(){clearInterval(timer); }
function scrollwindow()
{currentpos=document.body.scrollTop; window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop) sc();}
document.onmousedown=sc
document.ondblclick=initialize
function New(para_URL)
{var URL =new String(para_URL)
window.open(URL,'','resizable,scrollbars')}
</script>
</td>
</tr>
<tr>
<td width="86%">
<p align="left">双击自动滚屏
</td>
<td width="14%">
<div align="right"><a href="javascript:self.close()">『关闭窗口』</a></div>
</td>
</tr>
<tr>
<td colspan="2">
<p align="center"><b><%=rs("title")%></b>
</td>
</tr>
<tr>
<td colspan="2">
<blockquote> <br>
<%=rs("content")%> <br>
<br>
<%rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid="&request("id")-1
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<p><font color="#FF0000">←</font>上篇文章:已经没有了
<%else%>
<p><font color="#FF0000">←</font>上篇文章:<a href="openarticle.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a>
<%end if%>
<BR>
<% rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid="&request("id")+1
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<font color="#0000FF">→</font>下篇文章:已经没有了
<%else%>
<font color="#0000FF">→</font>下篇文章:<a href="openarticle.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a>
<%end if%>
</blockquote>
</td>
</tr>
</table>
<div align="right"><a href="#top2">go top</a></div>
</div>
<table border="0" cellpadding="3" cellspacing="0" width="100%">
<tr>
<td width="100%" valign="top">
<p align="center">.:味道网:.. 版权所有，<span style="font-family:宋体; font-size: 9pt"><a href=# title=点击些处，关于我们... style="color:blue" target="_new" onClick="javascript:alert('\t\『味道网\』 版权所有\n\n程序设计:Kinwah.CHEN \n\t 陈贤福\n\n站点美工:陈健华\n\t 陈贤福 Ai\n\n社区顾问:Kinwah.CHEN\n\n味道网(C.)2001-2003');return false;"><font color="#000000">Three-UNknown拍档组合</font></a></span>©2001-2003
All Rights Reserved
</td>
</tr>
<tr>
<td width="100%"></td>
</tr>
</table>
</body>
</html>
<%
rs.close
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -