checklogin.asp

来自「一套简单实用的公文传输系统。可用于学校、事业单位公文流转使用。」· ASP 代码 · 共 43 行

ASP
43 行
字号 
<%
path=trim(request.querystring("path"))
if path="" or instr(path,"	")>0 or instr(path,vbcrlf)>0 or instr(path,":")>0 or instr(path,"\")>0 then
	path="/"
elseif right(path,1)<>"/" then
	path=path&"/"
end if
if left(path,1)<>"/" then
	path="/"&path
end if
if session("loginstatus")<>"islogined" then
	comeurl=selfname&"?ntime="&ntime
	for each vars in request.querystring
		if lcase(vars)<>"ntime" and len(request.querystring(vars))>=1 then
			comeurl=comeurl&"&"&vars&"="&server.urlencode(request.querystring(vars))
		end if
	next
	response.redirect "index.asp?url="&server.urlencode(comeurl)
	response.end
elseif session("grade")<>3 and session("pathaccess")<>left(path,len(session("pathaccess"))) then
%>
<html>
<head>
<title><%=sysname%>--出错信息</title>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<script language="javascript">
<!--
function alert_msg()
{
alert("抱歉，你只有管理目录 “<%=session("pathaccess")%>” 及其子目录的权限！");
window.location.href='fsoexplorer.asp?path=<%=server.urlencode(session("pathaccess"))%>&ntime=<%=ntime%>';
}
//-->
</script>
</head>
<body onload="alert_msg()">
</body>
</html>
<%
	response.end
end if
%>

checklogin.asp - 源码说明

本页面展示了「一套简单实用的公文传输系统。可用于学校、事业单位公文流转使用。」中的 checklogin.asp 源码文件，采用 ASP 编程语言编写，共 43 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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