checkstatus.asp

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

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