chklogin.asp

来自「新闻发布系统」· ASP 代码 · 共 33 行

<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<%
	dim sql
	dim rs
	
	sql="select pwd from siteman"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    if err.number<>0 then 
		response.write "数据库操作失败："&err.description
    else
		if rs.bof and rs.eof then
			response.write "<center>对不起，数据库无法操作。</center>"
   			rs.close
	    else
			if request("password")<>rs("pwd") then
		        response.write "<center>对不起，请输入正确的密码。</center>"
			    rs.close		    
			else
				rs.Close
				session("adminOK")="true"
				set rs=nothing
				call endConnection()
				Response.Redirect "main.html"
			end if
		end if
	end if
	set rs=nothing
	
	call endConnection()	
%>