listboard.asp

来自「大家好」· ASP 代码 · 共 76 行

ASP
76 行
字号 
<%@ LANGUAGE="VBSCRIPT" %>
<%
   DbPath = SERVER.MapPath("db1.mdb")
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
   set rs=server.createobject("adodb.recordset")
   sqlText="select boardid,boardname from board_info"
  rs.open sqltext,conn,1
   if rs.eof and rs.bof then
  rs.close
conn.close
set rs=nothing
set conn=nothing
  response.write "no lanmu!"
response.end  
else  
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<style type="text/css">
<!--
p,a,td{font-size:12px;font-family:宋体,sans-serif;line-height:1.4}
.12{font-size:12px;font-family:宋体,sans-serif}
        A:link {text-decoration: none}
        A:visited {text-decoration: none}
        A:active { text-decoration: underline}
        A:hover {text-decoration: underline} 

-->

</style>
<title>list board</title>
<base target="main">
</head>

<body bgcolor="#FFEBBD">
<div align="center"><div align="center"><center>

<table border="1" cellspacing="0" width="100%" cellpadding="2" bordercolordark="#FFFFFF"
borderColorLight="#000000">
  <tr bgcolor="#D3D7FE">
    <td align="center" bordercolordark="#FFFFFF" width="582">版 面</td>
    <td align="center" bordercolordark="#FFFFFF" width="171">最新</td>
  </tr>
<%for i=1 to rs.recordcount%>
  <tr bgcolor="#E3E2FE">
    <td align="center" width="582" bordercolordark="#FFFFFF" height="29"><a
    href="list.asp?boardid=<%=rs("boardid")%>"><%=rs("boardname")%></a></td>
    <td align="center" width="171" bordercolordark="#FFFFFF" height="29"><font color="#FF0080"><%=rs("boardid")%></font></td>
  </tr>
<%rs.movenext
   if rs.eof then                                                
     exit for                                                
  end if                                                
next                                                 
                                             
rs.close           
conn.close           
set rs=nothing           
set conn=nothing           
end if                                                
%>
</table>
</center></div>

<p align="center"><a href="selectboard.asp">斑竹入口&gt;&gt;&gt;</a></p>

<p align="center"><a href="changeboard.htm">站主入口&gt;&gt;&gt;</a></p>
</div>
</body>
</html>

listboard.asp - 源码说明

本页面展示了「大家好」中的 listboard.asp 源码文件，采用 ASP 编程语言编写，共 76 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与家相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?