chkuser.asp

家政公司管理系统源代码,供参考cccsdsfd

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%	
	dim username
	dim password
	dim sql	
	
	username=replace(trim(request("usern")),"'","")
	password=replace(trim(Request("userp")),"'","") 
	
	Set ws = Server.CreateObject("ADODB.Recordset")
	sql="select * from puser where hid='"&username&"' and hpwd='"&password&"'"
	ws.open sql,conn,1,1
	if not ws.eof then		
		session("username")=ws("hid")
		Response.Redirect "console.asp"		
	else
     Response.Redirect "main.html"		
	end if
	
	ws.close()
	set ws=nothing
	conn.close()	
	set conn=nothing	
    	
%>