search.aspx.vb

来自「本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成」· VB 代码 · 共 676 行 · 第 1/3 页

' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  [e-mail]        *
' *        EMail  [e-mail]              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _SEARCH
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public k
Public rssql,getstring
Public wzcount,wzrep,wzpage,wzpagecount,wzpagerep,boardstr
Public i,bgcolor
Public z
Public searchcontent
Public searchkind
Public tyname1
Public tyvalue1
Public tyname2
Public tyvalue2
Public root
Public pagestr
Public defaulthome
Public homepage
Public strqssql
Public strqs
Public qssqlstr1
Public qssql
Public qsrs
Public qsnum
Public qsbbsx1
Public qsbbs1
Public qsarray1
Public qssqlstrx
Public strsql
Public rs As ADODB.Recordset
Public indbdate
Public year1
Public month1
Public day1
Public hour1
Public minute1
Public reinfo
Public rearr
Public arrnum
Public replydate
Public replyuser
Public pagefilename
Public htm_ext
Public pagenum
Public page
Public pagehtm
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public userinfo
Public userinfox
Public sql
Public num
Public smsnum
    Public ASPX_CONN As _CONN
    Public ASPX_FTBBS_NAV As _FTBBS_NAV
    Public ASPX_INC_PUBLICFUN As _INC_PUBLICFUN
    Public ASPX_PAGEFUN As _PAGEFUN
    Public ASPX_INC_BBSTAIL_HTM As _INC_BBSTAIL_HTM
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
        ASPX_CONN = New _CONN()
        ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_CONN.AspToAspX_InitIncludeFiles()
        ASPX_FTBBS_NAV = New _FTBBS_NAV()
        ASPX_FTBBS_NAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_FTBBS_NAV.AspToAspX_InitIncludeFiles()
        ASPX_INC_PUBLICFUN = New _INC_PUBLICFUN()
        ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_PUBLICFUN.AspToAspX_InitIncludeFiles()
        ASPX_PAGEFUN = New _PAGEFUN()
        ASPX_PAGEFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_PAGEFUN.AspToAspX_InitIncludeFiles()
        ASPX_INC_BBSTAIL_HTM = New _INC_BBSTAIL_HTM()
        ASPX_INC_BBSTAIL_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_BBSTAIL_HTM.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_FTBBS_NAV.AspToAspX_UnloadIncludeFiles()
        ASPX_FTBBS_NAV = Nothing
        ASPX_INC_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_PUBLICFUN = Nothing
        ASPX_PAGEFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_PAGEFUN = Nothing
        ASPX_INC_BBSTAIL_HTM.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_BBSTAIL_HTM = Nothing
    End Sub

