save_link.asp

前台完全分离了HTML与ASP

<%
Function addLink()
 IF Request.Form("title")<>"" Then
  set rs=server.createObject("adodb.recordset")
  sql="select * from ZD_SiteLink"
  rs.open sql,conn,1,3
  rs.addnew
  rs("title")=Request.Form("title")
  rs("logoUrl")=Request.Form("logoUrl") 
  rs("siteUrl")=Request.Form("siteUrl")
  rs("message")=Request.Form("message")
  IF Request.Form("type")="1" Then
   rs("type")=True
  Else
   rs("type")=False
  End IF
  rs.update
  rs.close
  set rs=nothing
  call SaveLog(Session("member"),"成功添加友情链接"&Request.Form("title"),now(),"友情链接添加",getIP(),true)
  addLink="<font color=red>"&Request.Form("title")&"</font>的友情链接添加成功!"
 Else
  addLink="请填写友情链接的标题"
 End IF
End Function

Function editeLink()
 IF Request.Form("title")<>"" Then
   set rs=server.createObject("adodb.recordset")
   sql="select * from ZD_SiteLink where id="&Request.Form("editeID")
   rs.open sql,conn,1,3
   IF rs.eof Then
    response.redirect "err.asp?message=找不到该记录"
    response.End
   End IF
   rs("title")=Request.Form("title")
   rs("logoUrl")=Request.Form("logoUrl") 
   rs("siteUrl")=Request.Form("siteUrl")
   rs("message")=Request.Form("message")
   IF Request.Form("type")="1" Then
    rs("type")=True
   Else
    rs("type")=False
   End IF
   rs.update
   rs.close
   set rs=nothing
   call SaveLog(Session("member"),"成功修改友情链接"&Request.Form("title"),now(),"友情链接修改",getIP(),true)
   editeLink = "<font color=red>"&Request.Form("title")&"</font>的友情链接修改成功!"
 Else
   editeLink = "请填写友情链接标题!"
 End IF
End Function

Function delLink(t_id)
 dim tem_tid
 tem_tid=split(t_id,",")

 for i=0 to ubound(tem_tid)
 sql="delete * from ZD_SiteLink where id="&tem_tid(i)
 delLink = delLink & "删除友情链接ID为&nbsp;<font color=red>"&tem_tid(i)&"</font>&nbsp;记录成功!<br>"
 conn.execute(sql)
 next
 call SaveLog(Session("member"),"成功删除友情链接"&tem_tid,now(),"友情链接删除",getIP(),true)
set DelFileObject=nothing
End Function
%>