怎样把这个aspx分开成aspx跟aspx.vb

<%@ Page Language="VB" ContentType="text/html"%>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Register TagPrefix="mynews" TagName="top" src="ascx/top.ascx"%>
<%@ Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>

<script language="VB" runat="server">
    Dim sql As String
    Dim myConn As OleDbConnection
    Dim myCmd As OleDbCommand
    '获取数据子程序
    Function getdatareader(ByVal sql As String) As OleDbDataReader
        myCmd = New OleDbCommand(sql, myConn)
        myConn.Open()
        getdatareader = myCmd.ExecuteReader()
    End Function
    '初始化退出登录
    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        Dim strConn As String
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
        myConn = New OleDbConnection(strConn)
        If Page.Request("action") = "logout" Then
            Session("user") = ""
            Response.Redirect("index.aspx")
        End If
    End Sub
    '登录验证子程序
    Sub addclick(ByVal sender As Object, ByVal e As EventArgs)
        If username.Text = "" Then
            message.Text = "请输入用户名！"
        Else
            If passward.Text = "" Then
                message.Text = "请输入口令！"
            Else
                sql = "select username,passward from Admin where username='" & Trim(username.Text) & "'"
                Dim userid, pass As String
                Dim user As OleDbDataReader = getdatareader(sql)
                While user.Read()
                    userid = user.Item(0)
                    pass = user.Item(1)
                End While
                myConn.Close()
                If userid = "" Then
                    message.Text = "用户名不存在，请重新输入！"
                    username.Text = ""
                    passward.Text = ""
                Else
                    If pass = passward.Text Then
                        Session("user") = "administrator"
                        message.Text = ""
                        Response.Redirect("newsmanager.aspx")
                    Else
                        message.Text = "口令错误！"
                        passward.Text = ""