bz.aspx.vb

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

                    clubuser_lasttime = "" '152
                    daynum = "" '153
                    clubuser_id = AspToAspX_CheckDBNull(rsbz3.Fields ( "clubuser_id" ) .Value) '154
                    clubuser_name = AspToAspX_CheckDBNull(rsbz3.Fields ( "clubuser_name" ) .Value) '155
                    postnum = AspToAspX_CheckDBNull(rsbz3.Fields ( "postnum" ) .Value) '156
                    clubuser_lasttime = AspToAspX_CheckDBNull(rsbz3.Fields ( "clubuser_lasttime" ) .Value) '157
                    daynum = AspToAspX_DateDiff ( "d" , ToDay ( ) , clubuser_lasttime ) '158
                    If AspToAspX_CheckDBNull ( daynum ) < 0 Then '159
                        daynum = daynum * ( - 1 ) '160
                    Else '161
                        daynum = 0 '162
                    End If '163
                    If AspToAspX_CheckDBNull ( daynum ) > 7 Then '164
                        ruslt = "此斑竹已<font color=red>严重失职</font>,将取消资格!" '165
                    ElseIf AspToAspX_CheckDBNull ( daynum ) > 0 And AspToAspX_CheckDBNull ( daynum ) < = 7 Then '166
                        ruslt = "此斑竹<font color=red>7</font>天之内有登录!" '167
                    Else '168
                        ruslt = "此斑竹比较勤快，加油哦!" '169
                    End If '170
                    Response.Write ( vbCrLf )
                    Response.Write ( "    <tr align=middle> " & Chr ( 13 ) ) '172
                    Response.Write ( "      <td width=""9%"" height=""28"" class=""loopborder1"" align=""center""><a href=""home.aspx?userid=" ) '173
                    Response.Write ( clubuser_id ) '173
                    Response.Write ( """ target=""_blank"">" & Chr ( 13 ) ) '173
                    Response.Write ( "        " ) '174
                    Response.Write ( clubuser_name ) '174
                    Response.Write ( vbCrLf )
                    Response.Write ( "        </a></td>" & Chr ( 13 ) ) '175
                    Response.Write ( "      <td width=""22%""  align=left valign=""middle"" class=""loopborder3"">" & Chr ( 13 ) ) '176
                    Response.Write ( "        " ) '177
                    Response.Write ( clubuser_lasttime ) '177
                    Response.Write ( vbCrLf )
                    Response.Write ( "      </td>" & Chr ( 13 ) ) '178
                    Response.Write ( "      <td width=""12%"" class=""loopborder1"" align=""center""><font color=""#FF0000"">" & Chr ( 13 ) ) '179
                    Response.Write ( "        " ) '180
                    Response.Write ( postnum ) '180
                    Response.Write ( vbCrLf )
                    Response.Write ( "        </font>篇</td>" & Chr ( 13 ) ) '181
                    Response.Write ( "      <td width=""10%"" class=""loopborder3"" align=""center"">" & Chr ( 13 ) ) '182
                    Response.Write ( "        " ) '183
                    Response.Write ( daynum ) '183
                    Response.Write ( vbCrLf )
                    Response.Write ( "      </td>" & Chr ( 13 ) ) '184
                    Response.Write ( "      <td width=""17%"" class=""loopborder1"" align=""center""><a href=""main.aspx?layer_1=" ) '185
                    Response.Write ( BBS_Cate_PID ) '185
                    Response.Write ( "&layer_2=" ) '185
                    Response.Write ( BBS_Cate_ID ) '185
                    Response.Write ( "&qs=" ) '185
                    Response.Write ( BBS_Cate_Qs ) '185
                    Response.Write ( """>" & Chr ( 13 ) ) '185
                    Response.Write ( "        " ) '186
                    Response.Write ( BBS_Cate_Name ) '186
                    Response.Write ( vbCrLf )
                    Response.Write ( "        </a></td>" & Chr ( 13 ) ) '187
                    Response.Write ( "      <td width=""30%"" class=""loopborder3"" align=""center"">" & Chr ( 13 ) ) '188
                    Response.Write ( "        " ) '189
                    Response.Write ( ruslt ) '189
                    Response.Write ( vbCrLf )
                    Response.Write ( "      </td>" & Chr ( 13 ) ) '190
                    Response.Write ( "    </tr>" & Chr ( 13 ) ) '191
                    Response.Write ( "    " ) '192
                End If '193
            End If '194
            rs.MoveNext ( ) '195
        Next '196
        Response.Write ( vbCrLf )
        Response.Write ( "    <tr valign=""top""> " & Chr ( 13 ) ) '198
        Response.Write ( "      <td colspan=""7"" class=""maintbtr1""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '199
        Response.Write ( "          <tr> " & Chr ( 13 ) ) '200
        Response.Write ( "            <td height=""25"" align=""left"" class=""f12""> " & Chr ( 13 ) ) '201
        Response.Write ( "              " ) '202
        Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '202
        Response.Write ( vbCrLf )
        Response.Write ( "            </td>" & Chr ( 13 ) ) '203
        Response.Write ( "          </tr>" & Chr ( 13 ) ) '204
        Response.Write ( "        </table></td>" & Chr ( 13 ) ) '205
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '206
        Response.Write ( "    " ) '207
    Else '207
    Response.Write ( vbCrLf )
        Response.Write ( "    <tr class=""maintbtr3""> " & Chr ( 13 ) ) '208
        Response.Write ( "      <td colspan=7 align=center height=25> 没有数据</td>" & Chr ( 13 ) ) '209
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '210
        Response.Write ( "    " ) '211
    End If '211
    Response.Write ( vbCrLf )
    Response.Write ( "  </tbody>" & Chr ( 13 ) ) '212
    Response.Write ( "</table>" & Chr ( 13 ) ) '213
    closedb ( ) '214
    Response.Write ( vbCrLf )
    ASPX_INC_BBSTAIL_HTM.AspToAspX_Page_Init ( )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("bz_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 Property ftbbs_nav_name
        Get
            ftbbs_nav_name = ASPX_FTBBS_NAV.ftbbs_nav_name
        End Get
        Set(ByVal value)
            ASPX_FTBBS_NAV.ftbbs_nav_name = value
        End Set
    End Property
    Public Property ftbbs_clubuser_id
        Get
            ftbbs_clubuser_id = ASPX_FTBBS_NAV.ftbbs_clubuser_id
        End Get
        Set(ByVal value)
            ASPX_FTBBS_NAV.ftbbs_clubuser_id = value
        End Set
    End Property
    Public Function pageclass(ByRef  totalpage,ByRef wzcount,ByRef wzrep,ByRef pagestr,ByRef root )
        Return ASPX_PAGEFUN.pageclass( totalpage,wzcount,wzrep,pagestr,root )
    End Function

#End Region
End Class