ASP高手请教，如何从Access数据库中读取数据，显示在网站公告栏，循环读取？ - ASP技术论坛

楼主

已结贴√ 问题点数：10 回复次数：7

ASP高手请教，如何从Access数据库中读取数据，显示在网站公告栏，循环读取？

图片附件: 游客没有浏览图片的权限，请登录或注册

数据库表：

图片附件: 游客没有浏览图片的权限，请登录或注册

搜索更多相关主题的帖子: 数据库　公告栏　 Access　ASP　

第 2 楼

得分:10

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻广告</title>
<link href="../css/cbebcss.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#F4F4F4" leftmargin="0" topmargin="6" marginwidth="0" marginheight="0">
<%
Dim db,rs,strSql
    Set db=Server.CreateObject("ADODB.Connection")
    db.Open "Dsn=数据库名"
    Set rs=Server.CreateObject("ADODB.Recordset")
    strsql="select * from 表名 "
    rs.Open strSql,db,1
%>
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#999999" align="center">
        <tr bgcolor="#DBDBDB">
          <td width="18%" align="center"  >标题</td>
          <td width="20%" height="18" align="center" >分类</td>
          <td width="15%" height="18" align="center" > 发布时间</td>
        </tr>
        <%
Do While Not rs.Eof
%>
        <tr bgcolor="#FFFFFF" onmouseover="this.bgColor = '#ebebeb'" onmouseout="this.bgColor = '#FFFFFF'">
          <td height="11" align="center"><%=rs("title")%></td>
          <td height="11" align="center"><%=rs("typestr")%></td>
          <td height="11" align="center"><%=rs("uptime")%></td>
        </tr>
   <%
rs.MoveNext
Loop
%>
</table>
</body>
</html>

[ 本帖最后由 kevinxu0638 于 2010-12-4 19:46 编辑 ]

javascript、asp学习研究中希望高手多多指教

第 3 楼

得分:0

kevinxu0638您好，谢谢你的回复，但我还是没有看明白？

第 4 楼

得分:0

回复 3楼 haojibao

你把你的数据库名和表名写上任何把表格里的字段换成你表里的就行了这个不带分页的
这个是用的一个DO loop循环

javascript、asp学习研究中希望高手多多指教

第 5 楼

得分:0

程序代码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻广告</title>
<link href="../css/cbebcss.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#F4F4F4" leftmargin="0" topmargin="6" marginwidth="0" marginheight="0">
<%
Dim db,rs,strSql
    Set db=Server.CreateObject("ADODB.Connection")
    db.Open "Dsn=XX" ' XX换成你的数据库名                    
    Set rs=Server.CreateObject("ADODB.Recordset")
    strsql="select * from XX " ' XX换成你的表名
    rs.Open strSql,db,1
%>
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#999999" align="center">
        <tr bgcolor="#DBDBDB">
          <td>标题</td>
          <td>分类</td>
          <td> 发布时间</td>' 这是表格部分你会的吧
          </tr>
<%
Rs.PageSize = 3 '数字是控制一页显示的条数
If Request("PageNo") = "" Then PageNo=1 Else PageNo = CInt(Request("PageNo"))
If PageNo < 1 Then Response.Redirect "?PageNo=1"
If PageNo > Rs.PageCount And Rs.PageCount > 0 Then Response.Redirect "?PageNo=" & Rs.PageCount
If Rs.Eof and Rs.Bof Then PageNo = 0 Else Rs.AbsOlutePage = PageNo
%>
       <%For x = 1 to Rs.PageSize
If Rs.Eof Then Exit For
%>
        <tr bgcolor="#FFFFFF" onmouseover="this.bgColor = '#ebebeb'" onmouseout="this.bgColor = '#FFFFFF'">
          <td><%=rs("title")%></td>
          <td><%=rs("typestr")%></td>
          <td><%=rs("uptime")%></td> '这边写与上面对应的字段名比如你的表里有个XX就写<%=rs("XX")%>
          </tr>
  <%rs.movenext
next%></table><table  cellspacing="0" width="508" border="0"  align="center">

                <tr><td>&nbsp;</td></tr>  
              <tr>
                <td align="center" >
           <%CurrentPage= PageNo
           showpage "?",rs.recordcount,Rs.PageSize,true,true,"条" %>
           
</td>
              </tr>
            </table>
            <%
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
    dim n, i,strTemp,strUrl
    if totalnumber mod maxperpage=0 then
        n= totalnumber \ maxperpage
      else
        n= totalnumber \ maxperpage+1
      end if
      strTemp= "<table align='center'><form name='showpages' method='Post' action='" & sfilename & "'><tr><td>"
    if ShowTotal=true then
        strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & "&nbsp;&nbsp;"
    end if
    strUrl=(sfilename)
      if CurrentPage<2 then
            strTemp=strTemp & "首页 上一页&nbsp;"
      else
            strTemp=strTemp & "<a href='" & strUrl & "PageNo=1'>首页</a>&nbsp;"
            strTemp=strTemp & "<a href='" & strUrl & "PageNo=" & (CurrentPage-1) & "'>上一页</a>&nbsp;"
      end if

      if n-currentpage<1 then
            strTemp=strTemp & "下一页 尾页"
      else
            strTemp=strTemp & "<a href='" & strUrl & "PageNo=" & (CurrentPage+1) & "'>下一页</a>&nbsp;"
            strTemp=strTemp & "<a href='" & strUrl & "PageNo=" & n & "'>尾页</a>"
      end if
       strTemp=strTemp & "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
    strTemp=strTemp & "&nbsp;<b>" & maxperpage & "</b>" & strUnit & "/页"
    if ShowAllPages=True then
        strTemp=strTemp & "&nbsp;转到：<select name='PageNo' size='1' onchange='javascript:submit()'>"  
        for i = 1 to n  
            strTemp=strTemp & "<option value='" & i & "'"
            if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
            strTemp=strTemp & ">第" & i & "页</option>"  
        next
        strTemp=strTemp & "</select>"
    end if
    strTemp=strTemp & "</td></tr></form></table>"
    response.write strTemp
end sub %>
</body>
</html>

这个带分页的 PS这个分页比我原来的好呵呵这个分页是论坛的高手教的

javascript、asp学习研究中希望高手多多指教

第 6 楼

得分:0

第 7 楼

得分:0

kevinxu0638非常感谢您的回复，在指点一下！谢谢！

第 8 楼

得分:0

回复 6楼 haojibao

javascript、asp学习研究中希望高手多多指教