📄 admin_loing.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<MM:DataSet
id="DataSet1"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_MyMessageData") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_MyMessageData") %>'
CommandText='<%# "SELECT * FROM admin WHERE AdminName = ? and AdminPws = ?" %>'
Debug="true"
><Parameters>
<Parameter Name="@AdminName" Value='<%# IIf((Request.Form("AdminName") <> Nothing), Request.Form("AdminName"), "") %>' Type="WChar" />
<Parameter Name="@AdminPws" Value='<%# IIf((Request.Form("AdminPws") <> Nothing), Request.Form("AdminPws"), "0") %>' Type="WChar" />
</Parameters></MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />
<script runat="server">
function StrAdmin(ParName as string) as string'自定义一个名为“StrAdmin”的函数
if ParName<>nothing then'当动态变量不为空时
session("MM_Username")=ParName'把管理员用户名赋值给session变量
response.Redirect("index.aspx")'登陆成功后转到留言本首页
end if
end function
Sub Page_Load(Src As Object, E As EventArgs)
Label1.Visible="False"'初始化Labe1控件不显示
End Sub
Sub sub_ling(Src As Object, E As EventArgs)
Label1.Visible="True"'单击按扭触发该事件，显出错信息，但是当管理员登陆成功后
'已由response.Redirect("index.aspx")转向首页
End Sub
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理员登陆</title>
<style type="text/css">
<!--
.style2 {font-size: 14}
.style3 {color: #666666}
.style4 {font-size: 14; color: #666666; }
-->
</style>
</head>
<body>
<form id="form1" method="post" runat="server" >
<table width="730" border="0">
<tr>
<td width="150"> </td>
<td width="369"><img src="gif/logo.gif" width="237" height="35"></td>
<td width="197"> </td>
</tr>
<tr>
<td><div align="center" class="style2 style3">管理员登陆界面:</div></td>
<td><span class="style4"><%#StrAdmin(DataSet1.FieldValue("AdminName", Container)) %></span></td>
<td> </td>
</tr>
<tr>
<td><div align="center" class="style4">用户名：</div></td>
<td><input name="AdminName" type="text" id="AdminName" runat="server" ></td>
<td> </td>
</tr>
<tr>
<td><div align="center" class="style4">密 码:</div></td>
<td><input name="AdminPws" type="password" id="AdminPws" runat="server" ></td>
<td> </td>
</tr>
<tr>
<td><span class="style3"></span></td>
<td><span class="style4">
<asp:button ID="Button1" runat="server" Text="登陆" OnClick="sub_ling" />
<a href="index.aspx">返回首页</a>
<asp:Label ID="Label1" runat="server" Text="对不起！用户名或密码错误!"></asp:Label>
</span></td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -