<!--#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 main where username = '"&username&"' and  password='"&userpwd&"'"
rs.open sql,conn,1,1
if not rs.eof then
	'Session("username")=rs("username")
	 username=rs("username")
     
	 userpwd=rs("password")	
	response.write("<script language=javascript>window.alert('登錄成功！');window.location='main.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
%>