checkuser.asp

给某大型ICP网站开发的域名管理支付系统

<%
        user=session("username")
	userpasswd=session("password")
	Set Con=Server.CreateObject("ADODB.Connection")
	Con.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database/yino.mdb")
	set rs=server.createobject("adodb.recordset")
	sql="select * from main where username='"&user&"' and password='"&userpasswd&"' and isopen=1" 
	rs.open sql,Con,1,1
	if rs.eof and rs.bof then
		response.redirect "../profile/errorpage.asp?id=userunknow"
	else
		rs.close
		Con.close
	end if
%>