login.asp

来自「该资料包含大量网络开发的案例和源代码」· ASP 代码 · 共 51 行

ASP
51 行
字号 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>登录</title>
<meta name="Microsoft Border" content="b, default">
</head>

<body><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">
<%
	dim adoConn,adoRS,sConnection,sSQL
    dim user,Uname,psw
    
    user=request("User")
    psw=trim(cstr(request("Psw")))  
  	
    set adoConn=server.createobject("ADODB.Connection")
    set adoRS=server.createobject("ADODB.Recordset")
    sConnection="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.mappath("student.mdb")   
    adoConn.open sConnection
	
	if user="" or psw="" then
		response.write "用户或密码为空，请重新登录！"
		session("user")=""
	else
		sSQL="select sno,sn,psw from s where sno="& user &" and psw='"& psw&"'" 	
    	set adoRS=adoConn.execute(sSQL)
		if adoRS.bof and adoRs.eof then		
			response.write "无此用户或密码错误，请重新登录！"
			session("user")=""
		else
			session("user")=user
			session("uname")=adoRS(1)
			session("psw")=psw
			response.redirect("index.asp")
		end if
		adoRS.close
		set adoRS=nothing
	end if	
	
    adoConn.close    
    set adoConn=nothing
%>	
<p align="center"><a href="index.asp">返回主页</a></p>
<!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>

<p align="center"><font color="#333333" size="2">版权所有|关于我们</font>

</td></tr><!--msnavigation--></table></body>

</html>

login.asp - 源码说明

本页面展示了「该资料包含大量网络开发的案例和源代码」中的 login.asp 源码文件，采用 ASP 编程语言编写，共 51 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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