Message Board

<% id=Request("id") root=Request("root") if root=true then session("root")="root" end if Set Conn=Server.CreateObject("ADODB.Connection") DBPath=Server.MapPath("../../../home/gbook.mdb") Conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set Session("conn") = conn %> Message Board

"> >


	" size=25 class="yi">
	" size=25 class="yi">
	" size=25 class="yi">

<% Set rs1=Server.CreateObject("ADODB.RecordSet") rs1.Open "Select * From book Where ID =" & id,conn,1,3 %>

<%=rs1("title")%>

<%=rs1("body")%>

<%=rs1("name")%>

|| <%=rs1("time")%> ||

" target="_blank">

<% rs1.close Set rs1=Nothing %>