delbbs.aspx.vb

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

        If AspToAspX_CheckDBNull ( rename ) = cookiesname Or AspToAspX_CheckDBNull ( cookiesbz ) = 1 Or AspToAspX_CheckDBNull ( admintobz ) = 1 Then '103
            If AspToAspX_CheckDBNull ( reinfo ) < > EmptyString.Value Then '104
                strsql = "update " & ft & "bbstitle set rep=rep-1,postnum=postnum-1,reinfo='" & reinfo & "' where rep>0 and id=" + pid '105
            Else '106
                strsql = "update " & ft & "bbstitle set rep=rep-1,postnum=postnum-1 where rep>0 and id=" + pid '107
            End If '108
            conn.Execute ( strsql ) '109
            AspToAspX_Str = "delete from " & ft & "bbsmenu where id=" & reid '110
            conn.Execute ( AspToAspX_Str ) '111
            sql = "update " & ft & "BBS_Cate set BBS_Cate_Reply=BBS_Cate_Reply-1 where BBS_Cate_ID='" & BoardID_1 & "'" '112
            conn.Execute ( sql ) '113
            sql = "update " & ft & "BBS_Cate set BBS_Cate_Reply=BBS_Cate_Reply-1 where BBS_Cate_ID='" & BoardID_2 & "'" '114
            conn.Execute ( sql ) '115
            If AspToAspX_CheckDBNull ( deleted ) = 0 Then '116
                sql = "update " & ft & "clubuser set jingyuan=jingyuan-" & repostget & " where clubuser_name='" & rename & "'" '117
                conn.Execute ( sql ) '118
            End If '119
            If AspToAspX_CheckDBNull ( htmfilename ) = EmptyString.Value Or IsDBNull ( htmfilename ) Then '121
                If AspToAspX_CheckDBNull ( Application ( "FTBBSMB" ) ( 7 , 0 ) ) = "M" Then '122
                    htmfilename = Year ( indate ) & Month ( indate ) & "/" & TitleID & htm_ext '123
                Else '124
                    htmfilename = Year ( indate ) & Month ( indate ) & Day ( indate ) & "/" & TitleID & htm_ext '125
                End If '126
                sqlstr = "update " & ft & "bbstitle set htmfilename='" & htmfilename & "' where id=" & TitleID '127
                conn.Execute ( sqlstr ) '128
            End If '129
            htmarray = AspToAspX_Split ( htmfilename , "/" ) '131
            myFolder = htmarray ( 0 ) '132
            htmFolder = myFolder '133
            pagestrnum = htmarray ( 1 ) '134
            myFolder = Server.MapPath ( myFolder ) '135
            fileStreamObj = New Scripting.FileSystemObject ( ) '136
            If AspToAspX_CheckDBNull ( fileStreamObj.FolderExists ( myFolder ) ) = False Then '137
                fileStreamObj.CreateFolder ( myFolder ) '138
            End If '139
            FTBBS_BZ_NAME ( BoardID_1 , ft ) '141
            BBS_Cate_Name1 = Application ( "BBS_Cate_Name1" ) '142
            FTBBS_BZ_NAME2 ( BoardID_1 , BoardID_2 , ft ) '143
            BBS_Cate_Name2 = Application ( "BBS_Cate_Name2" ) '144
            BBS_Cate_Manager_Name = Application ( "BBS_Cate_Manager_Name" ) '145
            BBS_Cate_QS2 = Application ( "BBS_Cate_QS2" ) '146
            AspToAspX_Str = "select * from " & ft & "clubuser where clubuser_name='" & postuser & "'" '148
            rs = New ADODB.Recordset ( ) '149
            rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '150
            If Not rs.EOF Then '151
                clubuser_id = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) '152
                jingyuan = AspToAspX_CheckDBNull(rs.Fields ( "jingyuan" ) .Value) '153
                tili = AspToAspX_CheckDBNull(rs.Fields ( "tili" ) .Value) '154
                clubuser_money = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_money" ) .Value) '155
                img = AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) '156
                clubuser_reg_date = formatdatetime ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_reg_date" ) .Value) , 2 ) '157
                If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) < > EmptyString.Value Then '158
                    signname = ftbbsubbcode ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) '159
                Else '160
                    signname = "<a href=moduserinfo.aspx?postuser=" & getcookie ( "name" ) & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '161
                End If '162
                bz = AspToAspX_CheckDBNull(rs.Fields ( "bbsmanager" ) .Value) '163
                procity = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_province" ) .Value) & AspToAspX_CheckDBNull(rs.Fields ( "clubuser_city" ) .Value) '164
                clubuser_zip = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_zip" ) .Value) '165
                xzstr = "" '166
                If AspToAspX_CheckDBNull ( clubuser_zip ) < > EmptyString.Value Then '167
                    If AspToAspX_CheckDBNull ( InStr ( clubuser_zip , "," ) ) > 0 Then '168
                        xzarr = AspToAspX_Split ( clubuser_zip , "," ) '169
                        For i = 0 To Val ( UBound ( xzarr ) ) '170
                            ar = xzarr ( i ) '171
                            br = AspToAspX_Split ( ar , "|" ) '172
                            xzimg = br ( 0 ) '173
                            xzms = br ( 1 ) '174
                            xzstr = xzstr & "<img src=../images/" & xzimg & " width=20 height=35 alt=" & xzms & "> " '175
                        Next '176
                    Else '177
                        xzarr = AspToAspX_Split ( clubuser_zip , "|" ) '178
                        xzimg = xzarr ( 0 ) '179
                        xzms = xzarr ( 1 ) '180
                        xzstr = xzstr & "<img src=../images/" & xzimg & " width=20 height=35 alt=" & xzms & ">" '181
                    End If '182
                Else '183
                    xzstr = "" '184
                End If '185
            Else '186
                jingyuan = 0 '187
                tili = 100 '188
                img = "cache5.gif" '189
                signname = "<a href=moduserinfo.aspx?postuser=" & getcookie ( "name" ) & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '190
                bz = 0 '191
                procity = "福建厦门" '192
            End If '193
            rs.Close ( ) '194
            rs = Nothing '195
            touxian = touxianvalue ( jingyuan , ft ) '197
            jibie = jibievalue ( jingyuan , ft ) '198
            FTBBS_HTML_MB ( ft ) '199
            pagenum = Application ( "FTBBSMB" ) ( 6 , 0 ) '201
            strsql = "select count(*) as rep from " & ft & "bbsmenu where pid=" & TitleID & " and deleted=0" '202
            rscount = conn.Execute ( strsql ) '203
            repnum = rscount ( "rep" ) '204
            resql = "update " & ft & "bbstitle set rep=" & repnum & ",postnum=" & repnum & " where id=" & TitleID '205
            conn.Execute ( resql ) '206
            k = repnum / pagenum '207
            If AspToAspX_Int ( k ) = k And AspToAspX_Int ( k ) < > 0 Then '209
                pagex = k '210
            Else '211
                pagex = AspToAspX_Int ( k ) + 1 '212
            End If '213
            For page = 1 To Val ( pagex ) '214
                If AspToAspX_CheckDBNull ( page ) = 1 Then '215
                    tourl = htmfilename '216
                    If AspToAspX_CheckDBNull ( pollYN ) = "Y" Then '217
                        postmb = Application ( "FTBBSMB" ) ( 4 , 0 ) '218
                    Else '219
                        postmb = Application ( "FTBBSMB" ) ( 1 , 0 ) '220
                    End If '221
                Else '222
                    tourl = replace ( htmfilename , htm_ext , "" ) & "_" & page & htm_ext '223
                    postmb = Application ( "FTBBSMB" ) ( 37 , 0 ) '224
                End If '225
                floorpage = ( page - 1 ) * pagenum '226
                postmb = replace ( replace ( postmb , "$PostID$" , TitleID ) , "$pagenav$" , page ) '228
                postmb = replace ( postmb , "$page$" , page ) '229
                postmb = replace ( postmb , "$TitleID$" , TitleID ) '230
                postmb = replace ( postmb , "$title$" , retitle ) '231
                postmb = replace ( postmb , "$BoardID_1$" , BoardID_1 ) '232
                postmb = replace ( postmb , "$BoardID_2$" , BoardID_2 ) '233
                postmb = replace ( postmb , "$BBS_Cate_Name1$" , BBS_Cate_Name1 ) '234
                postmb = replace ( postmb , "$BBS_Cate_Name2$" , BBS_Cate_Name2 ) '235
                postmb = replace ( postmb , "$BBS_Cate_Manager_Name$" , BBS_Cate_Manager_Name ) '236
                postmb = replace ( postmb , "$user_id$" , user_id ) '237
                postmb = replace ( postmb , "$userid$" , clubuser_id ) '238
                postmb = replace ( postmb , "$clubuser_money$" , clubuser_money ) '239
                postmb = replace ( postmb , "$touxian$" , touxian ) '240
                postmb = replace ( postmb , "$jibie$" , jibie ) '241
                postmb = replace ( postmb , "$tili$" , tili ) '242
                postmb = replace ( postmb , "$jingyuan$" , jingyuan ) '243
                postmb = replace ( postmb , "$procity$" , procity ) '244
                postmb = replace ( postmb , "$clubuser_reg_date$" , clubuser_reg_date ) '245
                postmb = replace ( postmb , "$clubuser_zip$" , xzstr ) '246
                postmb = replace ( postmb , "$name$" , postuser ) '247
                If AspToAspX_CheckDBNull ( fd ) = 3 Or AspToAspX_CheckDBNull ( fd ) = 4 Or AspToAspX_CheckDBNull ( fd ) = 5 Then '248
                    postmb = replace ( postmb , "$menu$" , "<span id=""loadnl"" name=""loadnl""><img src=""../images/load.gif"" /></span>" ) '249
                Else '250
                    postmb = replace ( postmb , "$menu$" , menu ) '251
                End If '252
            If AspToAspX_CheckDBNull ( BBS_Cate_QS2 ) = EmptyString.Value Then
