recheck.aspx.vb

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

    postnum = AspToAspX_CheckDBNull(rers.Fields ( "postnum" ) .Value) '128
    BoardID_1 = AspToAspX_CheckDBNull(rers.Fields ( "BoardID_1" ) .Value) '129
    BoardID_2 = AspToAspX_CheckDBNull(rers.Fields ( "BoardID_2" ) .Value) '130
    menu = AspToAspX_CheckDBNull(rers.Fields ( "menu" ) .Value) '131
    indate = AspToAspX_CheckDBNull(rers.Fields ( "dateh" ) .Value) '132
    zhiye = AspToAspX_CheckDBNull(rers.Fields ( "zhiye" ) .Value) '133
    bbs_img_display = AspToAspX_CheckDBNull(rers.Fields ( "bbs_img_display" ) .Value) '134
    bbs_img = AspToAspX_CheckDBNull(rers.Fields ( "bbs_img" ) .Value) '135
    bbs_img_text = AspToAspX_CheckDBNull(rers.Fields ( "bbs_img_text" ) .Value) '136
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rers.Fields ( "img_url_display" ) .Value) ) = 1 Then '137
        img_url = AspToAspX_CheckDBNull(rers.Fields ( "img_url" ) .Value) '138
    Else '139
        img_url = "" '140
    End If '141
    fd = AspToAspX_CheckDBNull(rers.Fields ( "flag" ) .Value) '142
    dbreinfo = AspToAspX_CheckDBNull(rers.Fields ( "reinfo" ) .Value) '143
    rers.Close ( ) '144
    rers = Nothing '145
    nlstr = Request ( "remenu" ) '146
    If AspToAspX_CheckDBNull ( clearnulllen ( nlstr ) ) < 3 Or AspToAspX_CheckDBNull ( remenu ) = EmptyString.Value Then '147
        ftbbs_msg ( "你输入的内容太少，最少为3个字!" , htmfilename ) '148
    End If '149
    If AspToAspX_CheckDBNull ( P_display ) = "0" Then '150
        ftbbs_msg ( "该主题贴被禁止回贴!" , htmfilename ) '151
    End If '152
    fldarray = AspToAspX_Split ( htmfilename , "/" , - 1 , 1 ) '153
    infolder = fldarray ( 0 ) '154
    filename = fldarray ( 1 ) '155
    FTBBS_BZ_NAME ( BoardID_1 , ft ) '162
    BBS_Cate_Name1 = Application ( "BBS_Cate_Name1" ) '163
    BBS_Cate_QS1 = Application ( "BBS_Cate_QS1" ) '164
    FTBBS_BZ_NAME2 ( BoardID_1 , BoardID_2 , ft ) '165
    BBS_Cate_Name2 = Application ( "BBS_Cate_Name2" ) '166
    BBS_Cate_Manager_Name = Application ( "BBS_Cate_Manager_Name" ) '167
    BBS_Cate_QS2 = Application ( "BBS_Cate_QS2" ) '168
    If ( AspToAspX_CheckDBNull ( getcookie ( "bz" ) ) < > 1 And AspToAspX_CheckDBNull ( getcookie ( "bbsadmin" ) ) < > 1 ) And ( AspToAspX_CheckDBNull ( BBS_Cate_QS1 ) = 5 Or AspToAspX_CheckDBNull ( BBS_Cate_QS2 ) = 5 ) Then '169
    ftbbs_msg ( "你权限太低不能回贴!" , htmfilename ) '170
    End If '171
    AspToAspX_Str = "update " & ft & "clubuser set jingyuan=jingyuan+" & topostget & " where clubuser_name='" & postuser & "' and clubuser_name<>'" & name_cookie & "'" '173
    conn.Execute ( AspToAspX_Str ) '174
    AspToAspX_Str = "select * from " & ft & "clubuser where clubuser_name='" & postuser & "'" '175
    rs = New ADODB.Recordset ( ) '176
    rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '177
    If Not rs.EOF Then '178
        clubuser_id = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) '179
        jingyuan = AspToAspX_CheckDBNull(rs.Fields ( "jingyuan" ) .Value) '180
        tili = AspToAspX_CheckDBNull(rs.Fields ( "tili" ) .Value) '181
        clubuser_money = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_money" ) .Value) '182
        img = AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) '183
        clubuser_reg_date = formatdatetime ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_reg_date" ) .Value) , 2 ) '184
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) < > EmptyString.Value Then '185
            signname = ftbbsubbcode ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) '186
        Else '187
            signname = "<a href=../moduserinfo.aspx?postuser=" & postuser & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '188
        End If '189
        bz = AspToAspX_CheckDBNull(rs.Fields ( "bbsmanager" ) .Value) '190
        procity = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_province" ) .Value) & AspToAspX_CheckDBNull(rs.Fields ( "clubuser_city" ) .Value) '191
        clubuser_zip = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_zip" ) .Value) '192
        If AspToAspX_CheckDBNull ( clubuser_zip ) < > EmptyString.Value Then '193
            If AspToAspX_CheckDBNull ( InStr ( clubuser_zip , "," ) ) > 0 Then '194
                xzarr = AspToAspX_Split ( clubuser_zip , "," ) '195
                For i = 0 To Val ( UBound ( xzarr ) ) '196
                    ar = xzarr ( i ) '197
                    br = AspToAspX_Split ( ar , "|" ) '198
                    xzimg = br ( 0 ) '199
                    xzms = br ( 1 ) '200
                    xzstr = xzstr & "<img src=../images/" & xzimg & " width=20 height=35 alt=" & xzms & "> " '201
                Next '202
            Else '203
                xzarr = AspToAspX_Split ( clubuser_zip , "|" ) '204
                xzimg = xzarr ( 0 ) '205
                xzms = xzarr ( 1 ) '206
                xzstr = xzstr & "<img src=../images/" & xzimg & " width=20 height=35 alt=" & xzms & ">" '207
            End If '208
        Else '209
            xzstr = "" '210
        End If '211
    Else '212
        jingyuan = 0 '213
        tili = 100 '214
        img = "cache5.gif" '215
        signname = "<a href=../moduserinfo.aspx?postuser=" & postuser & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '216
        bz = 0 '217
        procity = "福建厦门" '218
    End If '219
    rs.Close ( ) '220
    rs = Nothing '221
    touxian = touxianvalue ( jingyuan , ft ) '223
    jibie = jibievalue ( jingyuan , ft ) '224
    bbs = New ADODB.Recordset ( ) '227
    sql = "select * from " & ft & "bbsmenu where (id is null)" '228
    bbs.Open ( sql , conn , 1 , 3 ) '229
    bbs.addnew ( ) '230
    bbs.Fields ( "pid" ) .Value = pid '231
    bbs.Fields ( "BoardID_1" ) .Value = BoardID_1 '232
    bbs.Fields ( "BoardID_2" ) .Value = BoardID_2 '233
    bbs.Fields ( "user_id" ) .Value = rename '234
    bbs.Fields ( "rename" ) .Value = rename '235
    bbs.Fields ( "remail" ) .Value = remail '236
    bbs.Fields ( "remenu" ) .Value = remenu '237
    bbs.Fields ( "retel" ) .Value = retel '238
    bbs.Fields ( "reip" ) .Value = ip '239
    reindate = Ftbbs_Time '240
    bbs.Fields ( "dateh" ) .Value = reindate '241
    bbs.Fields ( "kind" ) .Value = 0 '242
    bbs.Fields ( "usertype" ) .Value = usertype '243
    bbs.Fields ( "img_url" ) .Value = img_url '244
    bbs.Fields ( "img_url_text" ) .Value = img_url_text '245
    bbs.Fields ( "img_url_display" ) .Value = 0 '246
    bbs.Fields ( "deleted" ) .Value = deletedvalue '247
    bbs.Update ( ) '248
    bbs.Close ( ) '249
    bbs = Nothing '250
    AspToAspX_DateTime = reindate '251
    reinfo = dbreinfo & "|" & reindate & "," & rename & "|" '253
    If AspToAspX_CheckIsNothing ( Request.Form ( "bbs_img_display" ) ) < > EmptyString.Value Then '255
        bbs_img_display = AspToAspX_CheckIsNothing ( Request.Form ( "bbs_img_display" ) ) '256
        bbs_img = AspToAspX_CheckIsNothing ( Request.Form ( "bbs_img" ) ) '257
    End If '258
    If AspToAspX_CheckDBNull ( bbs_img_display ) < > EmptyString.Value Then '263
        strsql = "update " & ft & "bbstitle set bbs_img_display=" & bbs_img_display & ",bbs_img='" & bbs_img & "',rep=rep+1,postnum=postnum+1,redate='" & reindate & "',reinfo='" & reinfo & "' where id=" & pid '264
    Else '265
        strsql = "update " & ft & "bbstitle set rep=rep+1,postnum=postnum+1,redate='" & reindate & "',reinfo='" & reinfo & "' where id=" & pid '266
    End If '267
    conn.Execute ( strsql ) '268
    strsql = "update " & ft & "BBS_Cate set BBS_Cate_Reply=BBS_Cate_Reply+1 where BBS_Cate_ID='" & BoardID_1 & "'" '269
    conn.Execute ( strsql ) '270
    If AspToAspX_CheckDBNull ( BoardID_2 ) < > EmptyString.Value Then '271
        strsql = "update " & ft & "BBS_Cate set BBS_Cate_Reply=BBS_Cate_Reply+1 where BBS_Cate_ID='" & BoardID_2 & "'" '272
        conn.Execute ( strsql ) '273
    End If '274
    rsql = "update " & ft & "clubuser set jingyuan=jingyuan+" & repostget & " where clubuser_name='" & name_cookie & "'" '278
    conn.Execute ( rsql ) '279
    pagenum = Application ( "FTBBSMB" ) ( 6 , 0 ) '281
    k = ( rep + 1 ) / pagenum '282
    If AspToAspX_Int ( k ) = k And AspToAspX_Int ( k ) < > 0 Then '284
        page = k '285
    Else '286
        page = AspToAspX_Int ( k ) + 1 '287
    End If '288
    floorpage = ( page - 1 ) * pagenum '289
    If AspToAspX_CheckDBNull ( page ) = 1 Then '290
        tourl = htmfilename '291
        If AspToAspX_CheckDBNull ( fd ) = 1 Then '292
            postmb = Application ( "FTBBSMB" ) ( 4 , 0 ) '293
        Else '294
            postmb = Application ( "FTBBSMB" ) ( 1 , 0 ) '295
        End If '296
    Else '297
        postmb = Application ( "FTBBSMB" ) ( 37 , 0 ) '298
        tourl = replace ( htmfilename , htm_ext , "" ) & "_" & page & htm_ext '299
    End If '300
    repostmb = Application ( "FTBBSMB" ) ( 2 , 0 ) '301
    repostformmb = Application ( "FTBBSMB" ) ( 3 , 0 ) '302
    If AspToAspX_CheckDBNull ( Application ( "FTBBSMB" ) ( 8 , 0 ) ) = 1 Then '304
        home = "default_list.aspx" '305
        mainbbscate = "main.aspx" '306
        bbsfbht = "fbht.aspx" '307
        bbspoll = "bbspoll.aspx" '308
    End If '309
    postmb = replace ( replace ( postmb , "$PostID$" , TitleID ) , "$pagenav$" , page ) '311
    postmb = replace ( postmb , "$page$" , page ) '312
    postmb = replace ( postmb , "$home$" , home ) '314
    postmb = replace ( postmb , "$main$" , mainbbscate ) '315
    postmb = replace ( postmb , "$fbht$" , bbsfbht ) '316
    postmb = replace ( postmb , "$bbspoll$" , bbspoll ) '317
    postmb = replace ( postmb , "$TitleID$" , TitleID ) '319
    postmb = replace ( postmb , "$title$" , retitle ) '320
    postmb = replace ( postmb , "$BoardID_1$" , BoardID_1 ) '321
    postmb = replace ( postmb , "$BoardID_2$" , BoardID_2 ) '322
    postmb = replace ( postmb , "$BBS_Cate_Name1$" , BBS_Cate_Name1 ) '323
    postmb = replace ( postmb , "$BBS_Cate_Name2$" , BBS_Cate_Name2 ) '324
    postmb = replace ( postmb , "$BBS_Cate_Manager_Name$" , BBS_Cate_Manager_Name ) '325
    postmb = replace ( postmb , "$user_id$" , user_id ) '326
    postmb = replace ( postmb , "$userid$" , clubuser_id ) '327
    postmb = replace ( postmb , "$clubuser_money$" , clubuser_money ) '328
    postmb = replace ( postmb , "$touxian$" , touxian ) '329
    postmb = replace ( postmb , "$jibie$" , jibie ) '330
    postmb = replace ( postmb , "$tili$" , tili ) '331
    postmb = replace ( postmb , "$jingyuan$" , jingyuan ) '332
    postmb = replace ( postmb , "$procity$" , procity ) '333
    postmb = replace ( postmb , "$clubuser_reg_date$" , clubuser_reg_date ) '334
    postmb = replace ( postmb , "$clubuser_zip$" , xzstr ) '335
    postmb = replace ( postmb , "$name$" , postuser ) '336
    If AspToAspX_CheckDBNull ( fd ) = 3 Or AspToAspX_CheckDBNull ( fd ) = 4 Or AspToAspX_CheckDBNull ( fd ) = 5 Then '337
        postmb = replace ( postmb , "$menu$" , "<span id=""loadnl"" name=""loadnl""><img src=""../images/load.gif"" /></span>" ) '339
    Else '340
        postmb = replace ( postmb , "$menu$" , menu ) '341
    End If '342
    If AspToAspX_CheckDBNull ( BBS_Cate_QS2 ) = EmptyString.Value Then
