% public function getBookName(ByVal bookID) Dim Conn1, RS1 Set Conn1 = CreateObject("ADODB.Connection") Set RS1 = Server.CreateObject("ADODB.RecordSet") Conn1.Provider = "Microsoft.Jet.OLEDB.4.0" Conn1.Open Server.MapPath("../database/bookstore.mdb") sql = "select bookname from top10info where id = " & bookID RS1.open sql,Conn1,3,1 getBookName = rs1("bookName") end function %>
|
|||||||||||||||||||
|
|||||||||||||||||||
| 万圣书观>>> | |||||||||||||||||||
|
评选说明: 万圣书园 年度排行 2008年 2007年
|
||||||||||||||||||
|
版权所有 北京万圣书园
|
|||||||||||||||||||