<%'從Detail.asp取值 DetailID=Request("DetailID") TitleID=Request("TitleID") Set rs=Server.CreateObject("ADODB.Recordset") rs.Open "Select * From Details Where DetailID="& DetailID,conn,1,3%>
> >
" bgcolor="<%=rs_style("table_tit_color1")%>" bordercolor="#808080" colspan="2">修改回覆
" bgcolor="<%=rs_style("table_bg_color")%>">　

字型顏色:       >   (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")%>">

　 <%'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 '-------------------------- %>

 

　

>返回