wlogin.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("admin") =  rs("username")
	   Session("password") =  rs("password")
       Response.Redirect("myedit.asp?name="&Session("admin")&"")

  Else  %>
<STYLE type=text/css></style>
<link rel="stylesheet" href="Style.css" type="text/css">


你没有管理他人文章的权力。 
<% End If %>
<%
  rs.Close
  set rs=Nothing
  
  conn.Close
  set conn=Nothing
%>