諸位大大好，小弟我參考了一些書籍後，使用VB.NET寫了一段手機登入驗證的程式。
使用的DB：ACCESS，撰寫工具：Microsoft Visual Studio .NET 2003，SERVER：IIS，資料表名稱：CourseSrc.mdb。 網頁的原始碼(HTML)如下：
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="ScoreQryCell.aspx.vb" Inherits="CourseSrc.ScoreQryCell" %>
<%@ Register TagPrefix="mobile" Namespace="System.Web.UI.MobileControls" Assembly="System.Web.Mobile" %>
<HEAD>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/Mobile/Page">
</HEAD>
<body Xmlns:mobile="http://schemas.microsoft.com/Mobile/WebForm">
請輸入帳號、密碼
帳號：
密碼：
確定
</body> 網頁的原始碼(VB.NET)如下：
Imports Accessibility
Public Class ScoreQryCell
Inherits System.Web.UI.MobileControls.MobilePage
Protected WithEvents frmLogin As System.Web.UI.MobileControls.Form
Protected WithEvents Title As System.Web.UI.MobileControls.Label
Protected WithEvents Label1 As System.Web.UI.MobileControls.Label
Protected WithEvents TextBox1 As System.Web.UI.MobileControls.TextBox
Protected WithEvents Label2 As System.Web.UI.MobileControls.Label
Protected WithEvents TextBox2 As System.Web.UI.MobileControls.TextBox
Protected WithEvents Command1 As System.Web.UI.MobileControls.Command
Private _myConnStr As String = New String("Driver={Sybase System 11};" "SRVR=myServer;DB=myDB;UID=myUid;PWD=myPWD;")
Private _myConn As OleDbConnection = New OleDbConnection(_myConnStr)
Private _OleDbAdapter As OleDbDataAdapter = New OleDbDataAdapter #Region " Web Form 設計工具產生的程式碼 " '此為 Web Form 設計工具所需的呼叫。
Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此為 Web Form 設計工具所需的方法呼叫
'請勿使用程式碼編輯器進行修改。
InitializeComponent()
End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ActiveForm = Me.frmLogin '在這裡放置使用者程式碼以初始化網頁
End Sub
Private Function ValidateUidPwd() As Boolean
Dim access As String
_OleDbAdapter.SelectCommand = New OleDbCommand(access, _myConn) sql = "SELECT STDNO,PASSWORD FROM ACCOUNT"
sql &= "WHERE STDNO = ?"
sql &= "AND PASSWORD = ?" _OleDbAdapter.SelectCommand.CommandText = sql
_OleDbAdapter.SelectCommand.Parameters.Add("@Uid", Trim(TextBox1.Text))
_OleDbAdapter.SelectCommand.parameters.Add("@Pwd", Trim(TextBox2.Text)) Dim dt As New DataTable
Dim count As Integer = _OleDbAdapter.Fill(dt) If count > 0 And Len(Trim(TextBox1.Text)) = 9 And Len(Trim(TextBox2.Text)) <= 8 Then
Session("UID") = Trim(TextBox1.Text)
Session("PWD") = Trim(TextBox2.Text)
Session("IsValidated") = True
Return True Else
Session("UID") = ""
Session("PWD") = ""
Session("IsValidated") = False
Return False End If End Function Private Sub frmLogin_Activate(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles frmLogin.Activate End Sub
End Class 小弟是第一次使用VB.NET，連接DB與驗證的部分都不太清楚＞＿＜
程式碼都是參考書籍拼拼湊湊寫出來的＞”＜
能否麻請諸位大大們，給我一些指導、指教＞＜”
謝謝！！
發表時間：2005-12-10 18:07:59
IP:211.76.xxx.xxx 未訂閱