BBS_Cate_QS2 = 0
End If
    '343
        postmb = replace ( postmb , "{qs}" , BBS_Cate_QS2 ) '344
        postmb = replace ( postmb , "$htmfilename$" , htmfilename ) '345
        postmb = replace ( postmb , "$url$" , url ) '346
        postmb = replace ( postmb , "$zhiye$" , zhiye ) '347
        postmb = replace ( postmb , "$signname$" , signname ) '348
        postmb = replace ( postmb , "$img$" , img ) '349
        postmb = replace ( postmb , "$date$" , indate ) '350
        If AspToAspX_CheckDBNull ( fd ) = 2 Then '352
            postmb = replace ( postmb , "$upfile$" , "<SCRIPT src=../bmform.aspx?titleid=" & TitleID & "></SCRIPT>" ) '353
        Else '354
            postmb = replace ( postmb , "$upfile$" , "" ) '355
        End If '356
        postmb = replace ( postmb , "$img_url$" , img_url ) '357
        repostformmb = replace ( replace ( repostformmb , "$PostID$" , TitleID ) , "$pagenav$" , page ) '358
        If AspToAspX_CheckDBNull ( fd ) = 0 Or AspToAspX_CheckDBNull ( fd ) = 1 Or AspToAspX_CheckDBNull ( fd ) = 2 Or AspToAspX_CheckDBNull ( page ) < > 1 Then '359
            repostformmb = replace ( repostformmb , "<script type=""text/javascript"" src=""../ftbbsdtnl.aspx?titleid=$TitleID$""></script>" , "" ) '360
        End If '361
        repostformmb = replace ( repostformmb , "$TitleID$" , TitleID ) '362
        repostformmb = replace ( repostformmb , "$title$" , retitle ) '363
        repostformmb = replace ( repostformmb , "$upfiletype$" , upfiletype ) '364
        repostformmb = replace ( repostformmb , "$BoardID_1$" , BoardID_1 ) '365
        repostformmb = replace ( repostformmb , "$BoardID_2$" , BoardID_2 ) '366
        repostformmb = replace ( repostformmb , "$name$" , postuser ) '367
        repostformmb = replace ( repostformmb , "$filename$" , htmfilename ) '369
        strsql = "select * from " & ft & "bbsmenu where pid=" & pid & " and deleted=0 order by id asc" '370
        cus1 = New ADODB.Recordset ( ) '371
        cus1.Open ( strsql , conn , 3 , 1 ) '372
        If Not ( cus1.BOF And cus1.EOF ) Then '373
            cus1.pagesize = pagenum '374
            dbPageNum = cus1.PageCount '375
        If AspToAspX_CheckDBNull ( page ) > dbPageNum Then
