;"

　　response.write "< td>" & datastr & "< /td>< /tr>"

　　rs.movenext

　　loop until rs.eof

　　%>

　　< /table>

　　< /html>

　　< %

　　set rs=nothing

　　conn.close

　　set conn=nothing

　　%>

　　< /body>

　　 当点击了相应文章的联结后，就进入此文章的处理页面managearticle.asp：

　　< %

　　articleid=request("articleid")

　　boardid=request("boardid")

　　if session("beenthere")< >boardid then response.redirect "forums.asp"

　　Set 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 = "按id查询文章"

　　 ReDim param(0) ' 声明

　　param(0) = CLng(articleid) ' Cint 不可忽略

　　Set rs = cmd.Execute( ,param )

　　author=rs("作者id")

　　 title=rs("标题")

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页

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

	Web www.51ec.org

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

下一篇信息学院： 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （一）…