|
来源:网络 | 2013-4-26 | (有1394人读过)
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>
|
