[求助]怎样在文章显示页里面实现上一篇,下一篇和相关文章功能
我这里有页面代码 可是我想实现一个栏目里得文章内容显示页里的上一篇,下一篇和相关内容显示<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/includeall.asp"-->
<%
typeid=request("typeid")
info_id=request("info_id")
if typeid = "" then
message2 "非法访问!","cai.asp"
end if
if info_id = "" then
message2 "非法访问!","cai.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=company%></title>
<meta name="keywords" content="<%=keywords1%>" />
<meta name="description" content="<%=descriptions1%>" />
<meta name="author" content="<%=author%>" />
<link href="css/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="head.asp" -->
<table width="800" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1"></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="174" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><!--#include file="left_cai.asp" --></td>
</tr>
</table></td>
<td valign="top"><table width="620" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="bk_red"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" background="imag/ind_138.jpg"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="3%"><img src="imag/ind_141.jpg" width="11" height="10" alt=""></td>
<td width="87%" class="z6"><%
if typeid=5 then
response.Write("曾发表文章")
elseif typeid=6 then
response.Write("曾发表相关新闻狂搜")
if info_id=adostrom.
end if
%></td>
<td width="10%" align="right"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="3"></td>
</tr>
<tr>
<td height="465" valign="top">
<%
rs.open"select* from newhouse where id="&info_id&"",conn,1,3
housename=rs("housename")
rs.update
%>
<%
rs.open "select * from YT_News where id="&info_id&"",conn,1,3
rs("hits")=cint(rs("hits"))+1
rs.update
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td align="center" class="news"><%=rs("title")%></td>
</tr>
<tr>
<td align="center" class="z15">发表日期:<%=zy_Date3(rs("createdate"))%> 来源:<%=rs("from1")%></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td class="hg1"><%=rs("content")%></td>
</tr>
</table>
<%
rs.close
%>
</td>
</tr>
<tr>
<td height="25"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</table>
<!--#include file="foot.asp" -->
</body>
</html>