editpostact.aspx.vb

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

            rsr.Fields ( "titlecolor" ) .Value = titlecolor '95
            If AspToAspX_CheckDBNull ( flag ) < > EmptyString.Value Then '96
                rsr.Fields ( "flag" ) .Value = flag '97
            End If '98
            If AspToAspX_CheckDBNull ( xsjf ) < > EmptyString.Value Or AspToAspX_CheckDBNull ( xsdaynum ) < > EmptyString.Value Then '99
                rsr.Fields ( "xsjf" ) .Value = xsjf '100
                rsr.Fields ( "xsdaynum" ) .Value = xsdaynum '101
            End If '102
        Else '103
            rsr.Fields ( "remenu" ) .Value = menu '104
        End If '105
        mod_bbs_img = AspToAspX_CheckDBNull(rsr.Fields ( "bbs_img" ) .Value) '106
        rsr.Fields ( "img_url" ) .Value = "[此贴子已经被" & cookiesbbsuser & "于" & DateAndTime.Now & "编辑过]" '108
        rsr.Fields ( "img_url_display" ) .Value = 1 '109
        rsr.Update ( ) '111
        rsr.Close ( ) '112
        rsr = Nothing '113
        sql0 = "select * from " & ft & "bbstitle where id=" & pid '130
        rs0 = New ADODB.Recordset ( ) '131
        rs0.Open ( sql0 , conn , 1 , 1 ) '132
        htmfilename = AspToAspX_CheckDBNull(rs0.Fields ( "htmfilename" ) .Value) '133
        indate = AspToAspX_CheckDBNull(rs0.Fields ( "dateh" ) .Value) '134
        postnum = AspToAspX_CheckDBNull(rs0.Fields ( "rep" ) .Value) '135
        bbstitlemenu = AspToAspX_CheckDBNull(rs0.Fields ( "menu" ) .Value) '136
        img_url = AspToAspX_CheckDBNull(rs0.Fields ( "img_url" ) .Value) '137
    If IsDBNull ( img_url ) Then
