default_list.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

    Response.Write ( "  </table>" & Chr ( 13 ) ) '150
    Response.Write ( "<table width=""99%"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""default_list"">" & Chr ( 13 ) ) '151
    Response.Write ( "          <tr class=""f12bg"" align=""center""> " & Chr ( 13 ) ) '152
    Response.Write ( "            <td height=""25"" colspan=""3"" align=""right"">欢迎新会员：<a href=""home.aspx?userid=" ) '153
    Response.Write ( clubuser_id ) '153
    Response.Write ( """>" ) '153
    Response.Write ( newmember ) '153
    Response.Write ( "</a> " & Chr ( 13 ) ) '153
    Response.Write ( "              今日发贴：" ) '154
    Response.Write ( daytotal ) '154
    Response.Write ( " 昨日：" ) '154
    Response.Write ( zttotal ) '154
    Response.Write ( " 主题总数：" ) '154
    Response.Write ( titletotal ) '154
    Response.Write ( " 贴子总数：" ) '154
    Response.Write ( retotal + titletotal ) '154
    Response.Write ( " " & Chr ( 13 ) ) '154
    Response.Write ( "              <a href=""main.aspx?order_key=dateh"">最新发布主题</a> <a href=""main.aspx"">最新回复主题</a> <a href=""main.aspx?order_key=hit"">热门话题</a>&nbsp;</td>" & Chr ( 13 ) ) '155
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '156
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '157
    Response.Write ( "            <td width=""5%"" height=""28"" class=""maintbtr3""> <div align=""center""><img src=""images/anc.gif""> " & Chr ( 13 ) ) '158
    Response.Write ( "              </div>" & Chr ( 13 ) ) '159
    Response.Write ( "            </td>" & Chr ( 13 ) ) '160
    Response.Write ( "            <td width=""46%"" class=""maintbtr3"">" & Chr ( 13 ) ) '161
    Response.Write ( "              <script src=""df_listad.js""></script>" & Chr ( 13 ) ) '162
    Response.Write ( "            </td>" & Chr ( 13 ) ) '163
    Response.Write ( "            <td height=""25"" class=""maintbtr3""> <FORM METHOD=POST ACTION=""search.aspx"" onSubmit=""return check_search(this)"" style=""MARGIN-BOTTOM: 0px"">" & Chr ( 13 ) ) '164
    Response.Write ( "                <input type=""hidden"" name=""layer_1"" value=""" ) '165
    Response.Write ( layer_1 ) '165
    Response.Write ( """>" & Chr ( 13 ) ) '165
    Response.Write ( "                <input type=text name=""searchcontent"" size=40 value="""" class="""">" & Chr ( 13 ) ) '166
    Response.Write ( "                <select name=""searchkind"" style=""background-color:#ffffff;FONT-FAMILY: Arial; FONT-SIZE: 9pt; FONT-STYLE: normal; WIDTH: 65px"">" & Chr ( 13 ) ) '167
    Response.Write ( "                  <option value=""title"" selected>按主题</option>" & Chr ( 13 ) ) '168
    Response.Write ( "                  <option value=""user_id"" >按作者</option>" & Chr ( 13 ) ) '169
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""menu"" >按内容</option>" & Chr ( 13 ) ) '170
    Response.Write ( "                </select>" & Chr ( 13 ) ) '171
    Response.Write ( "                <input name=""search"" src=""images/d_search.gif"" type=""image"" value=""Submit"" width=""37"" height=""21"" border=""0"" align=""absmiddle"">" & Chr ( 13 ) ) '172
    Response.Write ( "              </form></td>" & Chr ( 13 ) ) '173
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '174
    Response.Write ( "</table>" & Chr ( 13 ) ) '175
    Response.Write ( "  <table width=""99%"" cellspacing=""0"" cellpadding=""0"" class=""listborder"">" & Chr ( 13 ) ) '176
    Response.Write ( "    <tr>" & Chr ( 13 ) ) '177
    Response.Write ( "    <td>" & Chr ( 13 ) ) '178
    Response.Write ( "<table width=""100%"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '179
    Response.Write ( "          <tr class=""f12bg"" align=""center""> " & Chr ( 13 ) ) '180
    Response.Write ( "            <td width=""8%"" height=""28"">&nbsp;</td>" & Chr ( 13 ) ) '181
    Response.Write ( "            <td width=""45%"">论坛分类 ( " & Chr ( 13 ) ) '182
    Response.Write ( "              " ) '183
    If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = 1 Then '183
    Response.Write ( vbCrLf )
        Response.Write ( "              <a href=""default.aspx?a=" ) '184
        Response.Write ( layer_1 ) '184
        Response.Write ( "&b=" ) '184
        Response.Write ( layer_2 ) '184
        Response.Write ( "&qs=" ) '184
        Response.Write ( qs ) '184
        Response.Write ( "&ft=0"" target=""_top""><font color=""#FF0000"">框架结构浏览</font></a> " & Chr ( 13 ) ) '184
        Response.Write ( "              " ) '185
    Else '185
    Response.Write ( vbCrLf )
        Response.Write ( "              <a href=""default.aspx?a=" ) '186
        Response.Write ( layer_1 ) '186
        Response.Write ( "&b=" ) '186
        Response.Write ( layer_2 ) '186
        Response.Write ( "&qs=" ) '186
        Response.Write ( qs ) '186
        Response.Write ( "&ft=1"" target=""_top""><font color=""#FF0000"">平板结构浏览</font></a> " & Chr ( 13 ) ) '186
        Response.Write ( "              " ) '187
    End If '187
    Response.Write ( vbCrLf )
    Response.Write ( "              ) </td>" & Chr ( 13 ) ) '188
    Response.Write ( "            <td width=""14%"">主题/帖数</td>" & Chr ( 13 ) ) '189
    Response.Write ( "            <!--<td width=""5%"">今日</td>-->" & Chr ( 13 ) ) '190
    Response.Write ( "            <td width=""20%"">最后发表</td>" & Chr ( 13 ) ) '191
    Response.Write ( "            <td width=""12%"">版主</td>" & Chr ( 13 ) ) '192
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '193
    Response.Write ( "          " ) '194
    sql = "select BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Qs,BBS_Cate_Note,BBS_Cate_Topic,BBS_Cate_Reply,BBS_Cate_Manager_Name from " & ft & "BBS_Cate where BBS_Cate_PID='0' and deleted=0 order by totop asc" '195
    rs = New ADODB.Recordset ( ) '196
    rs.Open ( sql , conn , 1 , 1 ) '197
    Do While Not rs.EOF '198
        Response.Write ( vbCrLf )
        Response.Write ( "          <tr> " & Chr ( 13 ) ) '200
        Response.Write ( "            <td height=""28"" colspan=""6"" class=""loopborder3"">&nbsp; <a href=""main.aspx?layer_1=" ) '201
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "bbs_cate_id" ) .Value) ) '201
        Response.Write ( "&qs=" ) '201
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Qs" ) .Value) ) '201
        Response.Write ( """><b><font color=""#000000"">≡ " & Chr ( 13 ) ) '201
        Response.Write ( "              <span class=""f14""> " & Chr ( 13 ) ) '202
        Response.Write ( "              " ) '203
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) ) '203
        Response.Write ( vbCrLf )
        Response.Write ( "              </span> ≡</font></b></a> </td>" & Chr ( 13 ) ) '204
        Response.Write ( "          </tr>" & Chr ( 13 ) ) '205
        Response.Write ( "          <tbody id=""category_30"" style="""">" & Chr ( 13 ) ) '206
        Response.Write ( "            " ) '207
        sql15 = "select BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Qs,BBS_Cate_Note,BBS_Cate_Topic,BBS_Cate_Reply,BBS_Cate_Manager_Name from " & ft & "BBS_Cate where BBS_Cate_PID='" & AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) & "' and deleted=0" '208
        rs15 = New ADODB.Recordset ( ) '209
        rs15.Open ( sql15 , conn , 1 , 1 ) '210
        Do While Not rs15.EOF '211
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_Qs" ) .Value) ) = 1 Then '212
                fticon = "ft4.gif" '213
            ElseIf AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_Qs" ) .Value) ) = 2 Then '214
                fticon = "ft3.gif" '215
            ElseIf AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_Qs" ) .Value) ) = 3 Then '216
                fticon = "ft2.gif" '217
            Else '218
                fticon = "ft1.gif" '219
            End If '220
            sqlstr = "select count(id) as k from " & ft & "bbstitle where BoardID_2='" & AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_ID" ) .Value) & "' and year(dateh)=" & yy & " and month(dateh)=" & mm & " and day(dateh)=" & dd & "" '221
            rsd = conn.Execute ( sqlstr ) '222
            k = AspToAspX_CheckDBNull(rsd.Fields ( "k" ) .Value) '223
            rsd.Close ( ) '224
            Response.Write ( vbCrLf )
            Response.Write ( "            <tr> " & Chr ( 13 ) ) '226
            Response.Write ( "              <td height=""58"" align=""center"" class=""loopborder1""><img src=""images/" ) '227
            Response.Write ( fticon ) '227
            Response.Write ( """ alt="""" width=""25"" height=""32"" /></td>" & Chr ( 13 ) ) '227
            Response.Write ( "              <td class=""loopborder1"" align=""left"" style=""line-height: 20px;color: #666;""> " & Chr ( 13 ) ) '228
            Response.Write ( "                <a href=""main.aspx?layer_1=" ) '229
            Response.Write ( AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_PID" ) .Value) ) '229
            Response.Write ( "&layer_2=" ) '229
            Response.Write ( AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_ID" ) .Value) ) '229
            Response.Write ( "&qs=" ) '229
            Response.Write ( AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_Qs" ) .Value) ) '229
            Response.Write ( """>" & Chr ( 13 ) ) '229
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<font color=""#000000""><strong>◇-<span class=""f14"">" ) '230
            Response.Write ( AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_Name" ) .Value) ) '230
            Response.Write ( "</span></strong></font></a> <font color=#336699>(今日: " ) '230
            Response.Write ( k ) '230
            Response.Write ( ")</font><br>" ) '230
            Response.Write ( UBBCode ( AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_Note" ) .Value) ) ) '230
            Response.Write ( vbCrLf )
            Response.Write ( "              </td>" & Chr ( 13 ) ) '231
            Response.Write ( "              <td align=""center"" class=""loopborder1"" style=""line-height: 20px;color: #666;""> " & Chr ( 13 ) ) '232
            Response.Write ( "                " ) '233
            Response.Write ( AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_Topic" ) .Value) ) '233
            Response.Write ( "/" ) '233
            Response.Write ( AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_Reply" ) .Value) ) '233
            Response.Write ( vbCrLf )
            Response.Write ( "              </td>" & Chr ( 13 ) ) '234
            Response.Write ( "              <td class=""loopborder1"" align=""right"" style=""line-height: 20px;color: #666;"" title="""" nowrap> " & Chr ( 13 ) ) '235
            Response.Write ( "                <div id=""wrap""> " & Chr ( 13 ) ) '236
            Response.Write ( "                  " ) '237
            bzname = AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_Manager_Name" ) .Value) '239
            AspToAspX_Str = "select top 1 name,title,dateh,htmfilename from " & ft & "bbstitle where BoardID_2='" & AspToAspX_CheckDBNull(rs15.Fields ( "BBS_Cate_ID" ) .Value) & "' and deleted=0 order by id desc" '240
            rs0 = New ADODB.Recordset ( ) '241
            rs0.Open ( AspToAspX_Str , conn , 1 , 3 ) '242
            If Not rs0.EOF Then '243
                sql = "select clubuser_id from " & ft & "clubuser where clubuser_name='" & AspToAspX_CheckDBNull(rs0.Fields ( "name" ) .Value) & "'" '244
                rsbz = conn.Execute ( sql ) '245
                bzid = rsbz ( "clubuser_id" ) '246
                rsbz.Close ( ) '247
                If AspToAspX_CheckDBNull ( InStr ( bzname , "|" ) ) > 0 Then '248
                    bzname = replace ( bzname , "|" , "," ) '249
                    bz = AspToAspX_Split ( bzname , "," ) '250
                    bzname = "" '251
                    For p = 0 To Val ( UBound ( bz ) ) '252
                        sql = "select clubuser_id from " & ft & "clubuser where clubuser_name='" & bz ( p ) & "'" '253
                        rsbz = New ADODB.Recordset ( ) '254
                        rsbz.Open ( sql , conn , 1 , 3 ) '255
                        If Not rsbz.EOF Then '256
                            rsbzid = rsbz ( "clubuser_id" ) '257
                        End If '258
                        rsbz.Close ( ) '259
                        If AspToAspX_CheckDBNull ( p ) = UBound ( bz ) Then '260
                            bzname = bzname & "<a href=home.aspx?userid=" & rsbzid & " target=""_blank"">" & bz ( p ) & "</a>" '261
                        Else '262
                            bzname = bzname & "<a href=home.aspx?userid=" & rsbzid & " target=""_blank"">" & bz ( p ) & "</a>," '263
                        End If '264
                    Next '265
                Else '266
                    sql = "select clubuser_id from " & ft & "clubuser where clubuser_name='" & bzname & "'" '267
                    rsbz = New ADODB.Recordset ( ) '268
                    rsbz.Open ( sql , conn , 1 , 3 ) '269
                    If Not rsbz.EOF Then '270
                        bz_id = rsbz ( "clubuser_id" ) '271
                    End If '272
                    rsbz.Close ( ) '273
                    bzname = "<a href=home.aspx?userid=" & bz_id & " target=""_blank"">" & bzname & "</a>" '274
                End If '275
                Response.Write ( vbCrLf )
                Response.Write ( "                  <a class=""map"" href=""" ) '277
                Response.Write ( AspToAspX_CheckDBNull(rs0.Fields ( "htmfilename" ) .Value) ) '277
                Response.Write ( """ target=""_blank"" title=""" ) '277
                Response.Write ( AspToAspX_CheckDBNull(rs0.Fields ( "title" ) .Value) ) '277
                Response.Write ( """> " & Chr ( 13 ) ) '277
                Response.Write ( "                  " ) '278
                Response.Write ( AspToAspX_CheckDBNull(rs0.Fields ( "title" ) .Value) ) '278
                Response.Write ( vbCrLf )
                Response.Write ( "                  </a>&nbsp; " & Chr ( 13 ) ) '279
                Response.Write ( "                  <div> by <a class=""map"" href=""home.aspx?userid=" ) '280
                Response.Write ( bzid ) '280
                Response.Write ( """ target=""_blank""> " & Chr ( 13 ) ) '280
                Response.Write ( "                    " ) '281
                Response.Write ( AspToAspX_CheckDBNull(rs0.Fields ( "name" ) .Value) ) '281
                Response.Write ( vbCrLf )
                Response.Write ( "                    </a> - " & Chr ( 13 ) ) '282
                Response.Write ( "                    " ) '283
                Response.Write ( AspToAspX_CheckDBNull(rs0.Fields ( "dateh" ) .Value) ) '283
                Response.Write ( vbCrLf )
                Response.Write ( "                    &nbsp;</div>" & Chr ( 13 ) ) '284
                Response.Write ( "                  " ) '285
            Else '286
                sql = "select clubuser_id from " & ft & "clubuser where clubuser_name='" & bzname & "'" '287
                rsbz = New ADODB.Recordset ( ) '288
                rsbz.Open ( sql , conn , 1 , 3 ) '289
                If Not rsbz.EOF Then '290
                    bz_id = rsbz ( "clubuser_id" ) '291
                End If '292
                rsbz.Close ( ) '293
                bzname = "<a href=home.aspx?userid=" & bz_id & " target=""_blank"">" & bzname & "</a>" '294
            End If '295
            Response.Write ( vbCrLf )
            Response.Write ( "                </div></td>" & Chr ( 13 ) ) '297
            Response.Write ( "              <td class=""loopborder1"" align=""center""> " & Chr ( 13 ) ) '298
            Response.Write ( "                " ) '299
            Response.Write ( bzname ) '299
            Response.Write ( vbCrLf )
            Response.Write ( "              </td>" & Chr ( 13 ) ) '300
            Response.Write ( "            </tr>" & Chr ( 13 ) ) '301
            Response.Write ( "            " ) '302
            rs15.MoveNext ( ) '303
        Loop '304
        rs15.Close ( ) '305
        rs15 = Nothing '306
        Response.Write ( vbCrLf )
        Response.Write ( "            " ) '308
        rs.MoveNext ( ) '309
    Loop '310
    rs.Close ( ) '311
    rs = Nothing '312
    Response.Write ( vbCrLf )
    Response.Write ( "        </table>" & Chr ( 13 ) ) '314
    Response.Write ( "" & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '315
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '316
    Response.Write ( "</table>" & Chr ( 13 ) ) '317
    Response.Write ( "<table width=""99%"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""default_list"">" & Chr ( 13 ) ) '318
    Response.Write ( "          <tr class=""f12bg"" align=""center""> " & Chr ( 13 ) ) '319
    Response.Write ( "            <td height=""26""><div align=""left"">&nbsp;<strong>论坛及来访信息</strong></div></td>" & Chr ( 13 ) ) '320
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '321
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '322
    Response.Write ( "            <td height=""28"" class=""maintbtr3"">&nbsp;你的系统:&nbsp;" ) '323
    Response.Write ( GetOpInfo ( AspToAspX_GetRequestServerVariables ( "HTTP_USER_AGENT" ) , 1 ) ) '323