admin_userbooksave.asp

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

<!--#include file="../conn.asp"--><!-- #include file="session.asp" --><!--#include file="../inc/config.asp"-->
<%
page=trim(request("page"))
id=trim(request.QueryString("id"))
act=request("act")

set rs=server.CreateObject("ADODB.RecordSet")
if act="lock" then
	sql="select Ar_Lock from [Article] where Ar_id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("Ar_Lock")=0 then
			rs("Ar_Lock")=1
		else
			rs("Ar_Lock")=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>")
%>