img_url = ""
End If
    '138
        postuser = AspToAspX_CheckDBNull(rs0.Fields ( "name" ) .Value) '139
        fd = AspToAspX_CheckDBNull(rs0.Fields ( "flag" ) .Value) '140
        If AspToAspX_CheckDBNull ( reid ) < > EmptyString.Value Then '142
            BoardID_1 = AspToAspX_CheckDBNull(rs0.Fields ( "BoardID_1" ) .Value) '143
            BoardID_2 = AspToAspX_CheckDBNull(rs0.Fields ( "BoardID_2" ) .Value) '144
            title = AspToAspX_CheckDBNull(rs0.Fields ( "title" ) .Value) '145
        End If '146
        If AspToAspX_CheckDBNull ( BoardID_1 ) = EmptyString.Value Or AspToAspX_CheckDBNull ( BoardID_2 ) = EmptyString.Value Then '147
            BoardID_1 = AspToAspX_CheckDBNull(rs0.Fields ( "BoardID_1" ) .Value) '148
            BoardID_2 = AspToAspX_CheckDBNull(rs0.Fields ( "BoardID_2" ) .Value) '149
        End If '150
        rs0.Close ( ) '151
        If AspToAspX_CheckDBNull ( reid ) = EmptyString.Value And AspToAspX_CheckDBNull ( postuser ) < > cookiesname Then '152
            sqlstr = "update " & ft & "bbsmenu set BoardID_1='" & BoardID_1 & "',BoardID_2='" & BoardID_2 & "' where pid=" & pid '153
            conn.Execute ( sqlstr ) '154
        End If '155
        If AspToAspX_CheckDBNull ( bbs_img_display ) < > EmptyString.Value Then '156
            sqlstr = "update " & ft & "bbstitle set bbs_img_display=" & bbs_img_display & ",bbs_img='" & bbs_img & "',redate='" & Ftbbs_Time & "' where id=" & pid '157
        Else '158
            sqlstr = "update " & ft & "bbstitle set redate='" & Ftbbs_Time & "' where id=" & pid '159
        End If '160
        conn.Execute ( sqlstr ) '161
        If AspToAspX_CheckDBNull ( BoardID_1 ) < > EmptyString.Value And AspToAspX_CheckDBNull ( BoardID_2 ) < > EmptyString.Value Then '163
            FTBBS_BZ_NAME ( BoardID_1 , ft ) '164
            BBS_Cate_Name1 = Application ( "BBS_Cate_Name1" ) '165
            FTBBS_BZ_NAME2 ( BoardID_1 , BoardID_2 , ft ) '166
            BBS_Cate_Name2 = Application ( "BBS_Cate_Name2" ) '167
            BBS_Cate_Manager_Name = Application ( "BBS_Cate_Manager_Name" ) '168
            BBS_Cate_QS2 = Application ( "BBS_Cate_QS2" ) '169
        End If '170
        AspToAspX_Str = "select * from " & ft & "clubuser where clubuser_name='" & postuser & "'" '172
        rs = New ADODB.Recordset ( ) '173
        rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '174
        If Not rs.EOF Then '175
            clubuser_id = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) '176
            user_id = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_nickname" ) .Value) '177
            img = AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) '178
            jingyuan = AspToAspX_CheckDBNull(rs.Fields ( "jingyuan" ) .Value) '179
            tili = AspToAspX_CheckDBNull(rs.Fields ( "tili" ) .Value) '180
            clubuser_money = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_money" ) .Value) '181
            img = AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) '182
            clubuser_reg_date = formatdatetime ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_reg_date" ) .Value) , 2 ) '183
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) < > EmptyString.Value Then '184
                signname = ftbbsubbcode ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) '185
            Else '186
                signname = "<a href=../moduserinfo.aspx?postuser=" & postuser & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '187
            End If '188
            bz = AspToAspX_CheckDBNull(rs.Fields ( "bbsmanager" ) .Value) '189
            procity = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_province" ) .Value) & AspToAspX_CheckDBNull(rs.Fields ( "clubuser_city" ) .Value) '190
            clubuser_zip = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_zip" ) .Value) '191
            xzstr = "" '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
        TitleID = pid '225
        retitle = title '226
        If AspToAspX_CheckDBNull ( page ) = 1 Then '228
            xfilename = htmfilename '229
            If AspToAspX_CheckDBNull ( fd ) = 1 Then '231
                postmb = Application ( "FTBBSMB" ) ( 4 , 0 ) '232
            Else '233
                postmb = Application ( "FTBBSMB" ) ( 1 , 0 ) '234
            End If '235
        Else '236
            xfilename = replace ( htmfilename , htm_ext , "" ) & "_" & page & htm_ext '237
            postmb = Application ( "FTBBSMB" ) ( 37 , 0 ) '238
        End If '239
        repostmb = Application ( "FTBBSMB" ) ( 2 , 0 ) '240
        repostformmb = Application ( "FTBBSMB" ) ( 3 , 0 ) '241
        floorpage = ( page - 1 ) * Application ( "FTBBSMB" ) ( 6 , 0 ) '242
        If AspToAspX_CheckDBNull ( reid ) = EmptyString.Value And AspToAspX_CheckDBNull ( postuser ) < > cookiesname Then '244
            sendsms ( cookiesname , postuser , xfilename , title , 1 , ft ) '245
        End If '246
        If AspToAspX_CheckDBNull ( Application ( "FTBBSMB" ) ( 8 , 0 ) ) = 1 Then '248
            home = "default_list.aspx" '249
            mainbbscate = "main.aspx" '250
            bbsfbht = "fbht.aspx" '251
            bbspoll = "bbspoll.aspx" '252
        End If '253
        postmb = replace ( replace ( postmb , "$PostID$" , TitleID ) , "$pagenav$" , page ) '254
        postmb = replace ( postmb , "$page$" , page ) '255
        postmb = replace ( postmb , "$home$" , home ) '257
        postmb = replace ( postmb , "$main$" , mainbbscate ) '258
        postmb = replace ( postmb , "$fbht$" , bbsfbht ) '259
        postmb = replace ( postmb , "$bbspoll$" , bbspoll ) '260
        postmb = replace ( postmb , "$TitleID$" , TitleID ) '262
        postmb = replace ( postmb , "$Titleid$" , TitleID ) '263
        postmb = replace ( postmb , "$title$" , retitle ) '264
        postmb = replace ( postmb , "$BoardID_1$" , BoardID_1 ) '265
        postmb = replace ( postmb , "$BoardID_2$" , BoardID_2 ) '266
        postmb = replace ( postmb , "$BBS_Cate_Name1$" , BBS_Cate_Name1 ) '267
        postmb = replace ( postmb , "$BBS_Cate_Name2$" , BBS_Cate_Name2 ) '268
        postmb = replace ( postmb , "$BBS_Cate_Manager_Name$" , BBS_Cate_Manager_Name ) '269
        postmb = replace ( postmb , "$user_id$" , user_id ) '270
        postmb = replace ( postmb , "$userid$" , clubuser_id ) '271
        postmb = replace ( postmb , "$clubuser_money$" , clubuser_money ) '272
        postmb = replace ( postmb , "$touxian$" , touxian ) '273
        postmb = replace ( postmb , "$jibie$" , jibie ) '274
        postmb = replace ( postmb , "$tili$" , tili ) '275
        postmb = replace ( postmb , "$jingyuan$" , jingyuan ) '276
        postmb = replace ( postmb , "$procity$" , procity ) '277
        postmb = replace ( postmb , "$clubuser_reg_date$" , clubuser_reg_date ) '278
        postmb = replace ( postmb , "$clubuser_zip$" , xzstr ) '279
        postmb = replace ( postmb , "$name$" , postuser ) '280
        If AspToAspX_CheckDBNull ( fd ) = 3 Or AspToAspX_CheckDBNull ( fd ) = 4 Or AspToAspX_CheckDBNull ( fd ) = 5 Then '281
            postmb = replace ( postmb , "$menu$" , "<span id=""loadnl"" name=""loadnl""><img src=""../images/load.gif"" /></span>" ) '282
        Else '283
            postmb = replace ( postmb , "$menu$" , bbstitlemenu ) '284
        End If '285
    If AspToAspX_CheckDBNull ( BBS_Cate_QS2 ) = EmptyString.Value Then
