dirpoll.aspx.vb

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

' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  [e-mail]        *
' *        EMail  [e-mail]              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _DIRPOLL
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public PollID
Public sql
Public rs As ADODB.Recordset
Public Pollwrite
Public tptype
Public tptype1
Public i
Public sql0
Public rs0
Public dt
Public begindate
Public enddate
Public dis
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
    Public ASPX_CONN As _CONN
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
        ASPX_CONN = New _CONN()
        ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_CONN.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
    End Sub

#End Region
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        AspToAspXGlobal.Application = Application
        AspToAspXGlobal.Server = Server
        AspToAspXGlobal.Response = Response
        AspToAspXGlobal.Request = Request
        AspToAspXGlobal.Session = Session
        AspToAspX_Host_Class_Object = Me
        AspToAspX_InitIncludeFiles()
        AspToAspX_Page_Init()
        End Sub
    Public Sub AspToAspX_Page_Init()
    On Error GoTo _AspToAspX_Err
    ASPX_CONN.AspToAspX_Page_Init ( )
    Response.Write ( "<style type=""text/css"">" & Chr ( 13 ) ) '2
    Response.Write ( "<!--" & Chr ( 13 ) ) '3
    Response.Write ( "body {margin:8px;font-size: 14px;line-height:25px;}" & Chr ( 13 ) ) '4
    Response.Write ( "-->" & Chr ( 13 ) ) '5
    Response.Write ( "</style>" & Chr ( 13 ) ) '6
    Response.Charset = "utf-8" '8
    PollID = AspToAspX_CInt ( ( Request.QueryString ( "TitleID" ) ) ) '9
    sql = "SELECT ID,pid,投票类型,选项内容,票数,投票用户,发布日期,发起日期,到期日期 FROM " & ft & "BBS_Poll where pid=" & PollID & " order by ID asc" '10
    rs = New ADODB.Recordset ( ) '11
    rs.Open ( sql , conn , 1 , 1 ) '12
    If rs.BOF And rs.EOF Then '13
        Pollwrite = "" '14
    Else '15
        rs.MoveFirst ( ) '16
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "投票类型" ) .Value) ) = 1 Then '17
            tptype = 1 '18
            tptype1 = "radio" '19
        Else '20
            tptype = 2 '21
            tptype1 = "checkbox" '22
        End If '23
        Pollwrite = AspToAspX_CheckDBNull(rs.Fields ( "选项内容" ) .Value) '24
        Pollwrite = "<form name=tppoll action=../poll.aspx?tptype=" & tptype & "&pollid=" & pollid & " method=""post"">" '25
        rs.MoveNext ( ) '26
        i = 0 '27
        Do While Not rs.EOF '28
            Pollwrite = Pollwrite + "<input name=tp type=" & tptype1 & " value=" & AspToAspX_CheckDBNull(rs.Fields ( "ID" ) .Value) & ">" & AspToAspX_CheckDBNull(rs.Fields ( "选项内容" ) .Value) & "(共<font color=red><span id=s" & i + 1 & "></span></font>票)<br>" '29
            i = i + 1 '30
            rs.MoveNext ( ) '31
        Loop '32
        sql0 = "SELECT top 1 ID,发起日期,到期日期 FROM " & ft & "BBS_Poll where pid=" & PollID & " and (投票类型=1 or 投票类型=2)" '33
        rs0 = New ADODB.Recordset ( ) '34
        rs0.Open ( sql , conn , 1 , 1 ) '35
        dt = AspToAspX_DateDiff ( "d" , DateAndTime.Now , AspToAspX_CheckDBNull(rs0.Fields ( "到期日期" ) .Value) ) '36
        begindate = AspToAspX_CheckDBNull(rs0.Fields ( "发起日期" ) .Value) '37
        enddate = AspToAspX_CheckDBNull(rs0.Fields ( "到期日期" ) .Value) '38
        rs0.Close ( ) '39
        rs0 = Nothing '40
        dis = "" '41
        If AspToAspX_CheckDBNull ( dt ) < 0 Then '42
            dis = "disabled" '43
        End If '44
        Pollwrite = Pollwrite + "&nbsp; (投票总数：<font color=red><span id=s" & i + 1 & "></span></font>票)<br>&nbsp;<input type=button onclick=""Star(this.form,1);"" value=""投票"" id=""vote_submit"" " & dis & ">&nbsp;</form>开始投票日期 " & FormatDateTime ( begindate , 2 ) & " 结束投票日期 " & FormatDateTime ( enddate , 2 ) '45
    End If '46
    rs.Close ( ) '47
    rs = Nothing '48
    conn.Close ( ) '49
    Response.Write ( Pollwrite ) '50
    Response.Write ( vbCrLf )
    Response.Write ( "<script type=""text/javascript"">" & Chr ( 13 ) ) '52
    Response.Write ( "//无刷新投票" & Chr ( 13 ) ) '53
    Response.Write ( "Star(document.tppoll,0);" & Chr ( 13 ) ) '54
    Response.Write ( "var ft;" & Chr ( 13 ) ) '55
    Response.Write ( "//创建组件" & Chr ( 13 ) ) '56
    Response.Write ( "function createobj(){" & Chr ( 13 ) ) '57
    Response.Write ( " if (window.ActiveXObject){" & Chr ( 13 ) ) '58
    Response.Write ( "         ft=new ActiveXObject(""Microsoft.XMLHTTP"");" & Chr ( 13 ) ) '59
    Response.Write ( "     }" & Chr ( 13 ) ) '60
    Response.Write ( "     else if (window.XMLHttpRequest){" & Chr ( 13 ) ) '61
    Response.Write ( "         ft=new XMLHttpRequest();" & Chr ( 13 ) ) '62
    Response.Write ( "     }" & Chr ( 13 ) ) '63
    Response.Write ( "}" & Chr ( 13 ) ) '64
    Response.Write ( "//调用并返回结果" & Chr ( 13 ) ) '65
    Response.Write ( "function Star(frm,ty){" & Chr ( 13 ) ) '66
    Response.Write ( "createobj();" & Chr ( 13 ) ) '67
    Response.Write ( "var idlist=0; " & Chr ( 13 ) ) '68
    Response.Write ( "objs = document.getElementsByName('tp');" & Chr ( 13 ) ) '69
    Response.Write ( "if(ty==1){" & Chr ( 13 ) ) '70
    Response.Write ( "document.getElementById('vote_submit').disabled='disabled';" & Chr ( 13 ) ) '71
    Response.Write ( "for(i=0;i<objs.length;i++){   " & Chr ( 13 ) ) '72
    Response.Write ( "  if(objs[i].checked == true){   " & Chr ( 13 ) ) '73
    Response.Write ( "     idlist=idlist+""|""+ objs[i].value;          " & Chr ( 13 ) ) '74
    Response.Write ( "    }     " & Chr ( 13 ) ) '75
    Response.Write ( "  }" & Chr ( 13 ) ) '76
    Response.Write ( "} " & Chr ( 13 ) ) '77
    Response.Write ( "var geturl=""Poll.aspx?tptype=" ) '78
    Response.Write ( tptype ) '78
    Response.Write ( "&pollid=" ) '78
    Response.Write ( PollID ) '78
    Response.Write ( "&vote=""+idlist;" & Chr ( 13 ) ) '78
    Response.Write ( "ft.open(""POST"",geturl,false); " & Chr ( 13 ) ) '79
    Response.Write ( "ft.send(null); " & Chr ( 13 ) ) '80
    Response.Write ( "var strResult = unescape(ft.responseText);" & Chr ( 13 ) ) '81
    Response.Write ( "//i=i+2多一个是总投票数" & Chr ( 13 ) ) '82
    Response.Write ( "for(var j=1;j<" ) '83
    Response.Write ( i + 2 ) '83
    Response.Write ( ";j++){" & Chr ( 13 ) ) '83
    Response.Write ( "document.getElementById(""s""+j).innerText =strResult.split("" "")[j-1];" & Chr ( 13 ) ) '84
    Response.Write ( "}" & Chr ( 13 ) ) '85
    Response.Write ( "}" & Chr ( 13 ) ) '86
    Response.Write ( "//定时刷新" & Chr ( 13 ) ) '87
    Response.Write ( "window.setInterval(""Star(document.tppoll,0);"",50000);" & Chr ( 13 ) ) '88
    Response.Write ( "</script>" & Chr ( 13 ) ) '89

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("DirPoll_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

#End Region
End Class