我正在维护一个具有这样的代码的旧站点:
<%
Unit = Request.QueryString.Item("Unit")
MemberNo = Request.QueryString.Item("MemberNo")
CustNo = Request.QueryString.Item("CustNo")
If Request.Form.Item("Action") = "Save" Then
. . .
%>
页面加载时我需要运行一些代码。是否有可用的东西:
If Request.Form.Item("Action") = "Load" Then
- 或:
If Request.Form.Item("Action") = "Init" Then
...或我该怎么做?
更新
我应该在哪里放置您显示的代码?该文件具有这样的部分:
<script language="VB" runat="Server">
Dim adoRS As ADODB.Recordset
. . .
</script>
...和另一个这样的:
<%
adoCon = New ADODB.Connection
adoCon.CommandTimeout = 900
adoCon.ConnectionTimeout = 900
adoCon.Open((Session("DBAddress")))
%>
一个地方比另一个地方更可取,甚至是唯一使用的地方?还是不可接受?
实际上,如果我将代码放在第一个块中,我也必须从第二个块中移动代码,因为我需要pageload代码的adodbConnection。
更新2
ciprian的答案说:
如果不存在aspx.vb页面,请检查.aspx文件中的第一行。它应该看起来像这样:
<%@ Page Title="Home Page" Language="VB" MasterPageFile="~/Site.Master" AutoEventWireup="true" CodeBehind="Default...
我的.aspx文件在顶部:
<%@ Import namespace="ADODB" %>
<script language="VB" runat="Server">
. . .
iow,我没有Ciprian期望的那样的第一行。该项目还没有" site.master"页面。
我假设您的意思是在ASPX页面上,而不是背后的代码。ASP.NET将尝试通过ASPX页面上的名称找到事件处理程序,因此这应该有效:
<script runat="server">
Protected Sub Page_Load(Byval sender as Object, Byval e As EventArgs)
'Code Here
End Sub
</script>
在Web表单中,您的.aspx页面与视图相对应。每个页面都有一个带有类的代码范围文件(例如,aspx有一个agat.aspx.vb类)。页面加载的代码应在您的page_load方法中:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
End Sub
您可以在此处查看Web表单生命周期:https://msdn.microsoft.com/en-us/library/ms178472.aspx
如果不存在aspx.vb页面,请选中.aspx文件中的第一行。它应该看起来像这样:
<%@ Page Title="Home Page" Language="VB" MasterPageFile="~/Site.Master" AutoEventWireup="true" CodeBehind="Default.aspx.vb" Inherits="WebApplication4._Default" %>
注意" CodeBehind"one_answers"继承"属性。他们应该分别指向文件后面的代码和类的名称。.aspx.vb文件应该看起来像这样:
Public Class _Default
Inherits Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
End Sub
End Class
此外,您需要一个.aspx.designer.vb文件,类似于以下内容:
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class _Default
End Class
事实证明,我要做的就是将其放在代码的顶部,就像这样:
<%
Unit = Request.QueryString.Item("Unit")
MemberNo = Request.QueryString.Item("MemberNo")
CustNo = Request.QueryString.Item("CustNo")
'determine whether this unit is a new business
currentYear = Year(Now)
SQLString = "Select NewBiz from MasterUnitsprojSales where CYear = " & currentYear & " and Unit = '" & Unit & "'"
adoRS = New ADODB.Recordset
adoRS.Open(SQLString, adoCon)
IsNewBusiness = TRUE 'default (if record not found)
If Not adoRS.EOF Then
IsNewBusiness = adoRS.Fields.Item(0).Value <> 0
Response.Write("<!-- IsNewBusiness after NOT EOF assignment = " & CStr(IsNewBusiness) & "-->")
End If
adoRS.Close()
If Request.Form.Item("Action") = "Save" Then
. . .