bbspollact.aspx.vb

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

    indate = AspToAspX_CheckDBNull(rsr.Fields ( "dateh" ) .Value) '197
    TitleID = AspToAspX_CheckDBNull(rsr.Fields ( "id" ) .Value) '198
    rsr.Close ( ) '199
    rsr = Nothing '200
    If AspToAspX_CheckDBNull ( title ) < > EmptyString.Value And AspToAspX_CheckDBNull ( tptype ) < > EmptyString.Value Then '202
        adddate = DateAndTime.Now '203
        rs = New ADODB.Recordset ( ) '204
        sql = "SELECT top 11 * FROM " & ft & "BBS_Poll " '205
        rs.Open ( sql , conn , 1 , 3 ) '206
        rs.addnew ( ) '207
        rs.Fields ( "pid" ) .Value = TitleID '208
        rs.Fields ( "投票类型" ) .Value = tptype '209
        rs.Fields ( "选项内容" ) .Value = title '210
        rs.Fields ( "发布日期" ) .Value = adddate '211
        rs.Fields ( "发起日期" ) .Value = adddate '212
        rs.Fields ( "到期日期" ) .Value = DateAdd ( "d" , daynum , adddate ) '213
        rs.Update ( ) '214
        rs.Close ( ) '215
        rs = Nothing '216
        pollarr = AspToAspX_Split ( allpoll , "|" ) '217
        For k = 0 To Val ( UBound ( pollarr ) ) '218
            strsql = "insert into " & ft & "bbs_poll (pid,选项内容) values('" & TitleID & "','" & pollarr ( k ) & "')" '219
            conn.Execute ( strsql ) '220
        Next '221
    End If '222
    strsql = "update " & ft & "BBS_Cate set BBS_Cate_Topic=BBS_Cate_Topic+1 where BBS_Cate_ID='" & BoardID_1 & "'" '226
    conn.Execute ( strsql ) '227
    If AspToAspX_CheckDBNull ( BoardID_2 ) < > EmptyString.Value Then '228
        strsql = "update " & ft & "BBS_Cate set BBS_Cate_Topic=BBS_Cate_Topic+1 where BBS_Cate_ID='" & BoardID_2 & "'" '229
        conn.Execute ( strsql ) '230
    End If '231
    myFolder = inFolder '233
    myFolder = Server.MapPath ( myFolder ) '234
    fileStreamObj = New Scripting.FileSystemObject ( ) '235
    If AspToAspX_CheckDBNull ( fileStreamObj.FolderExists ( myFolder ) ) = false Then '236
        fileStreamObj.CreateFolder ( myFolder ) '237
    End If '238
    page = 1 '239
    If AspToAspX_CheckDBNull ( Application ( "FTBBSMB" ) ( 8 , 0 ) ) = 1 Then '240
        home = "default_list.aspx" '241
        mainbbscate = "main.aspx" '242
        bbsfbht = "fbht.aspx" '243
        bbspoll = "bbspoll.aspx" '244
    End If '245
    postmb = replace ( replace ( Application ( "FTBBSMB" ) ( 4 , 0 ) , "$PostID$" , TitleID ) , "$pagenav$" , page ) '247
    postmb = replace ( postmb , "$page$" , 1 ) '248
    postmb = replace ( postmb , "$home$" , home ) '250
    postmb = replace ( postmb , "$main$" , mainbbscate ) '251
    postmb = replace ( postmb , "$fbht$" , bbsfbht ) '252
    postmb = replace ( postmb , "$bbspoll$" , bbspoll ) '253
    If AspToAspX_CheckDBNull ( BBS_Cate_QS2 ) = EmptyString.Value Then
