head.ascx.vb

程序设计:Flyangel 用到了vb.net c# asp.net xml等 最大特别是核心功能组件化. 特色: 强大的后台管理功能 支持二级分类 支持匿名投稿 超强用户权限设置

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports flyangel.article.twotipclass

Public MustInherit Class head
    Inherits System.Web.UI.UserControl
    Protected WithEvents search_key As System.Web.UI.WebControls.TextBox
    Protected WithEvents search_type As System.Web.UI.WebControls.DropDownList
    Protected WithEvents search_botton As System.Web.UI.WebControls.Button
    Protected WithEvents nclass As System.Web.UI.WebControls.DropDownList

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码

        If Not IsPostBack Then
            'Dim addarticle_menu As New flash.classcode.database.database_do
            'addarticle_menu.F_Addarticle_Sort(nclass, "class_type")
            Dim dbfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dbfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")
            dbfly.SetLogXmlDocument = ConfigurationSettings.AppSettings("logxml")
            dbfly.Addarticle_Sort(nclass, "class_type")
        End If

    End Sub

    Private Sub search_botton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search_botton.Click
        Dim stringfunction As iStringClass = HowToUsingFlyangel.iStringClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))

        Dim searchkey As String
        searchkey = stringfunction.changechr(search_key.Text)

        Dim searchtype, searchtypeway As String
        searchtype = search_type.SelectedItem.Value
        searchtypeway = search_type.SelectedItem.Text
        Dim searchnclass, searchnclassa, searchnclassb, searchnclassc As String
        searchnclass = nclass.SelectedItem.Value
        searchnclassb = nclass.SelectedItem.Text
        If searchnclass = "" Then
            searchnclassa = ""
        Else
            searchnclassa = "&" & searchnclass & "&select_name=" & searchnclassb
        End If
        Dim _search As String
        _search = "fenye.aspx?key=" & searchkey & "&searchtype=" & searchtype & "&searchtypeway=" & searchtypeway & searchnclassa
        Response.Redirect(_search)

    End Sub

End Class