ASP网页中，当文章标题和内容都在数据库中的时候，你在前台显示一列标题，怎样点击标题出现内容
展开全部
以下是显示最新前5条新闻,最后显示一个最多连接
<table border="1" width="30%" id="table1" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="0" bordercolorlight="#000000">
<tr>
<td width="66%" align="center">标题</td>
<td align="center" width="30%">日期</td>
</tr>
<!--#include file="Conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select Top 5 * from 新闻 where 是否发布 = True order by 编号 DESC "
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.write " <tr><td colspan=2>目前还没有新闻信息</td></tr>"
else
do while not rs.eof
response.write " <tr>"
response.write " <td width=""66%"" ><a href=ShowNews.asp?ID="&rs("编号")&">"&rs("标题")&"</a></td>" '==> 变量和字符串之间必须前后要用&隔开，字符串必须前后都要用"引起来
response.write " <td width=""30%"" >" & Trim(rs("日期")) & "</td>"
response.write " </tr>"
rs.movenext
loop
end if
rs.close
%>
<tr>
<td colspan="2">
<p align="right">
<a href="list.asp">更多...</a>
</td>
</tr>
</table>
以下是显示新闻的具体内容:
<%
Dim ID
ID = Request("ID")
If ID = "" Then
Response.write "你的输入有误，你要查看的新闻编号不能空"
Response.End
Else
ID = Trim(ID)
If IsNumeric(ID) Then
ID = CInt(ID)
Else
ID = 0
End If
End If
%>
<!--#include file="Conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from 新闻 where 编号 = " & ID
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.write "你要查看的新闻编号不存在"
Else
response.write " <HTML>"
response.write " <HEAD>"
response.write " <TITLE>" & rs("标题") & "</TITLE>"
response.write " </HEAD>"
response.write " <BODY>"
response.write " <hr>" & rs("标题")
response.write " <br>" & rs("查看次数")
response.write " <hr>" & rs("内容")
response.write "</BODY>"
response.write "</HTML>"
end if
rs.close
Conn.Execute("update 新闻 set 查看次数 = 查看次数 + 1 where 编号 = "& ID)
Call EndConnection()
%>
对新闻的增删查改,我有一个自己写的最简单的前后台教学例子,
需要的话首先加百度知道分,再留下联系方式,发给你
<table border="1" width="30%" id="table1" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="0" bordercolorlight="#000000">
<tr>
<td width="66%" align="center">标题</td>
<td align="center" width="30%">日期</td>
</tr>
<!--#include file="Conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select Top 5 * from 新闻 where 是否发布 = True order by 编号 DESC "
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.write " <tr><td colspan=2>目前还没有新闻信息</td></tr>"
else
do while not rs.eof
response.write " <tr>"
response.write " <td width=""66%"" ><a href=ShowNews.asp?ID="&rs("编号")&">"&rs("标题")&"</a></td>" '==> 变量和字符串之间必须前后要用&隔开，字符串必须前后都要用"引起来
response.write " <td width=""30%"" >" & Trim(rs("日期")) & "</td>"
response.write " </tr>"
rs.movenext
loop
end if
rs.close
%>
<tr>
<td colspan="2">
<p align="right">
<a href="list.asp">更多...</a>
</td>
</tr>
</table>
以下是显示新闻的具体内容:
<%
Dim ID
ID = Request("ID")
If ID = "" Then
Response.write "你的输入有误，你要查看的新闻编号不能空"
Response.End
Else
ID = Trim(ID)
If IsNumeric(ID) Then
ID = CInt(ID)
Else
ID = 0
End If
End If
%>
<!--#include file="Conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from 新闻 where 编号 = " & ID
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.write "你要查看的新闻编号不存在"
Else
response.write " <HTML>"
response.write " <HEAD>"
response.write " <TITLE>" & rs("标题") & "</TITLE>"
response.write " </HEAD>"
response.write " <BODY>"
response.write " <hr>" & rs("标题")
response.write " <br>" & rs("查看次数")
response.write " <hr>" & rs("内容")
response.write "</BODY>"
response.write "</HTML>"
end if
rs.close
Conn.Execute("update 新闻 set 查看次数 = 查看次数 + 1 where 编号 = "& ID)
Call EndConnection()
%>
对新闻的增删查改,我有一个自己写的最简单的前后台教学例子,
需要的话首先加百度知道分,再留下联系方式,发给你
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<a href="news.asp?id=<%=rs("id")%>"><%=rs("title")%></a>
在news.asp中根据id取出文章内容再显示出来就行了
在news.asp中根据id取出文章内容再显示出来就行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
创建三个asp文件
一个数据库链接文件conn.asp
一个列表展示文件list.asp
一个内容页文件：content.asp
----------------conn.asp-------------
<%
dbpath=Server.MapPath("mdb.mdb")
dbfile="Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='';Persist Security Info=False;Data Source="&dbpath
Set conn=server.CreateObject("adodb.connection")
conn.open dbfile
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "服务器正在维护，请稍后再试。"
Response.End
End If
sub closeconn()
conn.close
set conn=nothing
end sub
%>
----------------list.asp---------------------
<!--#include file="conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from 表"
rs.Open sql,conn,1,1
if not rs.eof then
do while not rs.eof
response.write "<a href='content.asp?id="&rs("主键字段名")&"'>"&rs("文章标题字段名")&"</a><br>"
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
---------------content.asp---------------------
<!--#include file="Conn.asp"-->
<%
id=Request("ID")
if id="" or not isnumeric(id) then
response.write "<script>alert('参数传值有误');histroy.back(-1);</script>"
response.end
end if
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "select * from 表名 where 主键字段名="&id&"",conn,1,1
if not rs.eof then
response.write rs("标题字段名")&"<br>"
response.write rs("内容字段名")
else
response.write "<script>alert('没有找到相关信息内容');histroy.back(-1);</script>"
response.end
end if
rs.close
set rs=nothing
%>
三个页面，你只需要把上面三个页面的代码按复制到文件中就可以使用测试了，当然还有个前提
你还得有数据库。
数据库：我这个conn.asp链接的是access的数据库
数据库你可以创建简单的三个字段来测试
id 自动编号 （主键）
title 文本
content 备注
一个数据库链接文件conn.asp
一个列表展示文件list.asp
一个内容页文件：content.asp
----------------conn.asp-------------
<%
dbpath=Server.MapPath("mdb.mdb")
dbfile="Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='';Persist Security Info=False;Data Source="&dbpath
Set conn=server.CreateObject("adodb.connection")
conn.open dbfile
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "服务器正在维护，请稍后再试。"
Response.End
End If
sub closeconn()
conn.close
set conn=nothing
end sub
%>
----------------list.asp---------------------
<!--#include file="conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from 表"
rs.Open sql,conn,1,1
if not rs.eof then
do while not rs.eof
response.write "<a href='content.asp?id="&rs("主键字段名")&"'>"&rs("文章标题字段名")&"</a><br>"
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
---------------content.asp---------------------
<!--#include file="Conn.asp"-->
<%
id=Request("ID")
if id="" or not isnumeric(id) then
response.write "<script>alert('参数传值有误');histroy.back(-1);</script>"
response.end
end if
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "select * from 表名 where 主键字段名="&id&"",conn,1,1
if not rs.eof then
response.write rs("标题字段名")&"<br>"
response.write rs("内容字段名")
else
response.write "<script>alert('没有找到相关信息内容');histroy.back(-1);</script>"
response.end
end if
rs.close
set rs=nothing
%>
三个页面，你只需要把上面三个页面的代码按复制到文件中就可以使用测试了，当然还有个前提
你还得有数据库。
数据库：我这个conn.asp链接的是access的数据库
数据库你可以创建简单的三个字段来测试
id 自动编号 （主键）
title 文本
content 备注
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
