" background="images/<%=rs_style("bg_img")%>"> <%url=Request("url") TitleID=Request("TitleID") Set rs=Server.CreateObject("ADODB.Recordset") rs.Open "Select * From Titles Where TitleID="& TitleID,conn,1,3%>
> >
" bgcolor="<%=rs_style("table_tit_color1")%>" colspan="2">修改文章
" bgcolor="<%=rs_style("table_bg_color")%>"> 標題" size="59"> " size="59">

心情圖示

字型顏色:       (UBB<% Set rsset = Server.CreateObject("ADODB.Recordset") SQL = "Select * From config_setting where ID=1" rsset.Open SQL, Conn,1,3 If rsset("UBBcode") =False Then %>不<%End If%>開啟，請看UBB幫助)   HTML<%If rsset("htmlencode") = False Then%>不<%End If:rsset.close%>開啟
" bgcolor="<%=rs_style("table_bg_color")%>">

插入表情圖案
" bgcolor="<%=rs_style("table_bg_color")%>">
" bgcolor="<%=rs_style("table_bg_color")%>">
" bgcolor="<%=rs_style("table_bg_color")%>"> >

<%if rs("poll")=1 then%> <%sql="select * from poll where titleid="&rs("TitleID") set rs_poll=conn.execute(sql) %>  選項1">   選項2">

  選項3">   選項4">

  選項5">   選項6">

  選項7">   選項8">

                            選項9"> 選項10"> (沒有請留白) <%end if%>
<%'sql="select * from config_setting where ID=1" 'Set rsidid=conn.execute(sql) '------------------------------------------------------------ if rstitle("upload")=true then '------------------------------------------------------------%> 　<%if not rs("file")=empty then response.write "目前有附件檔案"&rs("file")&"，若要修改附件請重新上傳" else response.write "目前無附件檔案"&rs("file")&"，若要新增請重新上傳" end if %> <%'------------------------- end if '-------------------------- %>

<%if rsidid("en_save")=true then%>

文章保存期限

<%end if%>
<%if rs("reply_pm")="ON" then%>

有回覆以簡訊通知Y N

<%else%>

有回覆以簡訊通知Y N

<%end if%>

 

">返回