index.aspx.vb

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

            Response.Write ( "            <option value=""1"">保存一天</option>" & Chr ( 13 ) ) '225
            Response.Write ( "            <option value=""30"">保存一月</option>" & Chr ( 13 ) ) '226
            Response.Write ( "            <option value=""365"">保存一年</option>" & Chr ( 13 ) ) '227
            Response.Write ( "          </select>" & Chr ( 13 ) ) '228
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <input type=""hidden"" name=""act"" value=""y"">" & Chr ( 13 ) ) '229
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <input type=""hidden"" name=""reurl"" value=""index.aspx"">" & Chr ( 13 ) ) '230
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  </span></span>" & Chr ( 13 ) ) '231
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '232
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""height: 6px;""></div>" & Chr ( 13 ) ) '233
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""LoginButton"">" & Chr ( 13 ) ) '234
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""submit"" value=""true"" style=""width: 60px;"">登录</button>&nbsp;&nbsp;" & Chr ( 13 ) ) '235
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""button"" value=""true"" onClick=""javascript:window.location.href='default.aspx?n=regist'"" style=""width: 60px;"">注册</button>" & Chr ( 13 ) ) '236
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '237
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</form>" & Chr ( 13 ) ) '238
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '239
        Else '241
            sql = "SELECT top 1 clubuser_id,clubuser_name,jingyuan,postnum,clubuser_reg_date,clubuser_enter_count,bokeer FROM " & ft & "clubuser where clubuser_name='" & getcookie ( "name" ) & "'" '242
            rsx = New ADODB.Recordset ( ) '243
            rsx.Open ( sql , conn , 1 , 1 ) '244
            userid = AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_id" ) .Value) '245
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""height: 22px;""></div>" & Chr ( 13 ) ) '247
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style="" margin:0px; padding:0px 0px 0px 15px; line-height:18px; height:98px;"">" & Chr ( 13 ) ) '248
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "欢迎" ) '249
            Response.Write ( getcookie ( "name" ) ) '249
            Response.Write ( "的到来 <br />" & Chr ( 13 ) ) '249
            Response.Write ( "      用户积分：" ) '250
            Response.Write ( AspToAspX_CheckDBNull(rsx.Fields ( "jingyuan" ) .Value) ) '250
            Response.Write ( " <br />" & Chr ( 13 ) ) '250
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "发贴数量：" ) '251
            Response.Write ( AspToAspX_CheckDBNull(rsx.Fields ( "postnum" ) .Value) ) '251
            Response.Write ( " <br />" & Chr ( 13 ) ) '251
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "登录次数：" ) '252
            Response.Write ( AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_enter_count" ) .Value) ) '252
            Response.Write ( " <br />" & Chr ( 13 ) ) '252
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "注册时间：" ) '253
            Response.Write ( formatdatetime ( AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_reg_date" ) .Value) , 2 ) ) '253
            Response.Write ( " " & Chr ( 13 ) ) '253
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '254
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""height: 1px;""></div>" & Chr ( 13 ) ) '255
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""LoginButton"">" & Chr ( 13 ) ) '256
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""button"" value=""true"" onClick=""javascript:window.location.href='default.aspx?n=userinfo'"" style=""width: 40px;"">修改</button>&nbsp;&nbsp;" & Chr ( 13 ) ) '257
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""button"" value=""true"" onClick=""javascript:window.location.href='main.aspx?exit=yes'"" style=""width: 40px;"">退出</button>" & Chr ( 13 ) ) '258
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '259
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '260
            rsx.Close ( ) '262
        End If '263
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""HotSpace""  id=""t_1"" name=""t_1"">" & Chr ( 13 ) ) '265
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h2>发贴排行榜</h2><h4><a class=""menu"" href=""javascript:show_tbl('t_',2,2)"" target=""_self"">版块排行榜</a></h4>" & Chr ( 13 ) ) '266
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '267
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '268
        sql = "select top 10 clubuser_id,clubuser_name,postnum from " & ft & "clubuser where payuser<>3 order by postnum desc" '269
        rs = New ADODB.Recordset ( ) '270
        rs.Open ( sql , conn , 3 , 1 ) '271
        m = 0 '272
        Do While Not rs.EOF '273
        If AspToAspX_CheckDBNull ( m ) > = 10 Then
Exit Do
End If
    '274
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""float:left;width:125px;text-align:left;padding-top: 6px;"">&nbsp;&nbsp;<a title=""" ) '276
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '276
            Response.Write ( """ href=""home.aspx?userid=" ) '276
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '276
            Response.Write ( """ target=""_blank""><img alt="""" src=""images/ftbbs_img_" ) '276
            Response.Write ( m + 1 ) '276
            Response.Write ( ".gif"" align=""absmiddle"" /> " ) '276
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '276
            Response.Write ( "</a></div><div style=""float:left;width:50px;text-align:right;padding-top: 7px;padding-right: 4px;"">" ) '276
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "postnum" ) .Value) ) '276
            Response.Write ( "&nbsp;&nbsp;</div>" & Chr ( 13 ) ) '276
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "    " ) '277
            m = m + 1 '278
            rs.MoveNext ( ) '279
        Loop '280
        rs.Close ( ) '281
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '283
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "   </div>" & Chr ( 13 ) ) '284
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""HotSpace"" id=""t_2"" name=""t_2"" style=""display:none"">" & Chr ( 13 ) ) '285
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><a class=""menu"" href=""javascript:show_tbl('t_',2,1)"" target=""_self"">发贴排行榜</a></h1><h3>版块排行榜</h3>" & Chr ( 13 ) ) '286
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '287
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '288
        sql = "select top 10 BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Topic,BBS_Cate_Qs from " & ft & "BBS_Cate where BBS_Cate_PID<>'0' and deleted=0 order by BBS_Cate_Topic desc" '289
        rs = New ADODB.Recordset ( ) '290
        rs.Open ( sql , conn , 3 , 1 ) '291
        m = 0 '292
        Do While Not rs.EOF '293
        If AspToAspX_CheckDBNull ( m ) > = 10 Then