#End Region
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        AspToAspXGlobal.Application = Application
        AspToAspXGlobal.Server = Server
        AspToAspXGlobal.Response = Response
        AspToAspXGlobal.Request = Request
        AspToAspXGlobal.Session = Session
        AspToAspX_Host_Class_Object = Me
        AspToAspX_InitIncludeFiles()
        AspToAspX_Page_Init()
        End Sub
    Public Sub AspToAspX_Page_Init()
    On Error GoTo _AspToAspX_Err
    ASPX_CONN.AspToAspX_Page_Init ( )
    ASPX_FTBBS_NAV.AspToAspX_Page_Init ( )
    ASPX_INC_PUBLICFUN.AspToAspX_Page_Init ( )
    ASPX_PAGEFUN.AspToAspX_Page_Init ( )
    searchcontent = Checkstr ( trim ( Request ( "searchcontent" ) ) ) '6
    searchkind = Request ( "searchkind" ) '7
    tyname1 = "searchkind" '8
    tyvalue1 = searchkind '9
    tyname2 = "searchcontent" '10
    tyvalue2 = searchcontent '11
    root = "" '12
    If AspToAspX_CheckDBNull ( searchcontent ) < > EmptyString.Value Then '13
        pagestr = "&" & tyname1 & "=" & searchkind & "&" & tyname2 & "=" & searchcontent '14
    Else '15
        pagestr = "" '16
    End If '17
    FTBBS_HTML_MB ( ft ) '19
    defaulthome = Application ( "FTBBSMB" ) ( 31 , 0 ) '20
    homepage = ft_home ( defaulthome ) '21
    If AspToAspX_CheckDBNull ( getcookie ( "name" ) ) = EmptyString.Value Then '24
        strqssql = "where BBS_Cate_Qs=1 or BBS_Cate_Qs=2 or BBS_Cate_Qs=3" '25
    Else '26
        If AspToAspX_CheckDBNull ( getcookie ( "payuser" ) ) = 1 Then '27
            strqssql = "where BBS_Cate_Qs=3" '28
        ElseIf AspToAspX_CheckDBNull ( getcookie ( "bz" ) ) = 1 Or AspToAspX_CheckDBNull ( getcookie ( "bbsadmin" ) ) = 1 Then '29
            strqssql = "" '30
        Else '31
            strqssql = "where BBS_Cate_Qs=2 or BBS_Cate_Qs=3" '32
        End If '33
    End If '34
    strqs = "" '35
    qssqlstr1 = "" '36
    qssql = "select BBS_Cate_ID from " & ft & "BBS_Cate " & strqssql & "" '37
    qsrs = New ADODB.Recordset ( ) '39
    qsrs.Open ( qssql , conn , 1 , 1 ) '40
    If Not qsrs.EOF And AspToAspX_CheckDBNull ( strqssql ) < > EmptyString.Value Then '41
        qsnum = qsrs.RecordCount '42
        If AspToAspX_CheckDBNull ( qsnum ) > 1 Then '43
            i = 0 '44
            Do While Not qsrs.EOF '45
                If AspToAspX_CheckDBNull ( i ) = AspToAspX_CheckExpression ( qsnum ) - 1 Then '46
                    qsbbsx1 = AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) '47
                Else '48
                    qsbbsx1 = AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) & "," '49
                End If '50
                qsbbs1 = qsbbs1 & qsbbsx1 '51
                qsrs.MoveNext ( ) '52
                i = i + 1 '53
            Loop '54
            qsarray1 = AspToAspX_Split ( qsbbs1 , "," ) '55
            For k = 0 To Val ( UBound ( qsarray1 ) ) '56
                If AspToAspX_CheckDBNull ( k ) = UBound ( qsarray1 ) Then '57
                    qssqlstrx = "Boardid_1<>'" & qsarray1 ( k ) & "' and Boardid_2<>'" & qsarray1 ( k ) & "'" '58
                Else '59
                    qssqlstrx = "Boardid_1<>'" & qsarray1 ( k ) & "' and Boardid_2<>'" & qsarray1 ( k ) & "' and " '60
                End If '61
                qssqlstr1 = qssqlstr1 & qssqlstrx '62
            Next '63
            qssqlstr1 = "" & qssqlstr1 '64
        Else '65
            qssqlstr1 = "Boardid_1<>'" & AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) & "' and Boardid_2<>'" & AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) & "'" '66
        End If '67
        strqs = qssqlstr1 & " and " '68
    End If '69
    qsrs.Close ( ) '70
    wzrep = Application ( "FTBBSMB" ) ( 5 , 0 ) '75
    If AspToAspX_CheckDBNull ( searchkind ) = "menu" Then '80
        strsql = "SELECT id,Boardid_1,Boardid_2,user_id,name,title,hit,rep,dateh,redate,bbs_img,bbs_img_display,huati,img_url_display,P_display,picture,sign,zhiye,htmfilename,bbstop,bbstop1,flag,titlecolor,boardsign,reinfo FROM " & ft & "bbstitle WHERE " & strqs & " (id IN(SELECT pid FROM " & ft & "bbsmenu WHERE (id IN(SELECT MAX(id) FROM " & ft & "bbsmenu where remenu like '%" & searchcontent & "%' GROUP BY pid))) or menu like '%" & searchcontent & "%') and deleted=0 order by bbstop1 desc,bbstop desc,redate desc" '81
    ElseIf AspToAspX_CheckDBNull ( searchkind ) = "myrepost"Then '82
        strsql = "SELECT id,Boardid_1,Boardid_2,user_id,name,title,hit,rep,dateh,redate,bbs_img,bbs_img_display,huati,img_url_display,P_display,picture,sign,zhiye,htmfilename,bbstop,bbstop1,flag,titlecolor,boardsign,reinfo FROM " & ft & "bbstitle WHERE " & strqs & " id IN(SELECT pid FROM " & ft & "bbsmenu WHERE (id IN(SELECT MAX(id) FROM " & ft & "bbsmenu where user_id='" & getcookie ( "name" ) & "' GROUP BY pid))) and deleted=0 order by bbstop1 desc,bbstop desc,redate desc" '83
    ElseIf AspToAspX_CheckDBNull ( searchkind ) = "title"Then '84
        strsql = "SELECT id,Boardid_1,Boardid_2,user_id,name,title,hit,rep,dateh,redate,bbs_img,bbs_img_display,huati,img_url_display,P_display,picture,sign,zhiye,htmfilename,bbstop,bbstop1,flag,titlecolor,boardsign,reinfo from " & ft & "bbstitle where " & strqs & " title like '%" & searchcontent & "%' and deleted=0 order by bbstop1 desc,bbstop desc,redate desc" '85
    ElseIf AspToAspX_CheckDBNull ( searchkind ) = "user_id"Then '86
        strsql = "SELECT id,Boardid_1,Boardid_2,user_id,name,title,hit,rep,dateh,redate,bbs_img,bbs_img_display,huati,img_url_display,P_display,picture,sign,zhiye,htmfilename,bbstop,bbstop1,flag,titlecolor,boardsign,reinfo from " & ft & "bbstitle where " & strqs & " user_id='" & searchcontent & "' and deleted=0 order by bbstop1 desc,bbstop desc,redate desc" '87
    Else '88
        strsql = "SELECT id,Boardid_1,Boardid_2,user_id,name,title,hit,rep,dateh,redate,bbs_img,bbs_img_display,huati,img_url_display,P_display,picture,sign,zhiye,htmfilename,bbstop,bbstop1,flag,titlecolor,boardsign,reinfo from " & ft & "bbstitle where " & strqs & " deleted=0 and (bbstop1=1 or bbstop=1) order by redate desc" '89
    End If '90
    rs = New ADODB.Recordset ( ) '91
    rs.Open ( strsql , conn , 1 , 1 ) '92
    Response.Write ( vbCrLf )
    Response.Write ( "<HTML><HEAD>" & Chr ( 13 ) ) '94
    Response.Write ( "<title>论坛贴子搜索</title>" & Chr ( 13 ) ) '95
    Response.Write ( "<META http-equiv=Content-Type content=text/html;charset=utf-8>" & Chr ( 13 ) ) '96
    Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '97
    Response.Write ( "<script>" & Chr ( 13 ) ) '98
    Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '99
    Response.Write ( "var style;" & Chr ( 13 ) ) '100
    Response.Write ( "var strstyle;" & Chr ( 13 ) ) '101
    Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '102
    Response.Write ( "{" & Chr ( 13 ) ) '103
    Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '104
    Response.Write ( "}" & Chr ( 13 ) ) '105
    Response.Write ( "else" & Chr ( 13 ) ) '106
    Response.Write ( "{" & Chr ( 13 ) ) '107
    Response.Write ( " stylecook++;" & Chr ( 13 ) ) '108
    Response.Write ( "}" & Chr ( 13 ) ) '109
    Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '110
    Response.Write ( "strstyle=""<link href=\""css/""+style+""\""  rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '111
    Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '112
    Response.Write ( "</script>" & Chr ( 13 ) ) '113
    Response.Write ( "</HEAD>" & Chr ( 13 ) ) '114
    Response.Write ( "</head>" & Chr ( 13 ) ) '115