check.asp

来自「日记本（多用户版）V3.0 主要功能： 1、日记本基本功能：添加、修改日记等。」· ASP 代码 · 共 58 行

ASP
58 行
字号 
<!--#include file="conn.asp"-->

<%
'=========================================================
' 随然日记本（多用户版） Version:3.0
' Date: 2004-11-15
' Script Written by 随然(dampure)
' 随然日记本演示地址：http://www.suiran.cn
'=========================================================
' Copyright (C) 2003,2004 真露无香. All rights reserved.
' Web: www.yongzi.com
' Diary:http://www.suiran.cn
'=========================================================

if trim(request.form("username"))="" or trim(request.form("passwd"))="" then
%>
<script language=vbscript>
  MsgBox "呵呵~~~！不填写完也想登陆？用户名,密码必须填写！"
  location.href = "javascript:history.back()"
</script>
<%
else

	username=LCase(trim(request.form("username")))
	passwd=trim(request.form("passwd"))

	set TmpRs=server.createobject("adodb.recordset")

		if Request.ServerVariables("REQUEST_METHOD") = "POST" then
			TmpRs.open "Select * from admin where user='"&username&"'",conn,1,3
				if tmprs.bof and tmprs.eof then %>
					<script language=vbscript>  
					MsgBox "哇塞! 别吓我哦! 自己的用户名都记不注啊!该用户不存在！"  
					location.href = "javascript:history.back()"  
					</script>  

					<%  elseif passwd<>tmprs("pwd") then %>
					<script language=vbscript>  
					MsgBox "哈哈! 密码错误了哦^o^ 呵呵~~~"  
					location.href = "javascript:history.back()"  
					</script> 
<%
				else
				    session("diary")=true
					session("username")=username
					session("userid")=tmprs("userid")
					'关闭数据连接
					tmprs.close
					Set TmpRs=nothing
					conn.close
					set conn=nothing
					response.redirect("cover.asp")
				end if
		end if
end if
%>

<html></html>

check.asp - 源码说明

本页面展示了「日记本（多用户版）V3.0 主要功能： 1、日记本基本功能：添加、修改日记等。 2、日记加密：当日记添加时」中的 check.asp 源码文件，采用 ASP 编程语言编写，共 58 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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