login.asp

来自「书店的管理系统。不错的一个源程序。提供给大家。」· ASP 代码 · 共 46 行

ASP
46 行
字号 
<%@ Language=VBScript %>
<%
log_name=Request.form("log_name")
passwrd=Request.form("passwrd")


set con=server.createobject("ADODB.Connection")
con.open Application("str_con")

set res=server.createobject("ADODB.Recordset")
set res.ActiveConnection = con

res.source="select log_name from User_login where log_name='"&log_name&"' and passwrd='"&passwrd&"'"
res.cursorlocation=3
res.open ,,adOpenDaynamic

if res.recordcount<1 then
	logined=false
	res.close
	con.Close
else
	logined=true
	res.close
	con.Close
	Session("log_name")=log_name
	if Session("after_log_to")<>"" then
		Response.Redirect Session("after_log_to")
	end if
end if
%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY style="FONT-SIZE: 9pt">

<%if logined then%>
	<P>登录成功！</P>
<%else%>
	<P>登录失败！请检查用户名和密码是否正确</P>
<%end if%>

</BODY>
</HTML>

login.asp - 源码说明

本页面展示了「书店的管理系统。不错的一个源程序。提供给大家。」中的 login.asp 源码文件，采用 ASP 编程语言编写，共 46 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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