loginsb.aspx

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

ASPX
84 行
字号 
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<script runat="server">
Function GetData() AS System.Data.DataSet
  Dim dsMembers as New System.Data.DataSet()
  Dim conn as String = System.Configuration. _
                           ConfigurationSettings. _
                           AppSettings("MM_CONNECTION_STRING_conn")
  Dim strSQL as String  = _ 
	       "SELECT *  FROM Member WHERE ID ='" &　_
		   txtID.Text　& "'  AND Pws = '" &　txtpwd.Text　& "'"
  Dim objDataAdapter as  New System.Data.Oledb.oledbDataAdapter(strSQL,conn) 
    ObjDataAdapter.Fill(dsMembers)	
    Return  dsMembers		
	  
End Function	

Dim dsMember as new System.Data.DataSet

Sub btnLogin_Click(sender As Object, e As System.EventArgs)
     dsMember=GetData()
	 IF dsMember.tables(0).Rows.Count = 0  THEN 
         loginFail.visible = true   
	 Session("LogInID") = ""
         Session("LogInPWD") = ""
     Else 
	 Session("LogInID") = txtID.Text 	
         Session("LogInPWD") = txtPWD.Text		 
         Response.Redirect("MainPage.aspx") 
     END IF   
End Sub
</script>
<!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>
</head>
<body>
<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"  OnClick = "btnLogin_Click"  />
      </div></td>
    </tr>
    <tr>
      <td height="23" colspan="2"><div align="right" class="style2"></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"><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>
<tr >
<td height="17" colspan="2"><div  align="center" class="style3" id ="loginFail" visible = "false" runat="server">登录失败，请重新输入! </div></td>
    </tr>
  </table>
</form>
</body>
</html>

loginsb.aspx - 源码说明

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

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

⌨️ 快捷键说明

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