<!--#include file="include/conn.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<!--#include file="inc/UBBshow.asp"-->
<!--#include file="inc/UBB_news.asp"-->
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style>
<%if request.Form("action")="editnews" then
      if request.Form("id")="" then
          founderr=true
          errmsg=errmsg+"<br>"+"<li>你必須指定操作的對象！"
      else
          if not isInteger(request.form("id")) then
            founderr=true
            errmsg=errmsg+"<br>"+"<li>非法的id參數。"
          end if
      end if
      if founderr then
          call diserror()
          response.End
      end if
         sql="select * from log where l_id="&cint(request.Form("id"))
         set rs=server.createobject("adodb.recordset")
         rs.open sql,conn,1,3          
         title=trim(replace(request.form("l_title"),"'",""))
         content=replace(request.form("l_content"),"'","")
      if title="" then
          founderr=true
          errmsg=errmsg+"<br>"+"<li>你必須輸入該故事的標題！"
      else
           rs("l_title")=title
      end if
      if content="" then
           founderr=true
           errmsg=errmsg+"<br>"+"<li>你必須輸入故事內容！"
      else
           rs("l_content")=content
      end if

       if not founderr then
	       rs("l_time")=date()
           rs.update
           rs.close
           set rs=nothing
		   response.write"<script>alert(""修改成功，確認！"");location.href=""admin_log.asp"";</script>"
       else
           call diserror()
           response.end
       end if
else%>
<%
   if request.querystring("id")="" then
       errmsg=errmsg+"<br>"+"<li>請指定操作的對象！"
       call diserror()
       response.end
   else
   if not isinteger(request.querystring("id")) then
       errmsg=errmsg+"<br>"+"<li>非法的 ID參數！"
	   call diserror()
	   response.end
   end if
sql="select * from log where l_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs("u_id")<>session("u_id") then
    errmsg=errmsg++"<br>"+"<li>非法的 ID參數！"
	call diserror()
	response.end
end if
%><br><br><br><br>
      <table width="75%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolor="#C0C0C0" bgcolor="#000000" style="border-collapse: collapse">
        <form name="form1" method="post" action="admin_logmod.asp">
          <tr> 
            <td height="30" bgcolor="#E8E8E8"><div align="center"><a name="editnews" style="font-size: 9pt">修改故事</a></font></div></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" class="chinese"><span style="font-size: 9pt">標題</span>-
              <input type="text" name="l_title" class="textarea" size="50" value="<%=rs("l_title")%>">
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;            </td>
          </tr>
         
          <tr> 
            <td bgcolor="#FFFFFF" class="chinese">
              <%call ubbshow()%> 　</td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" class="chinese"> <textarea name="l_content" cols="84" rows="12" wrap="OFF" class="textarea" id="l_content"><%=rs("l_content")%></textarea> 
            </td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5" class="chinese" height="30" align="center"> 
              <input type="submit" name="Submit" value="確定修改" class="button"> 
              <input type="reset" name="Reset" value="清空重填" class="button">
              <span style="font-size: 9pt">[<a href="admin_log.asp">返回</a>] </span></td>
          </tr>
		  <input type="hidden" name="id" value="<%=rs("l_id")%>">
		  <input type="hidden" name="action" value="editnews">
        </form>
</table>
	<%end if
end if%>