saveuser1.asp

这是一个文章管理的网页源程序

<%@ Language=VBScript %>
<%
  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>1 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if
%>
<!--#include file="conn.asp"-->
<%
  
   right_class=CInt(Request("right_class"))

   Set rs=Server.CreateObject("Adodb.RecordSet")
  
   sql="select * from admin where username='"&request("username")&"'"
   rs.open sql,conn,3,3
   
   rs("addtime")=date()
   rs("flag")=right_class
   rs.update
   rs.Close
   set rs=Nothing
   
   conn.Close
   set conn=Nothing

   Response.Redirect "adminuser.asp"
%>