?? default.aspx.vb
字號:
Imports OrderDll
Imports System.Data
Imports System.Web
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Page_Init()
End Sub
Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate
Dim strUID As String
Dim strPwd As String
Dim strPri As String = ""
Dim boolLogin As Boolean
strUID = Login1.UserName.Replace("'", "''")
strPwd = Login1.Password.Replace("'", "''")
boolLogin = ClassCommon.CheckLogin(strUID, strPwd, strPri)
If boolLogin = True Then
System.Web.HttpContext.Current.Session("USERID") = Login1.UserName
System.Web.HttpContext.Current.Session("PRIVILEGE") = strPri
Me.Response.Redirect("Index.htm")
Else
End If
End Sub
Protected Sub Page_Init()
Login1.Height = 180
Login1.Width = 600
Login1.UserNameLabelText = "User ID"
Login1.PasswordLabelText = "Password"
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -