login.asp

来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 55 行

ASP
55 行
字号 
<!--#include file="inc/conn.asp"-->
<%	dim LoginName, Pwd	
	LoginName=replace(trim(request("LoginName")),"'","''")
	Pwd=trim(request("Pwd"))
	'set objMd5=server.createobject("netpay.jmd5")
	'	Pwd=objMd5.macProcess(Pwd)
	'set objMd5=nothing

	if LoginName="" and Pwd="" then
		'session name
		LoginName=session("LoginName")
		Pwd=session("Pwd")
	end if

	Set rs=server.createobject ("adodb.recordset")
	rs.open "select * from tblUserLogin where LoginName='"&LoginName&"' and Pwd='"&Pwd&"'",conn,1,1
	if rs.eof then
		rs.close
		rs.open "Select * From tblYeZhuBase Where LoginName='"&LoginName&"' and Pwd='"&Pwd&"'",conn,1,1
		if rs.eof then
			rs.close
			set rs=nothing
			ErrorMessage="用户名或密码错误，请重新输入。"
			response.redirect("index.asp?errormessage="&Server.URLencode(ErrorMessage))
		else
			Session("LoginName")=LoginName
			Session("Name")=trim(rs("Name"))
			Session("Pwd")=Pwd
			Session("LoginOK")=true
			rs.close
			set rs=nothing
			response.redirect("YeZhu/index.asp")
		end if
	else
		Session("LoginID")=trim(rs("ID"))
		Session("LoginName")=LoginName
		Session("UserName")=trim(rs("Name"))
		Session("Pwd")=Pwd
		Session("LoginOK")=true
		rs.close
		set rs=nothing
	end if
%>
<!-- #include file="inc/close.asp" -->
<HTML>
<HEAD>
<TITLE>成都市发展计划委员会投资项目系统</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/main.css" type="text/css">
</HEAD>
   <FRAMESET COLS="0,*" FRAMEBORDER="0" framespacing="0" bordercolor="#0047b0">
		<FRAME NAME="FrmLeft" SRC="" MARGINWIDTH="10" MARGINHEIGHT="8" SCROLLING="no" FRAMEBORDER="no">
		<FRAME NAME="FrmRight" SRC="Query.asp" MARGINWIDTH="10" SCROLLING="auto" FRAMEBORDER="no">
	</FRAMESET>
</HTML>

login.asp - 源码说明

本页面展示了「投资管理系统, asp+ mssql server」中的 login.asp 源码文件，采用 ASP 编程语言编写，共 55 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与投资管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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