admin_linksave.asp

小说站源代码文件

<!--#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
			conn.execute ("update link set ok_link=1 where id_link="&id)
		else
			conn.execute ("update link set ok_link=0 where id_link="&id)
		end if
	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
			conn.execute ("update link set Good_link=1 where id_link="&id)
		else
			conn.execute ("update link set Good_link=0 where id_link="&id)
		end if
	end if
	rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.write ("<script>opener.location.reload();</script>")
Call ShowAdminSuccessMsg("操作成功！","javascript:window.close()")
%>