www.gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\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 %>