⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 login.asp

📁 客户管理crm xitong ,希望能给你带来帮助
💻 ASP
字号:
<!--#include file="../function/connect.asp"-->
<!--#include file="../function/function.asp"-->
<%
	if request("Submit")<>"" then
		user_name=getString(request("user_name"))
		user_password=request("user_password")
		strsql="select user_name,user_password from users where user_name='" & user_name & "' "
		Set objRs = Server.CreateObject("adodb.recordset")
	    	objRs.Open strsql,objConn,1,1
	    	if not objRs.eof then
	    		if objRs.fields("user_password") & "" = user_password then
	    			session("loginuser")=user_name
	    			response.redirect "../main.asp"
	    		else
	    			response.write "<script>alert('密码错误.');history.back();</script>"
	    			response.end
	    		end if
	    	else
	    		response.write "<script>alert('此用户不存在.');history.back();</script>"
	    		response.end
	    	end if
	end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -