⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 login.asp

📁 《实例精粹ASP》中部分源代码
💻 ASP
字号:
<!-- #include file = "include/conndb.asp" -->
<!-- #include file = "include/adminbase.asp" -->
<%
	dim strUserId, strPwd
	strUserId  =  RealString(Request.Form("userID"))
	strPwd  =  RealString(Request.Form("password"))
	if strUserId <> "" And strPwd <> "" then
		'用户名和密码都不为空,则进行登录验证
		call CheckAdminLogin(strUserId, strPwd)
	end if	
%>
  
<HTML><HEAD>


<!-- #include file = "include/head.asp"-->

</HEAD>
<BODY>
	<script language = "javascript">
	<!-- 
		if (self !=  top)
		{
			top.location = self.location;
			alert("您没有登录或登录超时,请重新登录!");
		} 
	-->
	</script> 

	<!-- 页头与菜单--->
	<TABLE align = center  cellSpacing = 0 cellPadding = 0 width = "750" border = 0 ID = "tabMain" class = tabframe>
	<TBODY><TR>
		<TD >
			<% ShowHead() %>
		</TD>
	</TR></TBODY></TABLE>

	<!-- 页面中间部分-->
	<TABLE align = center cellSpacing = 0 cellPadding = 0 width = "750" border = 0 height = "211" ID = "Table3"  class = tabframe>
	<TBODY><TR>
		<TD vAlign = middle align = center >
			<% call ShowAdminLogin() %>
		</TD>
	</TR></TBODY></TABLE><!--页面中间部分结束-->
		
	<!--页尾-->
	<!-- #include file = "include/foot.asp"-->
</BODY>
</HTML>

⌨️ 快捷键说明

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