BBS_Cate_QS2 = 0
End If
    '253
                postmb = replace ( postmb , "{qs}" , BBS_Cate_QS2 ) '254
                postmb = replace ( postmb , "$htmfilename$" , htmfilename ) '255
                postmb = replace ( postmb , "$url$" , url ) '256
                postmb = replace ( postmb , "$zhiye$" , zhiye ) '257
                postmb = replace ( postmb , "$signname$" , signname ) '258
                postmb = replace ( postmb , "$img$" , img ) '259
                postmb = replace ( postmb , "$date$" , indate ) '260
                postmb = replace ( postmb , "$YN$" , YN ) '261
                If AspToAspX_CheckDBNull ( fd ) = 2 Then '262
                    postmb = replace ( postmb , "$upfile$" , "<SCRIPT src=bmform.aspx?titleid=" & TitleID & "></SCRIPT>" ) '263
                Else '264
                    postmb = replace ( postmb , "$upfile$" , "" ) '265
                End If '266
                postmb = replace ( postmb , "$img_url$" , img_url ) '267
                If AspToAspX_CheckDBNull ( pollYN ) = "Y" Then '268
                    postmb = replace ( postmb , "$YNPOLL$" , "Y" ) '269
                Else '270
                    postmb = replace ( postmb , "$YNPOLL$" , "N" ) '271
                End If '272
                repostformmb = Application ( "FTBBSMB" ) ( 3 , 0 ) '274
                repostformmb = replace ( replace ( repostformmb , "$PostID$" , TitleID ) , "$pagenav$" , page ) '275
                If AspToAspX_CheckDBNull ( fd ) = 0 Or AspToAspX_CheckDBNull ( fd ) = 1 Or AspToAspX_CheckDBNull ( fd ) = 2 Then '276
                    repostformmb = replace ( repostformmb , "<script type=""text/javascript"" src=""../ftbbsdtnl.aspx?titleid=$TitleID$""></script>" , "" ) '277
                End If '278
                repostformmb = replace ( repostformmb , "$TitleID$" , TitleID ) '279
                repostformmb = replace ( repostformmb , "$title$" , retitle ) '280
                repostformmb = replace ( repostformmb , "$upfiletype$" , upfiletype ) '281
                repostformmb = replace ( repostformmb , "$BoardID_1$" , BoardID_1 ) '282
                repostformmb = replace ( repostformmb , "$BoardID_2$" , BoardID_2 ) '283
                repostformmb = replace ( repostformmb , "$name$" , postuser ) '284
                repostformmb = replace ( repostformmb , "$htmfilename$" , htmfilename ) '285
                If AspToAspX_CheckDBNull ( pollYN ) = "Y" Then '286
                    repostformmb = replace ( repostformmb , "$pollY$" , "Y" ) '287
                Else '288
                    repostformmb = replace ( repostformmb , "$pollY$" , "N" ) '289
                End If '290
                If AspToAspX_CheckDBNull ( repnum ) > 0 Then '292
                    strsql = "select * from " & ft & "bbsmenu where pid=" & pid & " and deleted=0 order by id asc" '293
                    cus1 = New ADODB.Recordset ( ) '294
                    cus1.Open ( strsql , conn , 3 , 1 ) '295
                    pagenum = Application ( "FTBBSMB" ) ( 6 , 0 ) '296
                    If Not ( cus1.BOF And cus1.EOF ) Then '297
                        cus1.pagesize = pagenum '298
                        If ( AspToAspX_CheckDBNull ( page - cus1.PageCount ) ) > 0 Then '299
                        page = cus1.pagecount '300
                    ElseIf AspToAspX_CheckDBNull ( page ) = ""Or AspToAspX_CheckDBNull ( page ) < 1 Then '301
                        page = 1 '302
                    End If '303
                    cus1.AbsolutePage = page '304
                    j = cus1.RecordCount '306
                    j = j - ( page - 1 ) * pagenum '307
                    i = 0 '309
                    HtmlNLB = "" '310
                    Do While Not cus1.EOF And AspToAspX_CheckDBNull ( i ) < pagenum '311
                        AspToAspX_Str = "select * from " & ft & "clubuser where clubuser_name='" & AspToAspX_CheckDBNull(cus1.Fields ( "rename" ) .Value) & "'" '313
                        rs = New ADODB.Recordset ( ) '314
                        rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '315
                        If Not rs.EOF Then '316
                            clubuser_id = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) '317
                            jingyuan = AspToAspX_CheckDBNull(rs.Fields ( "jingyuan" ) .Value) '318
                            tili = AspToAspX_CheckDBNull(rs.Fields ( "tili" ) .Value) '319
                            clubuser_money = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_money" ) .Value) '320
                            img = AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) '321
                            clubuser_reg_date = formatdatetime ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_reg_date" ) .Value) , 2 ) '322
                            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) < > EmptyString.Value Then '323
                                signname = ftbbsubbcode ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) '324
                            Else '325
                                signname = "<a href=moduserinfo.aspx?postuser=" & getcookie ( "name" ) & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '326
                            End If '327
                            bz = AspToAspX_CheckDBNull(rs.Fields ( "bbsmanager" ) .Value) '328
                            procity = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_province" ) .Value) & AspToAspX_CheckDBNull(rs.Fields ( "clubuser_city" ) .Value) '329
                            clubuser_zip = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_zip" ) .Value) '330
                            rexz = "" '331
                            If AspToAspX_CheckDBNull ( clubuser_zip ) < > EmptyString.Value Then '332
                                If AspToAspX_CheckDBNull ( InStr ( clubuser_zip , "," ) ) > 0 Then '333
                                    rexzarr = AspToAspX_Split ( clubuser_zip , "," ) '334
                                    For k = 0 To Val ( UBound ( rexzarr ) ) '335
                                        ar = rexzarr ( k ) '336
                                        br = AspToAspX_Split ( ar , "|" ) '337
                                        xzimg = br ( 0 ) '338
                                        xzms = br ( 1 ) '339
                                        rexz = rexz & "<img src=../images/" & xzimg & " width=20 height=35 alt=" & xzms & "> " '340
                                    Next '341
                                Else '342
                                    xzarr = AspToAspX_Split ( clubuser_zip , "|" ) '343
                                    xzimg = xzarr ( 0 ) '344
                                    xzms = xzarr ( 1 ) '345
                                    rexz = rexz & "<img src=../images/" & xzimg & " width=20 height=35 alt=" & xzms & ">" '346
                                End If '347
                            Else '348
                                rexz = "" '349
                            End If '350
                        Else '351
                            jingyuan = 0 '352
                            tili = 100 '353
                            img = "cache5.gif" '354
                            signname = "<a href=moduserinfo.aspx?postuser=" & getcookie ( "name" ) & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '355
                            bz = 0 '356
                            procity = "福建厦门" '357
                        End If '358
                        rs.Close ( ) '359
                        rs = Nothing '360
                        reid = AspToAspX_CheckDBNull(cus1.Fields ( "id" ) .Value) '361
                        reuser = AspToAspX_CheckDBNull(cus1.Fields ( "user_id" ) .Value) '362
                        reuser_id = AspToAspX_CheckDBNull(cus1.Fields ( "rename" ) .Value) '363
                        rebbs_img = AspToAspX_CheckDBNull(cus1.Fields ( "bbs_img" ) .Value) '364
                        AspToAspX_DateTime = AspToAspX_CheckDBNull(cus1.Fields ( "dateh" ) .Value) '366
                        postnum = postnum + 1 '367
                        bbs_img_text = AspToAspX_CheckDBNull(cus1.Fields ( "bbs_img_text" ) .Value) '368
                        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(cus1.Fields ( "bbs_img" ) .Value) ) < > EmptyString.Value And AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(cus1.Fields ( "bbs_img_display" ) .Value) ) = 1 Then '369
                            REYN = "Y" '370
                        Else '371
                            REYN = "N" '372
                        End If '373
                        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(cus1.Fields ( "img_url_display" ) .Value) ) = 1 Then '374
                            reimg_url = AspToAspX_CheckDBNull(cus1.Fields ( "img_url" ) .Value) '375
                        Else '376
                            reimg_url = "" '377
                        End If '378
                        touxian = touxianvalue ( jingyuan , ft ) '380