ASP这种文章列表如何实现。在线等。

[www198352]

各位前辈，问题如下
描述：我想在我的主页上面加一个公告，公告是的标题列表是从ACCESS数据库里面调用的，具体如下：数据库名称date.mdb。公告引用的内容：表：NEWS,列：title（公告的标题）和time（发布时间）

示例：
·全国高校音乐教育专业大学生基本功比赛毕晓玮获奖 09/11/10

·我校当选为省国防教育协会常务理事单位 09/11/12

·我校美术学被批准为山东省文化艺术科学首批省级重点学科 09/11/13

·我校9项山东省软科学研究计划项目获准立项 09/11/14

·我校４０名学生被评为“朝阳助学”全省高校优秀特困生 15

特别要求，因为考虑到宽度的原因，也就是固定列宽，只能显示15个汉字，所以想让超过15个汉字的标题自动换行。
谢谢~

[www198352]

忘记说了，我是用ASP+IIS来做的。，

[anbs01]

就是查询数据库的操作嘛。
set conn=server.createobject( "adodb.connection ")
connstr = "Provider=SQLOLEDB;Server=UserName;Database=数据库名;UID=sa;PWD= "
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from news"
rs.open sql,conn,1,1
biaoti=left(rs("title"),15)
shijian=rs("time")
rs.close
conn.close
<%=biaoti%><%=shijian%>

[www198352]

先谢谢了。现在在上班晚上回家看看能不能出来效果~谢谢您！

[hansonboy]

我觉得你先看看书好点

[yyh112]

<%
Dim strConn
DataPath = date.mdb '注意路径
Set Conn = Server.Createobject("Adodb.Connection")
strConn="Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.Mappath(DataPath)
Conn.Open strConn
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If


set rs=server.createobject("adodb.recordset")
sql="select * from NEWS"
rs.open sql,conn,1,3 ‘打开记录集
if not(rs.eof and rs.bof) then
for i=1 to rs.recordcount ’循环所有记录
%>
<li><%=rs("title")&rs("time")%></li>
<%
rs.movenext
if rs.eof then exit for
next
else
response.Write "无记录"
end if
rs.close ‘关闭记录集
set rs=nothing

[yyh112]

len(rs("title"))>15 then title=left(rs("title"),15)&"..."

[yyh112]

如果用css 就先定义CSS 15个字符＋时间的宽度 就能达到你要的效果

[www198352]

谢谢了~解释的很详细，应该晚上可以解决了，

我是做服装设计的，不是专业做网页，偶尔当作兴趣学一下~