search.aspx.vb

来自「本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成」· VB 代码 · 共 676 行 · 第 1/3 页
676 行
    Response.Write ( "<script language=""javascript"">" & Chr ( 13 ) ) '116
    Response.Write ( "<!--" & Chr ( 13 ) ) '117
    Response.Write ( "" & Chr ( 9 ) & "function check_search(form)" & Chr ( 13 ) ) '118
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "{" & Chr ( 13 ) ) '119
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "if (form.searchcontent.value=="""")" & Chr ( 13 ) ) '120
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "{" & Chr ( 13 ) ) '121
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "alert(""请输入搜索内容！"");" & Chr ( 13 ) ) '122
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "form.searchcontent.focus();" & Chr ( 13 ) ) '123
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "return false;" & Chr ( 13 ) ) '124
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '125
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "return true;" & Chr ( 13 ) ) '126
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '127
    Response.Write ( "//-->" & Chr ( 13 ) ) '128
    Response.Write ( "</script>" & Chr ( 13 ) ) '129
    Response.Write ( "<body>" & Chr ( 13 ) ) '130
    If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = 1 Then '132
        Response.Write ( headhtml ) '133
    End If '134
    Response.Write ( vbCrLf )
    Response.Write ( "<table width=""99%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '136
    Response.Write ( "  <tr>" & Chr ( 13 ) ) '137
    Response.Write ( "    <td> " & Chr ( 13 ) ) '138
    Response.Write ( "      <table width=""100%"" border=0 cellpadding=2 cellspacing=1 class=""maintbbg"">" & Chr ( 13 ) ) '139
    Response.Write ( "        <tbody>" & Chr ( 13 ) ) '140
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '141
    Response.Write ( "            <td height=""25"" class=""f12bg"">&nbsp;" ) '142
    Response.Write ( userinfo ) '142
    Response.Write ( "</td>" & Chr ( 13 ) ) '142
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '143
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '144
    Response.Write ( "            <td height=""25"" colspan=""3"" class=""maintbtr3"">&nbsp;<a href=""" ) '145
    Response.Write ( homepage ) '145
    Response.Write ( """>论坛首页</a> " & Chr ( 13 ) ) '145
    Response.Write ( "              >> 贴子搜索</td>" & Chr ( 13 ) ) '146
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '147
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '148
    Response.Write ( "            <td height=""30"" class=""maintbtr3"">" & Chr ( 13 ) ) '149
    Response.Write ( "            <!--<fieldset><legend>论坛贴子搜索:</legend>-->" & Chr ( 13 ) ) '150
    Response.Write ( "              <form name=""form1"" method=""post"" action="""" onSubmit=""return check_search(this)"">" & Chr ( 13 ) ) '151
    Response.Write ( "                &nbsp;&nbsp;搜索关键字:" & Chr ( 13 ) ) '152
    Response.Write ( "                <input name=""searchcontent"" type=""text"" size=""35"">" & Chr ( 13 ) ) '153
    Response.Write ( "                <select name=""searchkind"" style=""background-color:#ffffff;FONT-FAMILY: Arial; FONT-SIZE: 9pt; FONT-STYLE: normal; WIDTH: 65px"">" & Chr ( 13 ) ) '154
    Response.Write ( "                  <option value=""title"" selected>按主题</option>" & Chr ( 13 ) ) '155
    Response.Write ( "                  <option value=""user_id"" >按作者</option>" & Chr ( 13 ) ) '156
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""menu"" >按内容</option>" & Chr ( 13 ) ) '157
    Response.Write ( "                </select>" & Chr ( 13 ) ) '158
    Response.Write ( "                <input name=""search"" src=""images/d_search.gif"" type=""image"" value=""Submit"" width=""37"" height=""21"" border=""0"" align=""absmiddle"" style=""width:37px;height:21px;"">" & Chr ( 13 ) ) '159
    Response.Write ( "              </form>" & Chr ( 13 ) ) '160
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--</fieldset>-->" & Chr ( 13 ) ) '161
    Response.Write ( "            </td>" & Chr ( 13 ) ) '162
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '163
    Response.Write ( "        </tbody>" & Chr ( 13 ) ) '164
    Response.Write ( "      </table>" & Chr ( 13 ) ) '165
    Response.Write ( "    </td>" & Chr ( 13 ) ) '166
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '167
    Response.Write ( "</table>" & Chr ( 13 ) ) '168
    Response.Write ( "      " & Chr ( 13 ) ) '169
    Response.Write ( "<table cellspacing=0 cellpadding=0 width=""99%"" align=center border=0>" & Chr ( 13 ) ) '170
    Response.Write ( "  <tr> " & Chr ( 13 ) ) '171
    Response.Write ( "    <td height=5></td>" & Chr ( 13 ) ) '172
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '173
    Response.Write ( "</table>" & Chr ( 13 ) ) '174
    Response.Write ( "<table width=""99%"" border=0 cellpadding=0 cellspacing=0 class=""listborder"" align=""center"">" & Chr ( 13 ) ) '175
    Response.Write ( "    <tr align=middle class=""f12""> " & Chr ( 13 ) ) '176
    Response.Write ( "      <td width=""6%"" height=""28"" class=""f12bg"">状态</td>" & Chr ( 13 ) ) '177
    Response.Write ( "      <td width=""50%"" class=""f12bg"">论坛主题</td>" & Chr ( 13 ) ) '178
    Response.Write ( "      <td width=""5%"" class=""f12bg"">作者</td>" & Chr ( 13 ) ) '179
    Response.Write ( "      <td width=""6%"" class=""f12bg"">回复</td>" & Chr ( 13 ) ) '180
    Response.Write ( "      <td width=""6%"" class=""f12bg"">点击</td>" & Chr ( 13 ) ) '181
    Response.Write ( "      <td width=""25%"" class=""f12bg"">最后更新</td>" & Chr ( 13 ) ) '182
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '183
    Response.Write ( "    " ) '184
    If Not rs.EOF Then '185
        wzpage = AspToAspX_CInt ( Request ( "page" ) ) '187
    If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
    '189
        rs.PageSize = wzrep '190
        rs.AbsolutePage = wzpage '191
        wzpagecount = rs.PageCount '192
        wzcount = rs.RecordCount '193
        For i = 0 To Val ( wzrep ) - 1 '194
        If rs.EOF Then
