login.aspx

来自「用VB实现」· ASPX 代码 · 共 104 行

ASPX
104 行
字号 
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<MM:DataSet 
id="dsMember"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_conn") %>'
CommandText='<%# "SELECT *  FROM Member  WHERE ID = ? AND Pws= ?  AND Rights = False" %>'
Debug="true"
><Parameters>
  <Parameter  Name="@ID"  Value='<%# txtID.Text %>'  Type="WChar"   />  
  <Parameter  Name="@PWD"  Value='<%# txtPWD.Text %>'  Type="WChar"   />  
</Parameters></MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />

<%
  Session("LogInID") = ""
  Session("LogInPWD") = ""
  Session("GroupID") = ""
  IF dsMember.RecordCount > 0 THEN 
    Session("LogInID") = txtID.Text 	
    Session("LogInPWD") = txtPWD.Text	
	Session("GroupID") = txtGroupID.Text 
    Response.Redirect("Mainpage.aspx" ) 
  END IF   
%>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>登录页面</title>
<style type="text/css">
<!--
.style1 {
	font-size: 24px;
	font-weight: bold;
}
.style2 {font-size: 18px}
.style3 {color: #FFFFFF}
.style4 {color: #000000}
-->
</style>
</head>
<body>

<div align="center">
<form action="" method="post" name="form1" runat="server">
  <table width="299"  border="0">
    <tr>
      <td height="7" colspan="2"><div align="center" class="style1">会员登录</div></td>
    </tr>
    <tr>
      <td height="8" colspan="2"><hr></td>
    </tr>
    <tr>
      <td height="8" colspan="2">&nbsp;</td>
    </tr>
    <tr>
      <td height="27"><div align="right" class="style2">
        用户名</div></td>
      <td width="215">
          <div align="left">
          <asp:TextBox ID="txtID" runat="server" />            </div></td>
    </tr>
    <tr>
      <td height="20"><div align="right"><span class="style2">密码</span></div></td>
      <td>
          <div align="left">
            <asp:TextBox ID="txtPWD" runat="server" TextMode="Password" />            
            <asp:Button ID="btnLogin" Text="登录" runat="server" />            
          </div></td>
    </tr>
    <tr>
      <td height="23" colspan="2"><div align="right" class="style2"></div>        
        <div align="center">
          <asp:TextBox ID="txtGroupID" runat="server" Text='<%# dsMember.FieldValue("GroupID", Container) %>' Visible="false" />          </div></td>
      </tr>
    <tr>
      <td height="17" colspan="2"><hr></td>
      </tr>
    <tr>
      <td height="17" colspan="2"><div align="center"></div>        
        <div align="center"><span class="style3"><span class="style4"><a href="MailPwd.aspx">忘记密码? 请点击这里</a> | <a href="NewMember.aspx">新会员注册</a></span></span></div></td>
      </tr>
    <tr bgcolor="#FFFFFF">
      <td height="17" colspan="2">        <div align="center" class="style3"></div></td>
      </tr>
    <MM:If runat="server" Expression='<%# (dsMember.RecordCount = 0  AND IsPostBack ) %>'>
      <ContentsTemplate>
        <tr bgcolor="#FF0000">
                      <td height="17" colspan="2"><div align="center" class="style3">登录失败，请重新输入! </div></td>
        </tr>
      </ContentsTemplate>
    </MM:If>

  </table>
  </form>
</div>
</body>
</html>

login.aspx - 源码说明

本页面展示了「用VB实现」中的 login.aspx 源码文件，采用 ASPX 编程语言编写，共 104 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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