4-15.aspx

来自「asp做的新闻系统」· ASPX 代码 · 共 53 行

ASPX
53 行
字号 
<Html>
  <ASP:Panel Id="Pan1" Runat="Server">
<Form Runat="Server">
  <Table>
    <Tr>
      <Td>账号：</Td>
      <Td><Asp:TextBox Id="txtID" Runat="Server" /></Td>
    </Tr>
    <Tr>
      <Td>密码：</Td>
      <Td><Asp:TextBox TextMode="Password" Id="txtPassword" Runat="Server" /></Td>
    </Tr>
  </Table>

<ASP:Button Id="btnSubmit" Text="确定" OnClick="btnSubmit_Click" Runat="Server"/>
<ASP:Button Id="btnReset" Text="清除" OnClick="btnReset_Click" Runat="Server"/>
<ASP:Label Id="Label1" Text="请输入账号及密码" Runat="Server"/>
</Form>
</ASP:Panel>

<ASP:Panel Id="Pan2" Runat="Server">
  Hi! <ASP:Label Id="lblMsg" Runat="Server"/> ,欢迎光临
</ASP:Panel>

<Script Language="VB" Runat="Server">
  Sub Page_Load(Sender As Object,e As EventArgs)
    If Request.Cookies.Item("MyWeb_UserID")=dbNull Or 
    Request.Cookies.Item("MyWeb_UserID").Value="" Then
    Pan2.Visible=False
    Else
    Response.Cookies.Item("MyWeb_UserID").Expires=Now.AddMonths(1)
    lblMsg.Text=Request.Cookies.Item("MyWeb_UserID").Value
    Pan1.Visible=False
    End If
  End Sub

  Sub btnSubmit_Click(Sender As Object, e As EventArgs)
    If txtID.Text="Asp" and txtPassword.Text="dotnet" Then
      Response.Cookies("MyWeb_UserID").Value=txtID.Text
      Response.Cookies.Item("MyWeb_UserID").Expires=Now.AddMonths(1)
      Pan1.Visible="False"
      Pan2.Visible="True"
      lblMsg.Text=txtID.Text
    End If
  End Sub

  Sub btnReset_Click(Sender As Object, e As EventArgs)
    txtID.Text=""
    txtPassword.Text=""
  End Sub
</Script>
</Html>

4-15.aspx - 源码说明

本页面展示了「asp做的新闻系统」中的 4-15.aspx 源码文件，采用 ASPX 编程语言编写，共 53 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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