login.asp

来自「一个超级漂亮的班级主页asp代码」· ASP 代码 · 共 62 行

ASP
62 行
字号 
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->
<!--#include file="inc/md5.asp"-->

<%
'获取传值
dim lname,lpwd
lname=trim(Request.Form("logname"))
lpwd=trim(Request.Form("logpwd"))

sqlstr="SELECT name,pwd,lastlog,cnt_on,power FROM tblmates WHERE name='"&stryin(lname)&"'"
rs.open sqlstr,conn,1,3
	if rs.eof AND rs.bof then
		Response.Redirect "log_err.asp?cmd=name_notfound"
	end if
	'MD5加密
	lpwd=md5(lpwd,32)
	if lpwd<>rs("pwd") then
		Response.Redirect "log_err.asp?cmd=pwd_notmatch"
	else
		rs("lastlog")=now()
		rs("cnt_on")=rs("cnt_on")+1
		rs.update
		lname=rs("name")
	end if
	dim logpower
	logpower=int(rs("power"))
rs.close

'是否永久保存
IF CInt(Request.Form("forever"))=1 THEN
	Response.Cookies(DEF_weburl)("name")=lname
	Response.Cookies(DEF_weburl).Expires=DateAdd("d",1000,Date())
END IF

Session("sname")=lname



'统计申请待审的成员
dim sqds
sqlstr="SELECT COUNT(ID) FROM tblmates WHERE power=0"
sqds=INT(conn.Execute(sqlstr,0,1)(0))



if logpower<1 OR (logpower>1 AND sqds>0) then
	Response.Redirect "rego.asp?cmd=log_msg"
else
	Response.Redirect "rego.asp?cmd=log_ok"
end if


%>

<body>
<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>

</html>

login.asp - 源码说明

本页面展示了「一个超级漂亮的班级主页asp代码」中的 login.asp 源码文件，采用 ASP 编程语言编写，共 62 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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