page = dbPageNum
End If
    '376
        If AspToAspX_CheckDBNull ( page ) = 0 Then
page = 1
End If
    '377
            cus1.AbsolutePage = page '378
            i = 1 '379
            While Not cus1.EOF And AspToAspX_CheckDBNull ( i ) < = pagenum '380
                AspToAspX_Str = "select * from " & ft & "clubuser where clubuser_name='" & AspToAspX_CheckDBNull(cus1.Fields ( "rename" ) .Value) & "'" '382
                rs = New ADODB.Recordset ( ) '383
                rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '384
                If Not rs.EOF Then '385
                    clubuser_id = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) '386
                    jingyuan = AspToAspX_CheckDBNull(rs.Fields ( "jingyuan" ) .Value) '387
                    tili = AspToAspX_CheckDBNull(rs.Fields ( "tili" ) .Value) '388
                    clubuser_money = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_money" ) .Value) '389
                    img = AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) '390
                    clubuser_reg_date = formatdatetime ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_reg_date" ) .Value) , 2 ) '391
                    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) < > EmptyString.Value Then '392
                        signname = ftbbsubbcode ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) '393
                    Else '394
                        signname = "<a href=../moduserinfo.aspx?postuser=" & AspToAspX_CheckDBNull(cus1.Fields ( "rename" ) .Value) & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '395
                    End If '396
                    bz = AspToAspX_CheckDBNull(rs.Fields ( "bbsmanager" ) .Value) '397
                    procity = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_province" ) .Value) & AspToAspX_CheckDBNull(rs.Fields ( "clubuser_city" ) .Value) '398
                    clubuser_zip = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_zip" ) .Value) '399
                    rexz = "" '400
                    If AspToAspX_CheckDBNull ( clubuser_zip ) < > EmptyString.Value Then '401
                        If AspToAspX_CheckDBNull ( InStr ( clubuser_zip , "," ) ) > 0 Then '402
                            rexzarr = AspToAspX_Split ( clubuser_zip , "," ) '403
                            For k = 0 To Val ( UBound ( rexzarr ) ) '404
                                ar = rexzarr ( k ) '405
                                br = AspToAspX_Split ( ar , "|" ) '406
                                xzimg = br ( 0 ) '407
                                xzms = br ( 1 ) '408
                                rexz = rexz & "<img src=../images/" & xzimg & " width=20 height=35 alt=" & xzms & "> " '409
                            Next '410
                        Else '411
                            xzarr = AspToAspX_Split ( clubuser_zip , "|" ) '412
                            xzimg = xzarr ( 0 ) '413
                            xzms = xzarr ( 1 ) '414
                            rexz = rexz & "<img src=../images/" & xzimg & " width=20 height=35 alt=" & xzms & ">" '415
                        End If '416
                    Else '417
                        rexz = "" '418
                    End If '419
                Else '420
                    jingyuan = 0 '421
                    tili = 100 '422
                    img = "cache5.gif" '423