📄 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>
<a name="top1"></a>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="16" bgcolor="#eeeeee">
<tr>
<td width="27%">双击自动滚屏</td>
<td width="73%">
<p align="right">
<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>
<script language="JavaScript"> var version = 1.0;</script>
<script language="JavaScript1.1"> var version = 1.1;</script>
<script language="JavaScript1.2"> var version = 1.2;</script>
<script language="JavaScript1.3"> var version = 1.3;</script>
<script language="JavaScript">
<!--
var y=new Date();
var gy=y.getYear();
var dName=new Array("星期天","星期一","星期二","星期三","星期四","星期五","星期六");
var mName=new Array("1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月");
if (version < 1.3)
{
if (gy<2000)
{
document.write("<FONT COLOR=\"black\">"+"19"+y.getYear()+"年" + mName[y.getMonth()] + y.getDate() + "日" + dName[y.getDay()] + "" + "</FONT>");
}
else
document.write("<FONT COLOR=\"black\">"+y.getYear()+"年" + mName[y.getMonth()] + y.getDate() + "日" + dName[y.getDay()] + "" + "</FONT>");
}
else
{
document.write("<FONT COLOR=\"black\">"+y.getFullYear() +"年"+ mName[y.getMonth()] + y.getDate() + "日" + dName[y.getDay()] + "</FONT>");
}
// -->
</script>
</p>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="15"></td>
</tr>
</table>
<div align="center">
<table border="1" width="97%" cellspacing="0" cellpadding="0" bordercolorlight="#000000"
bordercolordark="#FFFFFF">
<tr>
<td width="100%" bgcolor="#FF66FF">
<p align="center"> <font color="#FFFF00"><%=typename%>----文章编号:<%=rs("articleid")%>----加入日期:</font><%=rs("dateandtime")%>
</td>
</tr>
<tr>
<td width="100%"><p align="right"><a href="javascript:self.close()">『关闭窗口』</a></td>
</tr>
<tr>
<td width="100%"><p align="center"><b><%=rs("title")%></b></td>
</tr>
<tr>
<td width="100%">
<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>
<div align="right"></div>
</table>
<div align="right"><a href="#top1">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 + -