Question

asp中要在html中显示后台发布的新闻需要什么控件，怎么写代码

可是在html页面中还是没发出现在后台发布的新闻呀

Answer 1

首页最新5条
<!--#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
%>
新闻分页显示代码
<form action="list.asp" method="post">
请输入你要查询的条件：
标题：<input type="text" name="Title" size=10>
作者：<input type="text" name="Author" size=20>
<input type="submit" value="查询">
</form>

<table border="1" width="100%" id="table1">
<tr bgcolor="red">
<td>标题</td>
<td>作者</td>
</tr>
<%
Dim Title,Author
Title = Trim(Request("Title")) '接收用户输入的姓名信息
Author = Trim(Request("Author")) '接收用户输入的电话信息

Dim NowPage
NowPage = Request("page") '接收你超链接的页码值并赋值给变量NowPage
if NowPage = "" then '如果你没有输入查看的页码，那么显示第一页
NowPage = 1
end If

If IsNumeric(NowPage) Then '页码是数字则转换成整型数据，不是数字则显示第一页
NowPage = CInt(NowPage)
Else
NowPage = 1
End If
If NowPage < 1 Then '如果页码值小于1，则为第一页
NowPage = 1
End If

%>
<!--#include file="Conn.asp"-->
<%

set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM 新闻 Where 是否发布 = True " '由于是输入查询所以需构建SQL语句，模糊查询必须是%
If Title <> "" Then
sql = sql & " and (标题 like '%"&Title&"%') "
End If
If Author <> "" Then
sql = sql & " and (作者 like '%"&Author&"%') "
End If
sql = sql & " ORDER BY 编号 DESC"
rs.open sql,conn,1,1
If Not rs.eof And Not rs.bof Then '如果查询到数据则执行
rs.PageSize = 4 '设置每页显示4条数据记录
ReCount = rs.RecordCount '把查询到的总记录数据赋值给变量ReCount
PgCount = rs.PageCount '把总页码数赋值给变量PgCount
If NowPage > PgCount Then '页码数值如果大于总页码数则只能为最后一页
NowPage = PgCount
End If
rs.AbsolutePage = NowPage '设置当前用户正在浏览第几页
do while (not rs.EOF) And (i<rs.pageSize) '注意必须判断i<rs.pageSize
Response.Write "<tr>"
Response.Write "<td><a href=ShowNews.asp?ID="&rs("编号")&">"&rs("标题")&"</a></td>"
Response.Write "<td>" & rs("作者") & "</td>"
Response.Write "</tr>"
i = i + 1
rs.MoveNext
Loop
Else
response.write "<tr><td colspan=""4"">找不到你查询的数据</td></tr>"
End If
rs.close
set rs=nothing
conn.Close
set conn=Nothing
response.write "<tr><td colspan=""2"" align=""center"">"
Response.Write "<a href=list.asp?page=1&xm="&xm&"&Author="&Author&">首页</a> "
Response.Write "<a href=list.asp?page="&NowPage-1&"&Title="&Title&"&dh="&dh&">前一页</a> "
Response.Write "<a href=list.asp?page="&NowPage+1&"&Title="&Title&"&dh="&dh&">后一页</a> "
Response.Write "<a href=list.asp?page="&PgCount&"&Title="&Title&"&dh="&dh&">末页</a>"
Response.Write "<hr>"
Response.Write "现在是第"&NowPage&"/"&PgCount&"页,共有"&ReCount&"条数据记录"
response.write "</td></tr>"
%>
</table>
<hr>
<p align="center"><a href="index.asp">返回主页</a></p>

Answer 2

ASP和。net不一样没有控件这一说，都是直接在ASP前台页面里链接上数据库，然后分页读取新闻，然后点击新闻列表中的一条记录时候，根据编号从数据库查找记录

追问

那要是想在前台.html网页文件中显示后台发布的新闻，怎么从数据库中调用呢？代码怎么写呀，希望给予帮助多谢？

追答

你先确定是ASP还是ASP.NET(ASPX)

追问

是ASP

追答

ASP的话需要两个页面一个是列表页面，一个是单页面，网上代码有很多自己搜索下吧，楼上代码也可以参考下