dguanli.asp

来自「言板较全面地利用asp技术实现留言板的基本功能：留言、回复、删除」· ASP 代码 · 共 28 行

<%
 	   dim u,p
	   u = request("txtyonghu")
	   p = request("txtmima")
	 
  
		Dim con,conStr
		Set con = server.CreateObject("adodb.connection")
		conStr = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db.mdb")
		con.open conStr

		Dim rs 
		Set rs = server.CreateObject("adodb.recordset")
		Dim sql
		sql = "select * from config"
		rs.open sql,con,1,3
          
		If u = rs("account") and p = rs("pass") Then
		    session("a") <> "ok"
		    response.redirect "guanli.asp"

	  else

		 response.redirect "denglu.asp"
	  end if
%>