Exit For
End If
    '195
            indbdate = AspToAspX_CheckDBNull(rs.Fields ( "redate" ) .Value) '196
            year1 = right ( Year ( indbdate ) , 2 ) '197
            month1 = right ( "0" & Month ( indbdate ) , 2 ) '198
            day1 = right ( "0" & Day ( indbdate ) , 2 ) '199
            hour1 = right ( "0" & hour ( indbdate ) , 2 ) '200
            minute1 = right ( "0" & minute ( indbdate ) , 2 ) '201
            indbdate = year1 & "-" & month1 & "-" & day1 & " " & hour1 & ":" & minute1 '202
            reinfo = AspToAspX_CheckDBNull(rs.Fields ( "reinfo" ) .Value) '203
            If AspToAspX_CheckDBNull ( InStr ( reinfo , "||" ) ) > 0 Then '204
                rearr = AspToAspX_Split ( reinfo , "||" ) '205
                arrnum = UBound ( rearr ) '206
                reinfo = rearr ( arrnum ) '207
            End If '208
            If AspToAspX_CheckDBNull ( reinfo ) < > EmptyString.Value And AspToAspX_CheckDBNull ( InStr ( reinfo , "," ) ) > 0 Then '209
                reinfo = replace ( reinfo , "|" , "" ) '210
                rearr = AspToAspX_Split ( reinfo , "," ) '211
                replydate = rearr ( 0 ) '212
                replyuser = "<font color=red>|</font><a class=map href=ftbbsmyinfo.aspx?ftbbsuser=" & rearr ( 1 ) & ">" & rearr ( 1 ) & "</a>" '213
                replydate = right ( Year ( replydate ) , 2 ) & "-" & Month ( replydate ) & "-" & Day ( replydate ) & " " & hour ( replydate ) & ":" & minute ( replydate ) '214
            Else '215
                replydate = indbdate '216
                replyuser = "" '217
            End If '218
            Response.Write ( vbCrLf )
            Response.Write ( "    <tr align=middle> " & Chr ( 13 ) ) '220
            Response.Write ( "      <td width=""5%"" height=""28"" class=""loopborder1""> " & Chr ( 13 ) ) '221
            Response.Write ( "        " ) '222
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bbstop1" ) .Value) ) = "1" Then '222
                Response.Write ( "<a class=f14 href=" & AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) & " target=""_blank""><img src=""images/ding.gif"" alt=""总固顶的主题&#xA;点击开新窗口浏览"" width=""15"" height=""13"" border=""0"" align=""absmiddle"" board=0></a>" ) '223
            ElseIf AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bbstop" ) .Value) ) = "1"Then '224
                Response.Write ( "<a class=f14 href=" & AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) & " target=""_blank""><img src=""images/blueding.gif"" width=""15"" height=""13"" align=""absmiddle"" border=""0"" alt=""分论坛固顶的主题&#xA;点击开新窗口浏览""></a>" ) '225
            ElseIf AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "sign" ) .Value) ) = "1"Then '226
                Response.Write ( "<a class=f14 href=" & AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) & " target=""_blank""><img src=""images/jian.gif"" width=""15"" height=""13"" align=""absmiddle"" border=""0"" alt=""版主推荐的话题&#xA;点击开新窗口浏览""></a>" ) '227
            ElseIf AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "huati" ) .Value) ) = "1"Then '228
                Response.Write ( "<a class=f14 href=" & AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) & " target=""_blank""><img src=""images/jing.gif"" width=""15"" height=""13"" align=""absmiddle"" border=""0"" alt=""版主精选的话题&#xA;点击开新窗口浏览""></a>" ) '229
            ElseIf AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "P_display" ) .Value) ) = "0"Then '230
                Response.Write ( "<a class=f14 href=" & AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) & " target=""_blank""><img src=""images/suo.gif"" width=""12"" height=""13"" align=""absmiddle"" border=""0"" alt=""分论坛固顶的主题&#xA;点击开新窗口浏览""></a>" ) '231
            ElseIf AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "flag" ) .Value) ) = "1"Then '232
                Response.Write ( "<a class=f14 href=" & AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) & " target=""_blank""><img src=""images/poll.gif"" width=""15"" height=""16"" align=""absmiddle"" border=""0"" alt=""投票主题&#xA;点击开新窗口浏览""></a>" ) '233
            ElseIf AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "hit" ) .Value) ) > = 500 Then '234
                Response.Write ( "<a class=f14 href=" & AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) & " target=""_blank""><img src=""images/hotpost.gif"" width=""14"" height=""16"" align=""absmiddle"" border=""0"" alt=""热门的话题&#xA;点击开新窗口浏览""></a>" ) '235
            Else '236
                Response.Write ( "<a class=f14 href=" & AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) & " target=""_blank""><img src=""images/normal.gif"" width=""14"" height=""16"" align=""absmiddle"" border=""0"" alt=""开放的话题&#xA;点击开新窗口浏览""></a>" ) '237
            End If '238
            Response.Write ( vbCrLf )
            Response.Write ( "      </td>" & Chr ( 13 ) ) '239
            Response.Write ( "      <td width=""52%""  align=left valign=""middle"" class=""loopborder2""> <a class=f14 href=""" ) '240
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '240
            Response.Write ( """ title=""" ) '240
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) '240
            Response.Write ( "&#xA;作者:" ) '240
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "user_id" ) .Value) ) '240
            Response.Write ( "&#xA;发表于:" ) '240
            Response.Write ( indbdate ) '240
            Response.Write ( """ target=""_blank"">" ) '240
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) '240
            Response.Write ( "</a> " & Chr ( 13 ) ) '240
            Response.Write ( "        " ) '241
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bbs_img_display" ) .Value) ) = 1 Then '242
                Response.Write ( "<img src=""images/picflag.gif"" width=""13"" height=""13"" align=""absmiddle"" alt=""附带图片""> " ) '243
            End If '244
            pagefilename = AspToAspX_Split ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) , "." ) ( 0 ) '245
            htm_ext = "." & AspToAspX_Split ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) , "." ) ( 1 ) '246
            pagenum = Application ( "FTBBSMB" ) ( 6 , 0 ) '247
            k = AspToAspX_CheckDBNull(rs.Fields ( "rep" ) .Value) / pagenum '248
            If AspToAspX_Int ( k ) = k Then '249
                page = k '250
            Else '251
                page = AspToAspX_Int ( k ) + 1 '252
            End If '253
            If AspToAspX_CheckDBNull ( page ) > 1 Then '254
                For z = 1 To Val ( page ) '255
                    If AspToAspX_CheckDBNull ( z ) = 1 Then '256
                        pagehtm = pagefilename & htm_ext '257
                    Else '258
                        pagehtm = pagefilename & "_" & z & htm_ext '259
                    End If '260
                    If AspToAspX_CheckDBNull ( z ) > = 4 And AspToAspX_CheckDBNull ( page ) > 6 Then '261
                        pagehtm = pagefilename & "_" & page & htm_ext '262
                        Response.Write ( "..<a class=""mainouttd"" href=" & pagehtm & " target=""_blank"">" & page & "</a>" ) '263
                        Exit For '264
                    End If '265
                    If AspToAspX_CheckDBNull ( z ) = 1 Then '266
                        Response.Write ( "<a class=""mainouttd"" href=" & pagehtm & " target=""_blank"">" & z & "</a>" ) '267
                    Else '268
                        Response.Write ( "<a class=""mainouttd"" href=" & pagehtm & " target=""_blank"">" & z & "</a>" ) '269
                    End If '270
                Next '271
            End If '272
            Response.Write ( vbCrLf )
            Response.Write ( "      </td>" & Chr ( 13 ) ) '274
            Response.Write ( "      <td width=""7%"" class=""loopborder1""><a href=""ftbbsmyinfo.aspx?ftbbsuser=" ) '275
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "user_id" ) .Value) ) '275
            Response.Write ( """>" ) '275
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "user_id" ) .Value) ) '275
            Response.Write ( "</a></td>" & Chr ( 13 ) ) '275
            Response.Write ( "      <td width=""3%"" class=""loopborder3""> " ) '276
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "rep" ) .Value) ) '276
            Response.Write ( "</td>" & Chr ( 13 ) ) '276
            Response.Write ( "      <td width=""6%"" class=""loopborder3"">" ) '277
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "hit" ) .Value) ) '277
            Response.Write ( "</td>" & Chr ( 13 ) ) '277
            Response.Write ( "      <td width=""16%"" class=""loopborder3""><div align=""left"">" & Chr ( 13 ) ) '278
            Response.Write ( "          " ) '279
            Response.Write ( replydate & replyuser ) '279
            Response.Write ( vbCrLf )
            Response.Write ( "        </div></td>" & Chr ( 13 ) ) '280
            Response.Write ( "    </tr>" & Chr ( 13 ) ) '281
            Response.Write ( "    " ) '282
            rs.MoveNext ( ) '283
        Next '284
        Response.Write ( vbCrLf )
        Response.Write ( "    <tr valign=""top""> " & Chr ( 13 ) ) '286
        Response.Write ( "      <td colspan=""7"" class=""loopborder1""> <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '287
        Response.Write ( "          <tr> " & Chr ( 13 ) ) '288
        Response.Write ( "            <td height=""26"" align=""left"">" ) '289
        Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '289
        Response.Write ( "</td>" & Chr ( 13 ) ) '289
        Response.Write ( "            <td align=""right"" width=""200""><script src=""ftbbsdh.js""></script></td>" & Chr ( 13 ) ) '290
        Response.Write ( "          </tr>" & Chr ( 13 ) ) '291
        Response.Write ( "        </table></td>" & Chr ( 13 ) ) '292
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '293
        Response.Write ( "    " ) '294
    Else '294
    Response.Write ( vbCrLf )
        Response.Write ( "    <tr class=""loopborder3""> " & Chr ( 13 ) ) '295
        Response.Write ( "      <td colspan=7 align=center height=25> 没有找到相关贴子！ </td>" & Chr ( 13 ) ) '296
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '297
        Response.Write ( "    " ) '298
    End If '298
    Response.Write ( vbCrLf )
    Response.Write ( "</table>" & Chr ( 13 ) ) '299
    ASPX_INC_BBSTAIL_HTM.AspToAspX_Page_Init ( )
    CloseDb ( ) '301
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
search.aspx.vb - 源码说明

本页面展示了「本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量基于ASP.NET的DLL可以运行在支持ASP」中的 search.aspx.vb 源码文件，采用 VB 编程语言编写，共 676 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫开发者社区收录了大量与ASP.NET相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?