checklogin.asp

这是个完整的SQL SEVER与asp.net结合的医院管理系统的源代码

<!--#include file="include/config.asp"-->
<!--#include file="include/fuction.asp"-->
<!--#include file="include/database_conn.asp"-->
<%
	dim user,password,strSql,rsTmp,retValue
	user=request("name")
	password=request("pass")
	if user="" then
%>
<script language=Javascript>
	alert("用户名不能为空！");
	window.history.go(-1);	
	</script>
<%
	end if
	if password="" then
%>
<script language=Javascript>
	alert("密码不能为空!");
	window.history.go(-1);	
	</script>
<%
	end if
	set conn=server.createobject("ADODB.connection") 

conn.open="driver={sql server};server=FF-CK1W5O4NH1L9;uid=s;pwd=123;database=hospital3;"
	set rsTmp=Server.CreateObject("ADODB.RecordSet")
	strSql = "select * from [users] where user_name='" & convertsql(user) & "'"
	strSql = strSql & " and user_pw='" & convertsql(password) & "'"
	rsTmp.open strSql,conn,3,3
	if rsTmp.eof then
        retValue=1
%>
<script language=Javascript>
	alert("该用户不存在 或 密码不正确!");
	window.history.go(-1);	
	</script>
<%
else
		retValue=0
		'##设置session
		session("zjlogin")=""
		session("adminlogin")="ok"
		
		session("user_name")=rsTmp("user_name")
              
                rsTmp.update
	end if
	rsTmp.close
	set rsTmp=nothing
	conn.close
	set conn=nothing
		 '##跳转到另一页去 

	
	if retValue=0 then
		response.redirect "index.asp"
	end if
%>