WEB源码(ASP,PHP,...)

开发平台：

DOS

keep.asp：源码内容

							<!--#include file="conn.asp"-->
<%
dim cls
if session("admin")="" then
	Response.Redirect("admin.asp")	
else
	if session("flag")<>"0" then
	
		cls = Instr(session("flag"), "manprofig")
		if cls <= 0 then
	%>
		<script language="javascript">
			if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
			  location.href="login.asp";
			else
			  location.href="index.asp";
		</script>
	<%
		end if
	end if
end if
%>
<%
action=request("action")
id=request("id")
set rs=server.createobject("adodb.recordset")
if action="sj" then 
rs.open "select  * from products where bookid="&id ,conn,1,3
rs("zhuangtai")=0
rs.update
response.redirect request.servervariables("http_referer")
elseif action="xj" then
rs.open "select  * from products where bookid="&id ,conn,1,3
rs("zhuangtai")=1
rs.update
response.redirect request.servervariables("http_referer")
end if 
%>

						