Exit Do
End If
    '294
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""float:left;width:125px;text-align:left;padding-top: 6px;"">&nbsp;&nbsp;<a href=""default.aspx?a=" ) '296
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_PID" ) .Value) ) '296
            Response.Write ( "&b=" ) '296
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) ) '296
            Response.Write ( "&qs=" ) '296
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Qs" ) .Value) ) '296
            Response.Write ( """ target=""_self""><img alt="""" src=""images/ftbbs_img_" ) '296
            Response.Write ( m + 1 ) '296
            Response.Write ( ".gif"" align=""absmiddle"" /> " ) '296
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) ) '296
            Response.Write ( "</a></div><div style=""float:left;width:50px;text-align:right;padding-top: 7px;padding-right: 4px;"">" ) '296
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Topic" ) .Value) ) '296
            Response.Write ( "&nbsp;&nbsp;</div>" & Chr ( 13 ) ) '296
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "    " ) '297
            m = m + 1 '298
            rs.MoveNext ( ) '299
        Loop '300
        rs.Close ( ) '301
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '303
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "   </div>" & Chr ( 13 ) ) '304
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '305
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '306
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleBlock"">" & Chr ( 13 ) ) '307
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleNavCenter"">" & Chr ( 13 ) ) '308
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><img alt="""" src=""blogimages/left01.gif"" align=""middle"" /> 版块精选</h1>" & Chr ( 13 ) ) '309
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '310
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li>&nbsp;</li>" & Chr ( 13 ) ) '311
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '312
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h2><a href=""default.aspx"" target=""_self""><img src=""blogimages/more3.gif"" alt="""" border=""0"" style=""padding-top:4px;"" /></a></h2>" & Chr ( 13 ) ) '313
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '314
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '315
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--开始-->" & Chr ( 13 ) ) '316
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '317
        sql = "select top 1 BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Name from " & ft & "BBS_Cate where deleted=0 and BBS_Cate_ID='A_1' order by totop asc" '318
        rsd = New ADODB.Recordset ( ) '319
        rsd.Open ( sql , conn , 3 , 1 ) '320
        If Not rsd.EOF Then '321
            BBS_Cate_Name = AspToAspX_CheckDBNull(rsd.Fields ( "BBS_Cate_Name" ) .Value) '322
        End If '323
        rsd.Close ( ) '324
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""CommendRead"">" & Chr ( 13 ) ) '326
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""Left"">" & Chr ( 13 ) ) '327
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h3><img alt="""" src=""blogimages/icon_quote.gif"" align=""middle"" /><font color=""#000000""><a href=""default.aspx?a=A_1"">" ) '328
        Response.Write ( BBS_Cate_Name ) '328
        Response.Write ( "</a></font></h3><div>" & Chr ( 13 ) ) '328
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '329
        sql = "select top 10 title,htmfilename from " & ft & "bbstitle where " & strqs & " deleted=0 and BoardID_1='A_1' order by redate desc" '330
        rs = New ADODB.Recordset ( ) '331
        rs.Open ( sql , conn , 3 , 1 ) '332
        k = 0 '333
        Do While Not rs.EOF '334
        If AspToAspX_CheckDBNull ( k ) > 9 Then
Exit Do
End If
    '335
            title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '336
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h2> ·<a title=""" ) '338
            Response.Write ( title ) '338
            Response.Write ( """ href=""" ) '338
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '338
            Response.Write ( """ target=""_blank"">" ) '338
            Response.Write ( title ) '338
            Response.Write ( "</a></h2>" & Chr ( 13 ) ) '338
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '339
            k = k + 1 '340
            rs.MoveNext ( ) '341
        Loop '342
        rs.Close ( ) '343
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '345
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '346
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '347
        sql = "select top 1 BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Name from " & ft & "BBS_Cate where deleted=0 and BBS_Cate_ID='A_2' order by totop asc" '348
        rsd = New ADODB.Recordset ( ) '349
        rsd.Open ( sql , conn , 3 , 1 ) '350
        If Not rsd.EOF Then '351
            BBS_Cate_Name = AspToAspX_CheckDBNull(rsd.Fields ( "BBS_Cate_Name" ) .Value) '352
            rsd.Close ( ) '353
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""CenterAndRight"">" & Chr ( 13 ) ) '355
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""Content"">" & Chr ( 13 ) ) '356
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><img alt="""" src=""blogimages/green_arrow.gif"" width=""12"" height=""17"" align=""middle"" /><a href=""default.aspx?a=A_2"">" ) '357
            Response.Write ( BBS_Cate_Name ) '357
            Response.Write ( "</a></h1>" & Chr ( 13 ) ) '357
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '358
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '359
            sql = "select top 10 title,htmfilename from " & ft & "bbstitle where " & strqs & " deleted=0 and BoardID_1='A_2' order by redate desc" '360
            rs = New ADODB.Recordset ( ) '361
            rs.Open ( sql , conn , 3 , 1 ) '362
            Do While Not rs.EOF '363