checkmanager.asp

来自「给某大型ICP网站开发的域名管理支付系统」· ASP 代码 · 共 17 行

<%
        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&"'" 
	rs.open sql,Con,1,1
	if rs.eof and rs.bof then
		response.redirect "../profile/errorpage.asp?id=userunknow"
	else if rs("perm")<2	 then
			response.redirect "../profile/errorpage.asp?id=userunknow"
		end if 
		rs.close
		Con.close
	end if
%>