<% if request.Cookies("lo") = "ok" then Set Conn = Server.CreateObject("ADODB.Connection") File=Server.Mappath("mlsh.mdb") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};pwd=guest; Dbq=" & file Set rs = Server.CreateObject("ADODB.Recordset") Sql = "select * from talk where id=" & Request.QueryString("id") rs.Open Sql,conn,1,3 %>

">

修 改 公 告

新聞主題：	">
內容：	<%=replace(rs("txt"),"<br>",chr(13))%><%if session("admin")="ok" then%> 〔 ">刪除 〕 <%else%> <%end if%>

<% rs.close conn.Close Set rs = Nothing Set conn = Nothing end if %>