p;     <div id="div4" runat="server"></div>
            </blockquote>
        </asp:panel>        

    </form>
</body>
</html>

<script language="vb" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
    If Not Page.IsPostBack Then
        Step1.Visible = True
        Step2.Visible = False
        Step3.Visible = False
    End If
End Sub

Sub Button1_Click(sender As Object, e As EventArgs)
    Dim ConnStr,SqlQuery As String
    Dim i As Integer = 0
    ConnStr = "Driver={SQL Server}; Server=localhost; Uid=sa; pwd=; database=mytest"
    SqlQuery = "Select vcName, vcTel, vcAddr From tb_User Where vcUserID = '" & UserID.Text & "' And vcPassWord = '" & PassWord.Text & "'"
    Dim Cmd As ADODataSetCommand = New ADODataSetCommand(SqlQuery, ConnStr)
    Dim Rs As DataSet = New DataSet()
    Cmd.FillDataSet(Rs, "tb_User")
    Dim Dt As DataTable = Rs.Tables("tb_User")
    i = Dt.Rows.Count
    If i = 1 Then
        Name.Text = Dt.Rows(0).Item(0)        
        Tel.Text = Dt.Rows(0).Item(1)
        Addr.Text = Dt.Rows(0).Item(2)
        Step1.Visible = False
        Step2.Visible = True
        Step3.Visible = False
    Else
        Step1.Visible = True
        Step2.Visible = False
        Step3.Visible = False
        div1.innerHtml = "登录失败!请检查你的帐号和密码是否正确!"
    End If
End Sub

Sub Button2_Click(sender As Object, e As EventArgs)
    Step1.Visible = False
    Step2.Visible = False
    Step3.Visible = True
    
    div3.innerHtml = "帐号：" & UserId.Text & "<br>"
    div3.innerHtml &= &quo

上一页  [1] [2] [3] [4] 下一页

在google里搜索更多我的第一个ASP+程序，如果是新手请进来看吧。谢绝高手。：)

	Web www.51ec.org

上一篇信息学院： Security Hole In ASP.NET Beta 1 (from angryCoder)…

下一篇信息学院： 菜鸟入门篇---有关ASP.NET的一些基本说明,解释. 页面标识…