findaccount.asp

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

<!--#include file="conn.asp"-->
<%
sql = "select * from admin where username='" & Request("username") & "' And password='" & Request("password") & "' "
  Set rs = conn.Execute(sql)  
 If Not rs.EOF = True Then
	   Session("username") =  rs("username")
	  
       Response.Redirect("usermanage.asp")

  Else  %>
<STYLE type=text/css>
BODY {font-size:12px;font-family:"Tahoma", "Verdana", "MS Sans Serif", "宋体", "Courier New";}

A:link {COLOR: #333333;text-decoration:none;}
A:visited {COLOR: teal;text-decoration:none;}
A:hover {COLOR: red; text-decoration: none}
FONT {TEXT-DECORATION: none; font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 12px}
TEXTAREA{color:#333333;background-color:#FFFFFF;border:1 solid #101010; font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 12px}
TD { font-size:12px;font-family: "宋体", "Tahoma", "Verdana", "MS Sans Serif",  "Courier New"; } SELECT { color:#333333;background-color:#FFFFFF;border:1 solid #101010 ; font-family: "宋体"; font-size: 9pt} .myin {  font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 12px; border: #333333; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; background-color: #FFFFFF}
hr {  color: #CCCCCC}
</style>
你没有管理用户的权力。 
<% End If %>