login.asp

本 源码是 VF 管理系统

<!--#include file="conn.asp"-->
<%
Dim strsql
strsql="Select * From admin where admin='" + Request("name") + "'"  
Set rs=conn.Execute(strsql)

If Not rs.Bof and Not rs.Eof Then
pw=rs("password")
if pw<>trim(request("pwd")) then
Response.Redirect"login.htm"
else
Session("admin")=rs("admin")
rs.close
set rs=nothing
Response.Redirect"index.asp"
End If
End If
%>