save_announce.asp

前台完全分离了HTML与ASP

<%
Function HTMLEncode(fString)
if not isnull(fString) then
    fString = Replace(fString, CHR(38), "&#38;")
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10), "<br/>")
    HTMLEncode = fString
end if
end Function

Function saveAnnounce()
 dim take_time,begin_time,errMessage
 begin_time=timer()  
 set srs=Server.CreateObject("Adodb.Recordset")
 sql="select * from ZD_Announce"
 srs.open sql,conn,1,3
 IF Request.Form("codeMode")="ubb" Then
  srs("title")=HTMLEncode(Request.Form("title"))
  srs("content")=HTMLEncode(Request.Form("content"))
  srs("addtime")=date()
  IF Request.Form("isShow")="true" Then
   srs("isShow")=true
  Else
   srs("isShow")=false
  End IF
  srs("codeMode") = "ubb"
 Else
  srs("title")=Trim(Request.Form("title"))
  srs("content")=Trim(Request.Form("content"))
  srs("addtime")=date()
  IF Request.Form("isShow")="true" Then
   srs("isShow")=true
  Else
   srs("isShow")=false
  End IF
  srs("codeMode") = "html"
 End IF
 srs.update
 set srs=nothing
 take_time=FormatNumber((timer()-begin_time),2)
 temp_title=Request.Form("title")
 call SaveLog(Session("member"),"成功操作",now(),"添加公告",getIP(),true)
 saveAnnounce="<br>◇&nbsp;公告<font color=red>"&temp_title&"</font></a>修改成功,总计费时:<font color=red>0"&take_time&"</font>秒"
End Function
%>