<%@ LANGUAGE="VBSCRIPT" %> <% ID = Request.Querystring("ID") %> <% ACT = Request.Querystring("ACT") %> <% if Session("password")=true then %> 修改
<% Set ConnGuestBook = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("news.mdb") ConnGuestBook.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set cmdTemp = Server.CreateObject("ADODB.Command") Set CmdEditInfo = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT news.* FROM news WHERE (ID = " & ID & ")" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = ConnGuestBook CmdEditInfo.Open cmdTemp, , 0, 1 %> <% MESSAGE = CmdEditInfo("Body") MESSAGE = Replace(MESSAGE,"
",chr(13)) message=trim(message) %>

修改新增消息
公告主旨： " style="border-bottom-width:thin;border-top-width:0px;border-left-width:0px;border-right-width:0px;border-color: white;border-style:groove; background-color: transparent;color:000000;font size=11pt">
公告內容：

<% else %> 修改

你的行為已經......
請自重，小心觸法

<% end if %>