checklogin.asp

企业进销存管理系统

<!--#include virtual="adovbs.inc"-->
<!-- #include file="Conn/Conn.asp" -->  <!--包含数据库连接文件-->
<%
Session.Timeout=30
session("ulogin")="no"
cname=trim(request("username"))
pass=request.Form("PWD")
pass=replace(pass,"'","")
set conn=server.createobject("adodb.connection")
set comm=server.CreateObject("adodb.command")
conn.open application("dsn")
set comm.activeconnection=conn
comm.commandtype=adcmdstoredproc
comm.commandtext="checklogin"
set mpf=comm.createparameter("cname",advarchar,adparaminput,20)
comm.parameters.append mpf
set mps=comm.createparameter("pass",advarchar,adparaminput,20)
comm.parameters.append mps
comm("cname")=cname
comm("pass")=pass
set rs=comm.execute 
if rs.eof then
	response.Write("<script language='JavaScript'>alert('请输入正确的用户名和密码');window.location.href='login.asp';</script>")
else
	session("id")=rs("id")
	session("name")=rs("name")
	session("quan")=rs("quan")
	session("ulogin")="yes"
	response.redirect "default.asp"
end if 
%>