求ASP新闻显示内容代码！

index页面代码如下：<%dowhilenotrs.eofresponse.write"<li><ahref=news.asp?ID="&Rs("ID")&"targe... index页面代码如下：

<%do while not rs.eof
response.write"<li><a href=news.asp? ID="& Rs("ID") &" target=_blank>"
response.Write "<span>"& rs("addtime")&"</span>"
if len (rs ("title"))>10 then response.Write left (rs("title"),8) & "..." else response.Write rs("title")
response.write "</a></li>"

rs.movenext
loop
%>

现在我求NEWS页面代码，求高手帮忙一下，我已经搞了很多天，实在没有办法！展开

 我来答

2个回答

#热议# 不吃早饭真的会得胆结石吗？

飞扬百家
2008-11-15 · TA获得超过208个赞

知道答主

回答量：144

采纳率：0%

帮助的人：101万

我也去答题访问个人页

关注

展开全部

给你一段代码,刚写的,测试成功!!呵呵^^^
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<HEAD>
<style type="text/css">

</style>
<TITLE>新闻查看系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mycs\mdb\db1.mdb")
exec ="select * from xwfb where id="&Request("id")
set rs=server.CreateObject("adodb.recordset")
rs.open exec,conn,1,3
%>
<link href="xinwen.css" rel="stylesheet" type="text/css">
</HEAD>
<body>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" class="style5">新闻中心</td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr>
<td align="center"><table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td align="center"> </td>
</tr>
<tr>
<td align="center" class="wenzi2"><%=rs("biaoti")%></td>
</tr>
<tr>
<td align="center"> </td>
</tr>
<tr>
<td align="center" class="style6">发布时间： <%=rs("time")%></td>
</tr>
</table><hr>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" bgcolor="#d0e8f9" class="wenzi2"> <%=rs("neirong")%></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td align="center" class="style3"><a href="javascript:window.close();" class="style4">关闭窗口</a></td>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>

本回答由提问者推荐

已赞过 已踩过<

评论收起

haha6443
2008-11-15 · 超过35用户采纳过TA的回答

知道答主

回答量：101

采纳率：0%

帮助的人：76.4万

我也去答题访问个人页

关注

展开全部

显示页面头上加
<%
dim rs,sql,ID
ID = Request("ID")
set rs=server.CreateObject("ADODB.Recordset")
sql = "select * from News where ID=" & ID
rs.open sql,conn,1
%>

然后在需要放内容的地方加入 <%=rs("Content")%>

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

求ASP新闻显示内容代码！

其他类似问题

为你推荐：