save_article.asp

来自「前台完全分离了HTML与ASP」· ASP 代码 · 共 159 行

<%
'======================================添加新的文章==================================================
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 saveArticle()
 dim take_time,begin_time,errMessage
 begin_time=timer()  
 set srs=Server.CreateObject("Adodb.Recordset")
 sql="select * from ZD_Article"
 srs.open sql,conn,1,3
 srs.addnew
 IF Request.Form("codetype")="ubb" Then
  srs("title")=HTMLEncode(Request.Form("title"))
  srs("writter")=HTMLEncode(Request.Form("writter"))
  srs("comefrom")=HTMLEncode(Request.Form("comefrom"))
  srs("t_id")=Cint(Request.Form("articletype"))
  srs("readlevel")=Cint(Request.Form("readlevel"))
  IF Request.Form("hotShow")=1 Then
   srs("hotShow")=true
   IF Request.Form("hotShowImage")<>"" Then
    srs("hotShowImage")=Request.Form("hotShowImage")
   End IF
  Else
   srs("hotShow")=false
  End IF
  srs("message")=HTMLEncode(Request.Form("message"))
  srs("content")=HTMLEncode(Request.Form("content"))
  srs("addtime")=now()
  srs("codeMode")=Request.Form("codeType")
 Else
  srs("title")=Trim(Request.Form("title"))
  srs("writter")=Trim(Request.Form("writter"))
  srs("comefrom")=Trim(Request.Form("comefrom"))
  srs("t_id")=Trim(Request.Form("articletype"))
  srs("readlevel")=Trim(Request.Form("readlevel"))
  IF Request.Form("hotShow")=1 Then
   srs("hotShow")=true
   IF Request.Form("hotShowImage")<>"" Then
    srs("hotShowImage")=Request.Form("hotShowImage")
   End IF
  Else
   srs("hotShow")=false
  End IF
  srs("message")=Request.Form("message")
  srs("content")=Trim(Request.Form("content"))
  srs("addtime")=now()
  srs("codeMode")=Request.Form("codeType")
 End IF

 srs.update
 set srs=nothing
 
 take_time=FormatNumber((timer()-begin_time),2)

 temp_title=Request.Form("title")
 call SaveLog(Session("member"),"成功添加文章"&temp_title,now(),"文章添加",getIP(),true)

 IF take_time<1 Then
  take_time = "0" & take_time
 End IF
 saveArticle = "<br>◇&nbsp;文章<font color=red>"&temp_title&"</font>添加成功,总计费时:<font color=red>"&take_time&"</font>秒" 
End Function

'================================保存修改后的文章==========================================================================

Function saveEditeArticle()
 dim take_time,begin_time,errMessage
 begin_time=timer()  
 set srs=Server.CreateObject("Adodb.Recordset")
 sql="select * from ZD_Article where id="&Request.Form("editeid")
 srs.open sql,conn,1,3
 IF srs.eof Then 
  response.redirect "err.asp?message=您要修改的文章已删除或者您提交了一个不存在的ID号。"
 Else
  IF Request.Form("codetype")="ubb" Then
   srs("title")=HTMLEncode(Request.Form("title"))
   srs("writter")=HTMLEncode(Request.Form("writter"))
   srs("comefrom")=HTMLEncode(Request.Form("comefrom"))
   srs("t_id")=HTMLEncode(Request.Form("articletype"))
   srs("readlevel")=Cint(Request.Form("readlevel"))
   IF Request.Form("hotShow")=1 Then
    srs("hotShow")=true
    IF Request.Form("hotShowImage")<>"" Then
     srs("hotShowImage")=Request.Form("hotShowImage")
    End IF
   Else
    srs("hotShow")=false
   End IF
   srs("message")=HTMLEncode(Request.Form("message"))
   srs("content")=HTMLEncode(Request.Form("content"))
   IF Request.Form("isUpdateTime")="true" Then
    srs("addtime")=now()
   End IF
   srs("codeMode")=Request.Form("codeType")
   srs("change")=True
  Else
   srs("title")=Trim(Request.Form("title"))
   srs("writter")=Trim(Request.Form("writter"))
   srs("comefrom")=Trim(Request.Form("comefrom"))
   srs("t_id")=Trim(Request.Form("articletype"))
   srs("readlevel")=Cint(Request.Form("readlevel"))
   IF Request.Form("hotShow")=1 Then
    srs("hotShow")=true
    IF Request.Form("hotShowImage")<>"" Then
     srs("hotShowImage")=Request.Form("hotShowImage")
    End IF
   Else
    srs("hotShow")=false
   End IF
   srs("message")=Request.Form("message")
   srs("content")=Trim(Request.Form("content"))
   IF Request.Form("isUpdateTime")="true" Then
    srs("addtime")=now()
   End IF
   srs("codeMode")=Request.Form("codeType")
   srs("change")=True
  End IF
  srs.update
  set srs=nothing
 
  take_time=FormatNumber((timer()-begin_time),2)

  temp_title=Request.Form("title")
  call SaveLog(Session("member"),"成功修改文章"&temp_title,now(),"文章修改",getIP(),true)

  IF take_time<1 Then
   take_time = "0" & take_time
  End IF
  saveEditeArticle = "<br>◇&nbsp;文章<font color=red>"&temp_title&"</font>修改成功,总计费时:<font color=red>"&take_time&"</font>秒" 
 End IF
End Function
'========================================删除=================================================================
Function del_article(del_id)
  dim get_did,d_name,d_name2,d_title,cmdmessage
  get_did=split(del_id,",")
  for i=0 to ubound(get_did)
   del_sql="delete * from ZD_Article where id="&get_did(i)                           '删除数据库记录
   Conn.Execute(del_sql)
   cmdmessage = cmdmessage & "<b>操作成功!</b>删除记录:<font color=red>"&get_did(i)&"</font>;<br>" 
  next
  call SaveLog(Session("member"),cmdmessage,now(),"文章删除",getIP(),true)
  del_article=cmdmessage
End Function



%>