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

				
								  if session("admin")="" then
				  response.redirect "admin.asp"
				  else
					if session("flag")>1 then
						response.write "您没有操作的权限"
						response.end
					end if
				  end if
				%>
				
								  
				   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"
				%>