admin_linksave.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

<!--#include file="../conn.asp"--><!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<%

page=replace(trim(request("page")),"'","")
id=request.QueryString("id")
act=request("act")

set rs=server.CreateObject("ADODB.RecordSet")
if act="ok" then
	sql="select ok_link from [link] where id_link="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("ok_link")=0 then
			rs("ok_link")=1
		else
			rs("ok_link")=0
		end if
		rs.update
	end if
	rs.close
elseif act="Good" then
	sql="select Good_link from [link] where id_link="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("Good_link")=0 then
			rs("Good_link")=1
		else
			rs("Good_link")=0
		end if
		rs.update
	end if
	rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.write ("<script>opener.location.reload();</script><script language=javascript>window.alert('操作成功!');javascript:window.close();</script>")
%>