admin_userbooksave.asp

来自「本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置」· ASP 代码 · 共 29 行

<!--#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
	if IsSqlDataBase = 2 then
		sql="select Ar_Lock from Article where Ar_id="&id
	else
		sql="select Ar_Lock from [Article] where Ar_id="&id
	end if
	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>")
%>