login.asp
来自「《实例精粹ASP》中部分源代码」· ASP 代码 · 共 51 行
ASP
51 行
<!-- #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 + =
减小字号Ctrl + -
显示快捷键?