ASP网页中，当文章标题和内容都在数据库中的时候，你在前台显示一列标题，怎样点击标题出现内容

ASP网页中，当文章标题和内容都在数据库中的时候，你在前台显示一列标题，怎样点击标题出现内容

以下是显示最新前5条新闻,最后显示一个最多连接








302 Found

---

nginx



<%
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 " "
else
do while not rs.eof

response.write " "
response.write " " '==> 变量和字符串之间必须前后要用&隔开，字符串必须前后都要用"引起来
response.write " "
response.write " "

rs.movenext
loop
end if
rs.close
%>

标题	日期
目前还没有新闻信息
"&rs("标题")&"	" & Trim(rs("日期")) & "
更多...

以下是显示新闻的具体内容:
<%
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
%>



302 Found

---

nginx



<%
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 " "
response.write " "
response.write " "
response.write " "
response.write " "
response.write "

---

" & rs("标题")
response.write "
" & rs("查看次数")
response.write "

---

" & rs("内容")
response.write ""
response.write ""
end if
rs.close
Conn.Execute("update 新闻 set 查看次数 = 查看次数 + 1 where 编号 = "& ID)
Call EndConnection()
%>
对新闻的增删查改,我有一个自己写的最简单的前后台教学例子,
需要的话首先加百度知道分,再留下联系方式,发给你

创建三个asp文件<br>一个数据库链接文件conn.asp<br>一个列表展示文件list.asp<br>一个内容页文件：content.asp<br>----------------conn.asp-------------<br><%<br>dbpath=Server.MapPath("mdb.mdb")<br>dbfile="Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='';Persist Security Info=False;Data Source="&dbpath<br>Set conn=server.CreateObject("adodb.connection")<br>conn.open dbfile<br>If Err Then <br>err.Clear <br>Set Conn = Nothing <br>Response.Write "服务器正在维护，请稍后再试。" <br>Response.End <br>End If <br>sub closeconn()<br> conn.close<br> set conn=nothing<br>end sub<br>%><br><br>----------------list.asp---------------------<br><!--#include file="conn.asp"--><br><%<br>Set rs = Server.CreateObject("ADODB.RecordSet")<br>sql="select  * from 表"<br>rs.Open sql,conn,1,1<br>if not rs.eof then<br><br>do while not rs.eof<br>response.write "<a href='content.asp?id="&rs("主键字段名")&"'>"&rs("文章标题字段名")&"</a><br>"<br>rs.movenext<br>loop<br>end if<br>rs.close<br>set rs=nothing<br>%><br><br>---------------content.asp---------------------<br><!--#include file="Conn.asp"--> <br><%<br>id=Request("ID")<br>if id="" or not isnumeric(id) then<br>    response.write "&lt;script&gt;alert('参数传值有误');histroy.back(-1);&lt;&#47;script&gt;"<br>    response.end<br>end if<br>Set rs = Server.CreateObject("ADODB.RecordSet")<br><br>rs.open "select * from 表名 where 主键字段名="&id&"",conn,1,1<br>if not rs.eof then<br>    response.write rs("标题字段名")&"<br>"<br>    response.write rs("内容字段名")<br>else<br>    response.write "&lt;script&gt;alert('没有找到相关信息内容');histroy.back(-1);&lt;&#47;script&gt;"<br>    response.end<br>end if<br>rs.close<br>set rs=nothing<br>%><br>三个页面，你只需要把上面三个页面的代码按复制到文件中就可以使用测试了，当然还有个前提<br>你还得有数据库。<br>数据库：我这个conn.asp链接的是access的数据库<br>数据库你可以创建简单的三个字段来测试<br>id    自动编号    （主键）<br>title    文本<br>content    备注

以下是显示最新前5条新闻,最后显示一个最多连接 &lt;table border="1" width="30%" id="table1" bordercolordark="#ffffff" cellspacing="0" cellpadding="0" bordercolorlight="#000000"&gt; &lt;tr&gt; &lt;td width="66%" align="center"&gt;标题&lt;/td&gt; &lt;td align="center" width="30%"&gt;日期&lt;/td&gt; &lt;/tr&gt; &lt;!--#include file="conn.asp"--&gt; &lt;% 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 " &lt;tr&gt;&lt;td colspan=2&gt;目前还没有新闻信息&lt;/td&gt;&lt;/tr&gt;" else do while not rs.eof response.write " &lt;tr&gt;" response.write " &lt;td width=""66%"" &gt;&lt;a href=shownews.asp?id="&amp;rs("编号")&amp;"&gt;"&amp;rs("标题")&amp;"&lt;/a&gt;&lt;/td&gt;" '==&gt; 变量和字符串之间必须前后要用&amp;隔开，字符串必须前后都要用"引起来 response.write " &lt;td width=""30%"" &gt;" &amp; trim(rs("日期")) &amp; "&lt;/td&gt;" response.write " &lt;/tr&gt;" rs.movenext loop end if rs.close %&gt; &lt;tr&gt; &lt;td colspan="2"&gt; &lt;p align="right"&gt; &lt;a href="list.asp"&gt;更多...&lt;/a&gt; &lt;/td&gt; &lt;/tr&gt; &lt;/table&gt; 以下是显示新闻的具体内容: &lt;% 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 %&gt; &lt;!--#include file="conn.asp"--&gt; &lt;% set rs = server.createobject("adodb.recordset") sql="select * from 新闻 where 编号 = " &amp; id rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "你要查看的新闻编号不存在" else response.write " &lt;html&gt;" response.write " &lt;head&gt;" response.write " &lt;title&gt;" &amp; rs("标题") &amp; "&lt;/title&gt;" response.write " &lt;/head&gt;" response.write " &lt;body&gt;" response.write " &lt;hr&gt;" &amp; rs("标题") response.write " &lt;br&gt;" &amp; rs("查看次数") response.write " &lt;hr&gt;" &amp; rs("内容") response.write "&lt;/body&gt;" response.write "&lt;/html&gt;" end if rs.close conn.execute("update 新闻 set 查看次数 = 查看次数 + 1 where 编号 = "&amp; id) call endconnection() %&gt; 对新闻的增删查改,我有一个自己写的最简单的前后台教学例子, 需要的话首先加百度知道分,再留下联系方式,发给你

"><%=rs("title")%> 在news.asp中根据id取出文章内容再显示出来就行了

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息