BBS_Cate_QS2 = 0
End If
    '286
        postmb = replace ( postmb , "{qs}" , BBS_Cate_QS2 ) '287
        postmb = replace ( postmb , "$htmfilename$" , htmfilename ) '288
        postmb = replace ( postmb , "$url$" , url ) '289
        postmb = replace ( postmb , "$zhiye$" , zhiye ) '290
        postmb = replace ( postmb , "$signname$" , signname ) '291
        postmb = replace ( postmb , "$img$" , img ) '292
        postmb = replace ( postmb , "$date$" , indate ) '293
        If AspToAspX_CheckDBNull ( fd ) = 2 Then '295
            postmb = replace ( postmb , "$upfile$" , "<SCRIPT src=../bmform.aspx?titleid=" & TitleID & "></SCRIPT>" ) '296
        Else '297
            postmb = replace ( postmb , "$upfile$" , "" ) '298
        End If '299
        postmb = replace ( postmb , "$YN$" , YN ) '300
        postmb = replace ( postmb , "$img_url$" , img_url ) '301
        repostformmb = replace ( replace ( repostformmb , "$PostID$" , TitleID ) , "$pagenav$" , page ) '303
        If AspToAspX_CheckDBNull ( fd ) = 0 Or AspToAspX_CheckDBNull ( fd ) = 1 Or AspToAspX_CheckDBNull ( fd ) = 2 Then '304
            repostformmb = replace ( repostformmb , "<script type=""text/javascript"" src=""../ftbbsdtnl.aspx?titleid=$TitleID$""></script>" , "" ) '305
        End If '306
        repostformmb = replace ( repostformmb , "$TitleID$" , TitleID ) '307
        repostformmb = replace ( repostformmb , "$title$" , retitle ) '308
        repostformmb = replace ( repostformmb , "$upfiletype$" , upfiletype ) '309
        repostformmb = replace ( repostformmb , "$BoardID_1$" , BoardID_1 ) '310
        repostformmb = replace ( repostformmb , "$BoardID_2$" , BoardID_2 ) '311
        repostformmb = replace ( repostformmb , "$name$" , postuser ) '312
        repostformmb = replace ( repostformmb , "$htmfilename$" , htmfilename ) '313
        repostformmb = replace ( repostformmb , "$filename$" , FileName ) '314
        strsql = "select * from " & ft & "bbsmenu where pid=" & pid & " and deleted=0 order by id asc" '315
        cus1 = New ADODB.Recordset ( ) '316
        cus1.Open ( strsql , conn , 3 , 1 ) '317
        pagenum = Application ( "FTBBSMB" ) ( 6 , 0 ) '318
        If Not ( cus1.BOF And cus1.EOF ) Then '319
            cus1.pagesize = pagenum '320
            If ( AspToAspX_CheckDBNull ( page - cus1.PageCount ) ) > 0 Then '321
            page = cus1.pagecount '322
        ElseIf AspToAspX_CheckDBNull ( page ) = ""Or AspToAspX_CheckDBNull ( page ) < 1 Then '323
            page = 1 '324
        End If '325
        cus1.AbsolutePage = page '326
        j = cus1.RecordCount '327
        j = j - ( page - 1 ) * pagenum '328
        i = 0 '329
        Do While Not cus1.EOF And AspToAspX_CheckDBNull ( i ) < pagenum '330
            AspToAspX_Str = "select * from " & ft & "clubuser where clubuser_name='" & AspToAspX_CheckDBNull(cus1.Fields ( "rename" ) .Value) & "'" '331
            rs = New ADODB.Recordset ( ) '332
            rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '333
            If Not rs.EOF Then '334
                clubuser_id = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) '335
                jingyuan = AspToAspX_CheckDBNull(rs.Fields ( "jingyuan" ) .Value) '336
                tili = AspToAspX_CheckDBNull(rs.Fields ( "tili" ) .Value) '337
                clubuser_money = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_money" ) .Value) '338
                img = AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) '339
                clubuser_reg_date = formatdatetime ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_reg_date" ) .Value) , 2 ) '340
                If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) < > EmptyString.Value Then '341
                    signname = ftbbsubbcode ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) '342
                Else '343
                    signname = "<a href=../moduserinfo.aspx?postuser=" & AspToAspX_CheckDBNull(cus1.Fields ( "rename" ) .Value) & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '344
                End If '345
                bz = AspToAspX_CheckDBNull(rs.Fields ( "bbsmanager" ) .Value) '346
                procity = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_province" ) .Value) & AspToAspX_CheckDBNull(rs.Fields ( "clubuser_city" ) .Value) '347
                clubuser_zip = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_zip" ) .Value) '348
                rexz = "" '349
                If AspToAspX_CheckDBNull ( clubuser_zip ) < > EmptyString.Value Then '350
                    If AspToAspX_CheckDBNull ( InStr ( clubuser_zip , "," ) ) > 0 Then '351
                        rexzarr = AspToAspX_Split ( clubuser_zip , "," ) '352
                        For k = 0 To Val ( UBound ( rexzarr ) ) '353
                            ar = rexzarr ( k ) '354
                            br = AspToAspX_Split ( ar , "|" ) '355
                            xzimg = br ( 0 ) '356
                            xzms = br ( 1 ) '357
                            rexz = rexz & "<img src=../images/" & xzimg & " width=20 height=35 alt=" & xzms & "> " '358
                        Next '359
                    Else '360
                        xzarr = AspToAspX_Split ( clubuser_zip , "|" ) '361
                        xzimg = xzarr ( 0 ) '362
                        xzms = xzarr ( 1 ) '363
                        rexz = rexz & "<img src=../images/" & xzimg & " width=20 height=35 alt=" & xzms & ">" '364
                    End If '365
                Else '366
                    rexz = "" '367
                End If '368
            Else '369
                jingyuan = 0 '370
                tili = 100 '371
                img = "cache5.gif" '372
                signname = "<a href=../moduserinfo.aspx?postuser=" & AspToAspX_CheckDBNull(cus1.Fields ( "rename" ) .Value) & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '373
                bz = 0 '374
                procity = "福建厦门" '375
            End If '376
            rs.Close ( ) '377
            rs = Nothing '378
            reid = AspToAspX_CheckDBNull(cus1.Fields ( "id" ) .Value) '379
            reuser = AspToAspX_CheckDBNull(cus1.Fields ( "user_id" ) .Value) '380
            reuser_id = AspToAspX_CheckDBNull(cus1.Fields ( "rename" ) .Value) '381