login1.asp

是一种自动化办公软件

<!--#include file="conn.asp"-->
<%
	dim username,userpwd
	username = request.form("username")
	userpwd = request.form("userpwd")

dim rs
dim sql

set rs=server.CreateObject("ADODB.RECORDSET")
sql="select * from yonghu1 where username = '"&username&"' and  password='"&userpwd&"'"
rs.open sql,conn,1,1
if not rs.eof then
	
	 username=rs("username")
     
	 userpwd=rs("password")	
	response.write("<script language=javascript>window.alert('登录成功！');window.location='firt.asp'</script>")
else
        response.write("<script language=javascript>window.alert('登录失败！');window.location='index.asp'</script>")

end if 
rs.close
set rs =nothing
conn.close
set conn=nothing
%>