% '抓討論區的名字 Discuss = Request("Discuss") Mydatabase = "../DB/bbs.mdb" set adocon1=Server.CreateObject("ADODB.Connection") param1 = "driver={Microsoft Access Driver (*.mdb)}" adocon1.Open param1 & ";dbq=" & Server.MapPath(Mydatabase) set rs1 = Server.CreateObject("ADODB.Recordset") sqlstr1 = "select * from Discuss where Discuss_ID = '"&Discuss&"' " rs1.Open sqlstr1, adocon1, 1,1 DiscussN = rs1("Discuss_Name") 'rs1.Close 'adocon1.close %>
![]() |
![]() |
![]() |
蒼穹設計工作室設計製作
COPYRIGHT © 2000 SKY DESIGN
STUDIO ALL RIGHTS RESERVED