BBS_Cate_QS2 = 0
End If
    '254
        postmb = replace ( postmb , "{qs}" , BBS_Cate_QS2 ) '255
        postmb = replace ( postmb , "$TitleID$" , TitleID ) '257
        postmb = replace ( postmb , "$title$" , title ) '258
        postmb = replace ( postmb , "$BoardID_1$" , BoardID_1 ) '259
        postmb = replace ( postmb , "$BoardID_2$" , BoardID_2 ) '260
        postmb = replace ( postmb , "$BBS_Cate_Name1$" , BBS_Cate_Name1 ) '261
        postmb = replace ( postmb , "$BBS_Cate_Name2$" , BBS_Cate_Name2 ) '262
        postmb = replace ( postmb , "$BBS_Cate_Manager_Name$" , BBS_Cate_Manager_Name ) '263
        postmb = replace ( postmb , "$user_id$" , bbsuser_cookie ) '264
        postmb = replace ( postmb , "$userid$" , clubuser_id_cookie ) '265
        postmb = replace ( postmb , "$clubuser_money$" , clubuser_money ) '266
        postmb = replace ( postmb , "$touxian$" , touxian ) '267
        postmb = replace ( postmb , "$jibie$" , jibie ) '268
        postmb = replace ( postmb , "$tili$" , tili ) '269
        postmb = replace ( postmb , "$jingyuan$" , jingyuan ) '270
        postmb = replace ( postmb , "$procity$" , procity ) '271
        postmb = replace ( postmb , "$clubuser_reg_date$" , clubuser_reg_date ) '272
        postmb = replace ( postmb , "$clubuser_zip$" , xzstr ) '273
        postmb = replace ( postmb , "$name$" , name_cookie ) '274
        postmb = replace ( postmb , "$menu$" , menu ) '275
        postmb = replace ( postmb , "$htmfilename$" , htmfilename ) '276
        postmb = replace ( postmb , "$url$" , url ) '277
        postmb = replace ( postmb , "$zhiye$" , zhiye ) '278
        postmb = replace ( postmb , "$signname$" , signname ) '279
        postmb = replace ( postmb , "$img$" , img ) '280
        postmb = replace ( postmb , "$date$" , indate ) '281
        postmb = replace ( postmb , "$YN$" , YN ) '282
        postmb = replace ( postmb , "$img_url$" , "" ) '283
        postmb = replace ( postmb , "$upfile$" , "" ) '284
        repostformmb = replace ( replace ( Application ( "FTBBSMB" ) ( 3 , 0 ) , "$PostID$" , TitleID ) , "$pagenav$" , page ) '285
        repostformmb = replace ( repostformmb , "<script type=""text/javascript"" src=""../ftbbsdtnl.aspx?titleid=$TitleID$""></script>" , "" ) '286
        repostformmb = replace ( repostformmb , "$TitleID$" , TitleID ) '287
        repostformmb = replace ( repostformmb , "$title$" , title ) '288
        repostformmb = replace ( repostformmb , "$upfiletype$" , upfiletype ) '289
        repostformmb = replace ( repostformmb , "$BoardID_1$" , BoardID_1 ) '290
        repostformmb = replace ( repostformmb , "$BoardID_2$" , BoardID_2 ) '291
        repostformmb = replace ( repostformmb , "$name$" , name_cookie ) '292
        repostformmb = replace ( repostformmb , "$filename$" , htmfilename ) '294
        repostformmb = replace ( repostformmb , "$pollY$" , "Y" ) '295
        HtmlNLA = postmb & repostformmb '296
        mktohtm ( htmfilename , HtmlNLA ) '297
        closedb ( ) '299
        If AspToAspX_CheckDBNull ( returnurl ) < > EmptyString.Value Then '300
            AspToAspX_Response_Redirect ( returnurl ) '301
        Else '302
            AspToAspX_Response_Redirect ( "main.aspx" ) '303
        End If '304
        Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("bbspollact_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
    Public Property conn
        Get
            conn = ASPX_CONN.conn
        End Get
        Set(ByVal value)
            ASPX_CONN.conn = value
        End Set
    End Property
    Public Property qs
        Get
            qs = ASPX_CONN.qs
        End Get
        Set(ByVal value)
            ASPX_CONN.qs = value
        End Set
    End Property
    Public Property errc
        Get
            errc = ASPX_CONN.errc
        End Get
        Set(ByVal value)
            ASPX_CONN.errc = value
        End Set
    End Property
    Public Property iii
        Get
            iii = ASPX_CONN.iii
        End Get
        Set(ByVal value)
            ASPX_CONN.iii = value
        End Set
    End Property
    Public Property nothis
        Get
            nothis = ASPX_CONN.nothis
        End Get
        Set(ByVal value)
            ASPX_CONN.nothis = value
        End Set
    End Property
    Public Sub makeftbbstree(ByRef  ft )
        ASPX_CONN.makeftbbstree( ft )
    End Sub

    Public Sub CloseDb
        ASPX_CONN.CloseDb
    End Sub

    Public Sub SaveToFile( ByVal strBody,ByVal File )
        ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
    End Sub

    Public Function Checkstr(ByRef  AspToAspX_Str )
        Return ASPX_CONN.Checkstr( AspToAspX_Str )
    End Function

    Public Function CheckCharStr(ByRef  usernamepsw,ByRef flag )
        Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
    End Function

    Public Function ftbbs_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.ftbbs_msg( msg,reurl )
    End Function

    Public Function login_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.login_msg( msg,reurl )
    End Function

    Public Function FTBBS_HTML_MB(ByRef  ft )
        Return ASPX_CONN.FTBBS_HTML_MB( ft )
    End Function

    Public Function FTBBS_BZ_NAME(ByRef  BoardID_1,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
    End Function

    Public Function FTBBS_BZ_NAME2(ByRef  BoardID_1,ByRef BoardID_2,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
    End Function

    Public Function makefilename(ByRef  fname )
        Return ASPX_CONN.makefilename( fname )
    End Function

    Public Function GetExtendName(ByRef  FileName )
        Return ASPX_CONN.GetExtendName( FileName )
    End Function

    Public Function IsObjInstalled(ByRef  strClassString )
        Return ASPX_CONN.IsObjInstalled( strClassString )
    End Function

    Public Function ChkMapPath( ByVal strPath )
        Return ASPX_CONN.ChkMapPath( strPath )
    End Function

    Public Function userlogin(ByRef  ft )
        Return ASPX_CONN.userlogin( ft )
    End Function

    Public Function headhtml
        Return ASPX_CONN.headhtml
    End Function

    Public Function GetOpInfo(ByRef  AspToAspX_Str,ByRef Flag )
        Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
    End Function

    Public Function getcode
        Return ASPX_CONN.getcode
    End Function

    Public Function codepass
        Return ASPX_CONN.codepass
    End Function

    Public Function Ftbbs_Time
        Return ASPX_CONN.Ftbbs_Time
    End Function

    Public Function ft_home(ByRef  defaulthome )
        Return ASPX_CONN.ft_home( defaulthome )
    End Function

    Public Function chkpost
        Return ASPX_CONN.chkpost
    End Function

    Public Function CodeCookie(ByRef  AspToAspX_Str )
        Return ASPX_CONN.CodeCookie( AspToAspX_Str )
    End Function

    Public Function DecodeCookie(ByRef  AspToAspX_Str )
        Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
    End Function

    Public Function setcookie(ByRef  cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
        Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
    End Function

    Public Function getcookie(ByRef  ckname )
        Return ASPX_CONN.getcookie( ckname )
    End Function

    Public Function clearcookie(ByRef  cookdomain,ByRef cookneme )
        Return ASPX_CONN.clearcookie( cookdomain,cookneme )
    End Function

    Public Function LoadFile( ByVal File )
        Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
    End Function

    Public Function htmlencode2(ByRef  AspToAspX_Str )
        Return ASPX_INC_HTMLENCODE2.htmlencode2( AspToAspX_Str )
    End Function

    Public Function unhtmlencode2(ByRef  AspToAspX_Str )
        Return ASPX_INC_HTMLENCODE2.unhtmlencode2( AspToAspX_Str )
    End Function

    Public Function UBBCode(ByRef  strContent )
        Return ASPX_INC_UBBCODE.UBBCode( strContent )
    End Function

    Public Function ftbbsubbcode(ByRef  strContent )
        Return ASPX_INC_UBBCODE.ftbbsubbcode( strContent )
    End Function

    Public Function FilterJS(ByRef  v )
        Return ASPX_INC_UBBCODE.FilterJS( v )
    End Function

    Public Function HTMLEncode(ByRef  fString )
        Return ASPX_INC_UBBCODE.HTMLEncode( fString )
    End Function

    Public Function fthtmlEncode(ByRef  fString )
        Return ASPX_INC_UBBCODE.fthtmlEncode( fString )
    End Function

    Public Function fthtmlCode(ByRef  fString )
        Return ASPX_INC_UBBCODE.fthtmlCode( fString )
    End Function

    Public Function nohtml(ByRef  AspToAspX_Str )
        Return ASPX_INC_UBBCODE.nohtml( AspToAspX_Str )
    End Function

    Public Function clearnulllen(ByRef  fString )
        Return ASPX_INC_UBBCODE.clearnulllen( fString )
    End Function

    Public Function RegExReplace(ByRef  AspToAspX_Str,ByRef patrn,ByRef str2 )
        Return ASPX_INC_UBBCODE.RegExReplace( AspToAspX_Str,patrn,str2 )
    End Function

    Public Function touxianvalue(ByRef  jingyuan,ByRef ft )
        Return ASPX_TOUXIANFUN.touxianvalue( jingyuan,ft )
    End Function

    Public Function jibievalue(ByRef  jingyuan,ByRef ft )
        Return ASPX_TOUXIANFUN.jibievalue( jingyuan,ft )
    End Function

    Public Function jingyuantoqs(ByRef  clubuser_id,ByRef topvalue,ByRef ft )
        Return ASPX_TOUXIANFUN.jingyuantoqs( clubuser_id,topvalue,ft )
    End Function

    Public Function imgtourl(ByRef  url,ByRef imgpath )
        Return ASPX_TOUXIANFUN.imgtourl( url,imgpath )
    End Function

    Public Function imgtologo(ByRef  imgpath )
        Return ASPX_TOUXIANFUN.imgtologo( imgpath )
    End Function

    Public Function mktohtm(ByRef  filename,ByRef filecontent )
        Return ASPX_TOUXIANFUN.mktohtm( filename,filecontent )
    End Function

    Public Function sendsms(ByRef  sender,ByRef accepter,ByRef filename,ByRef title,ByRef flag,ByRef ft )
        Return ASPX_TOUXIANFUN.sendsms( sender,accepter,filename,title,flag,ft )
    End Function

#End Region
End Class