asp如何做这样的链接? 急!!!

[yjzz]

在一个页面上显示文章标题.点击标题后,内容会显示在页面上

(标题和内容在一个数据库中,access97),数据库中内容会随时更新,标题内荣和链接也会自动更新.......

那位大侠肯帮忙...谢拉..先!

[许留心]

数据库建三个字段 序号 标题 内容

SQL查询这样写"select top1 * from xx"


<a href=nr.asp><%=rs("标题")%></a>

nr.asp

<%=rs(内容)%>

[ehom]

还有日期!
核心代码:
list.asp
<%
ID=request.querystring("typeID")
if ID="" then ID=1
if not IsNumeric(ID) then ID=1
ID=Fix(ID)
set rs=server.createobject("adodb.recordset")
sql="select ID,name from type where ID="&ID
rs.open sql,arconn,1,1
if rs.EOF then
response.write "<tr><td width='100%' align='center' height='300' colspan='2'>错误！该栏目不存在！</td></tr>"
else
response.write "<tr><td width='100%' align='center' colspan='2' height='30'>"&rs("name")&"</td></tr>"
rs.close
dim pagenum
dim topnum
dim totalrec
pagenum=request.querystring("page")
if pagenum="" then pagenum=1
if not IsNumeric(pagenum) then pagenum=1
if pagenum=<0 then pagenum=1
if pagenum>99999 then pagenum=1
pagenum=fix(pagenum)
topnum=pagenum*20
sql="select top "&topnum&" ID,date,title,picurl from archives where type="&ID&" ORDER BY date desc"
rs.open sql,arconn,1,1
if rs.EOF then
response.write "<tr><td width='100%' align='center' height='260' colspan='2'>该栏目下无内容！</td></tr>"
else
totalrec=rs.recordcount
if (totalrec mod 20)=0 then
lastpage=totalrec\20
else
lastpage=totalrec\20+1
end if
if (pagenum-1)*20>=totalrec then
if (totalrec mod 20)=0 then
pagenum=totalrec\20
else
pagenum=totalrec\20+1
end if
end if
if not pagenum=1 and (pagenum-1)*20<totalrec then
rs.move (pagenum-1)*20
else
pagenum=1
end if
do while NOT rs.EOf
%>
<tr>
<td width="70%" align="left" height="25">
<%
response.write "<a href='show.asp?ID="&rs("ID")&"' title='"&rs("title")&"' target='_blank'>● "&rs("title")
if rs("picurl")<>"" then response.write "[图]"
response.write "</a>"
%>
</td>
<td width="30%" align="right" height="25">[<%=rs("date")%>]</td>
</tr>
<%
rs.MoveNext
loop
%>
<tr>
<td width="100%" align="right" colspan="2" height="30">
<form method="GET" action="list.asp">
<%
if pagenum=1 then
response.write "<img border=0 src='../images/first.gif'> <img border=0 src='../images/back.gif'> "
else
response.write "<a href='list.asp?page=1&typeID="&ID&"'><img border=0 src='../images/first.gif'></a> "
response.write "<a href='list.asp?page="&pagenum-1&"&typeID="&ID&"'><img border=0 src='../images/back.gif'></a> "
end if
if pagenum=lastpage then
response.write "<img border=0 src='../images/forward.gif'> <img border=0 src='../images/last.gif'>"
else
response.write "<a href='list.asp?page="&pagenum+1&"&typeID="&ID&"'><img border=0 src='../images/forward.gif'></a> "
response.write "<a href='list.asp?page="&lastpage&"&typeID="&ID&"'><img border=0 src='../images/last.gif'></a>"
end if
%>
第<%=pagenum%>页 转到 <input type="text" name="page" size="2" maxlength="3" class="text">
<input type="hidden" name="typeID" value="<%=ID%>">
<input type="submit" value="GO" class="button"></td>
</form>
</tr>
<%
end if
end if
rs.close
set rs=nothing
arconn.close
set arconn=nothing
%>

[ehom]

show.asp
<%
ID=request.querystring("ID")
if ID="" then ID=0
if not IsNumeric(ID) then ID=0
ID=Fix(ID)
set rs=server.createobject("adodb.recordset")
sql="select * from archives where ID="&ID
rs.open sql,arconn,1,1
art=False
atype=0
if rs.EOF then
atitle="该文档不存在！"
art=False
rs.close
set rs=nothing
arconn.close
set arconn=nothing
else
atitle=rs("title")
anotes=replace(rs("notes"),chr(13)&chr(10),"</p>"&chr(13)&chr(10)&"<p>　　")
atype=rs("type")
adate=rs("date")
aID=rs("ID")
art=True
if rs("picurl")<>"" then
apic=rs("picurl")
pw=rs("picwidth")
ph=rs("picheight")
hp=True
end if
rs.close
end if
%>
<%
if art then
sql="select top 3 * from archives where type="&atype
rs.open sql,arconn,1,1
if not rs.EOF then
for i=1 to 3
if rs.EOF then rs.MoveFirst
response.write "<a href='show.asp?ID="&rs("ID")&"'>■ "&rs("title")&"</a>"
if i=3 then exit for else response.write "<br><br>"
rs.MoveNext
next
rs.close
end if
else
response.write "<p align='center'>文档读取错误！</p>"
end if
%>
<td width="100%" valign="top"><br>
<%
response.write "<p align='center'>"&atitle&"</p><br>"
if art then
if hp then response.write "<img broder='1' src='"&apic&"' height='"&ph&"' width='"&pw&"'><br><br>"
response.write "<p>　　"&anotes&"<p>"
end if
%> 　</td>

[seeker_tong]

这个简单了，网上又很多简单的现成的原代码可以看的，基本的原理就是先做个链接页，从数据库中读取新闻的标题，然后传递该条记录的ID到读取新闻的页面文件，该文件从数据库读取ID相符合的记录的新闻内容，这样就实现了。

[yjzz]

真实太感谢大家了。。。尤其二楼。。。大侠

我试一下。。还有问题请教。。。。一定给分的。。相信我！

[yhncom_36de]

去www.k666.com上去下载一个，它一般是首页从数据库中读取标题，在点击之后列出详细的内容，内容还是从数据库中读出来的！很简单的！好好想一下

[yjzz]

谢了先，这几天不知为什么，CSDN上不来，只能打开首页。。。。