save_channel.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 addChannel()
 l_id = Request.Form("meau")
 dim f_id,tem_fid,level
 IF l_id<>"请选择类别" Then                                         '得到类别最高级数,以及主ID
 tem_fid=split(l_id,",")
 level=ubound(tem_fid)
 f_id=tem_fid(level)
 mainid=tem_fid(0)
 Else
 level=0
 f_id=0
 mainid=0
 End IF

 set rs=server.createObject("adodb.recordset")
 sql="select * from ZD_Channel"
 rs.open sql,conn,1,3
 rs.addnew
 IF Request.Form("codetype")="ubb" Then
  rs("title") = HTMLEncode(Request.Form("title"))
  rs("message") = HTMLEncode(Request.Form("message"))
  rs("content") = HTMLEncode(Request.Form("content"))
 Else
  rs("title") = Request.Form("title")
  rs("message") = Request.Form("message")
  rs("content") = Request.Form("content")   
 End IF
 rs("codeMode")=Request.Form("codeType")
 IF l_id<>"请选择类别" Then 
  rs("listid")=cstr(l_id)&","&rs("id")
  rs("typelevel")=level+1
 Else
  rs("listid")=rs("id")
  rs("typelevel")=level
 End IF
 rs("f_id")=f_id
 IF mainid=0 Then
  mainid=rs("id")
 Else
  rs("mainid")=mainid
 End IF
 rs.update
 rs.close
 set rs=nothing
 call SaveLog(Session("member"),"成功添加频道"&Request.Form("title"),now(),"频道添加",getIP(),true)
 addChannel="<font color=red>"&Request.Form("title")&"</font>频道添加成功!"
End Function

Function editeChannel(t_id)
 dim f_id,tem_fid,level
 l_id = Request.Form("meau")
 IF l_id<>"请选择类别" Then
 tem_fid=split(l_id,",")
 level=ubound(tem_fid)
 f_id=tem_fid(level)
 mainid=tem_fid(0)
 Else
 level=0
 f_id=0
 mainid=0
 End IF

 set rs=server.createObject("adodb.recordset")
 sql="select * from ZD_Channel where id="&t_id
 rs.open sql,conn,1,3
 IF Request.Form("codetype")="ubb" Then
  rs("title") = HTMLEncode(Request.Form("title"))
  rs("message") = HTMLEncode(Request.Form("message"))
  rs("content") = HTMLEncode(Request.Form("content"))
 Else
  rs("title") = Request.Form("title")
  rs("message") = Request.Form("message")
  rs("content") = Request.Form("content")   
 End IF
 rs("codeMode")=Request.Form("codeType")
 IF l_id<>"请选择类别" Then 
   rs("listid")=cstr(l_id)&","&rs("id")
   rs("typelevel")=level+1
 Else
   rs("listid")=rs("id")
   rs("typelevel")=level
 End IF
 rs("f_id")=f_id
 IF mainid=0 Then
   mainid=rs("id")
 Else
   rs("mainid")=mainid
 End IF
 rs.update
 rs.close
 set rs=nothing
 call SaveLog(Session("member"),"成功修改频道"&Request.Form("title"),now(),"频道修改",getIP(),true)
 editeChannel="成功修改频道:<font color=red>"&Request.Form("title")&"</font>!"
End Function

Function del_Channel(t_id)
 dim tem_tid,i
 tem_tid=split(t_id,",")
 for i=0 to ubound(tem_tid)
  sql="delete * from ZD_Channel where id="&tem_tid(i)
  conn.execute(sql)
  del_Channel= del_Channel & "成功删除类别ID为&nbsp;<font color=red>"&tem_tid(i)&"</font>&nbsp;的类别的数据库记录!<br>"
 next
 call SaveLog(Session("member"),"成功删除频道,频道ID为"&t_id,now(),"频道删除",getIP(),true)
End Function
%>