www.gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\source_\admin\system_link_updata.asp

    <!--#include file="../inc/conn.asp"-->
<!--#include file="session.asp"-->
<%web_name=trim(Request("web_name"))
  web_url=Request("web_url")
  link_id=Request("link_id")
  del=Request("del")
  logo=Request("logo")
  posi=Request("posi")
  if del=1 then
   sql="delete from link where id="&link_id
   conn.Execute(sql)
   set conn=nothing
   Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
   if FileObject.FileExists(Server.Mappath("\images\link\"&logo)) then
    FileObject.DeleteFile(Server.Mappath("\images\link\"&logo))
   End If
   Set FileObject=nothing
   Response.Redirect"system_link_manage.asp?posi="&posi
  else
   if link_id="" or web_name="" or web_url="" then
    result=server.urlEncode("对不起,网站链接或者网址不能为空,请返回")
    Response.Redirect"result.asp?result="&result
   end if
   Set Rs=Server.CreateObject("Adodb.RecordSet")
    sql="select * from link where id="&link_id
     Rs.Open sql,conn,3,3
     Rs("web_name")=web_name
     Rs("web_url")=web_url
     Rs.Update
     Rs.Close
     Set Rs=nothing
     Set conn=nothing
     Response.Redirect"system_link_manage.asp?posi="&posi
   end if
   %>