电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> vb.net>>ASPX内写后台代码一例:

ASPX内写后台代码一例

来源:网络 | 2013-4-26 | (有1060人读过)

ASPX内写后台代码一例
<head> 
    <title>内容一覧</title> 
    <script runat="server"> 
        Private Url As String 
        Private Url1 As String 
        Private Url2 As String 
        Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
         
            Dim WebService As Web.WebServiceSql 
         
            Session("UrlReferrer") = Page.Request.Url.PathAndQuery 
             
            Dim PassWord As String 
            Dim UserName As String 
            Dim LoginFlg As Boolean = False 
            If Not IsPostBack Then 
                WebService = New Web.WebServiceSql 
                LoginFlg = WebService.CheckLogin(UserName, PassWord) 
                If LoginFlg = False And IdFlg = 2 Then 
                    WebService.Dispose() 
                    Server.Transfer("touroku.aspx") 
                End If 
                WebService.Dispose() 
            End If      
        End Sub 
    </Script> 
</head> 
vb.net热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2021 电脑爱好者 版权所有 备案号:鲁ICP备09059398号