conn = Server.CreateObject("ADODB.Connection")

　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

　　Set cmd = Server.CreateObject("ADODB.Command")

　　Set cmd.ActiveConnection = conn

　　cmd.CommandText = "主题列表"

　　 ReDim param(0) ' 声明参数数组

　　param(0) = CLng(boardid) ' CLng 不可忽略

　　Set rs = cmd.Execute( ,param )

　　%>

　　

　　< html>

　　< head>

　　< title>主题列表< /title>

　　< meta http-equiv="Content-Type" content="text/html; charset=gb2312">

　　< /head>

　　

　　< body bgcolor="#FFFFFF">

　　< h1 align="center">< %=rs("看板名")%>板主题列表 < /h1>

　　< table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">

　　 < tr bgcolor="#FFFFCC">

　　 < td width="89%" height="21">主题< /td>

　　 < td width="11%" height="21">文章数< /td>

　　 < /tr>

　　< %

上一页  [1] [2] [3] [4] [5] 下一页

在google里搜索更多ASP技术在论坛中的运用(四)（吐血推荐！！！！）

	Web www.51ec.org

上一篇信息学院： ASP技术在论坛中的运用(三)（吐血推荐！！！！）

下一篇信息学院： ASP技术在论坛中的运用(五)（吐血推荐！！！！）