myblog.aspx.vb

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

        Response.Write ( "var editor = new FtEditor(""editor"");" & Chr ( 13 ) ) '145
        Response.Write ( "editor.hiddenName = ""remenu"";" & Chr ( 13 ) ) '146
        Response.Write ( "editor.editorType = ""simple"";" & Chr ( 13 ) ) '147
        Response.Write ( "editor.editorWidth = ""500px"";" & Chr ( 13 ) ) '148
        Response.Write ( "editor.editorHeight = ""250px"";" & Chr ( 13 ) ) '149
        Response.Write ( "editor.show();" & Chr ( 13 ) ) '150
        Response.Write ( "</script>" & Chr ( 13 ) ) '151
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '152
        Response.Write ( "                  </tr>" & Chr ( 13 ) ) '153
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  " ) '154
        If AspToAspX_CheckDBNull ( getcodeoff ) = 1 Then '154
        Response.Write ( vbCrLf )
            Response.Write ( "                  <tr id=""vercode""> " & Chr ( 13 ) ) '155
            Response.Write ( "                    <td valign=""top"" class=""f14"">验证码：</td>" & Chr ( 13 ) ) '156
            Response.Write ( "                    <td valign=""top""><input name=codestr id=codestr type=text size=10 maxlength=4> " & Chr ( 13 ) ) '157
            Response.Write ( "                      " ) '158
            Response.Write ( getcode ) '158
            Response.Write ( vbCrLf )
            Response.Write ( "                    </td>" & Chr ( 13 ) ) '159
            Response.Write ( "                  </tr>" & Chr ( 13 ) ) '160
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  " ) '161
        End If '161
        Response.Write ( vbCrLf )
        Response.Write ( "                  <tr> " & Chr ( 13 ) ) '162
        Response.Write ( "                    <td valign=""top""class=""f14"">&nbsp;</td>" & Chr ( 13 ) ) '163
        Response.Write ( "                    <td valign=""top"" class=""f14""><input name=""submit1"" type=""submit"" value=""发表评论"" class=""button"" " ) '164
        If AspToAspX_CheckDBNull ( ck_name ) = EmptyString.Value Then '164
            Response.Write ( "disabled" ) '164
        End If '164
        Response.Write ( "> " & Chr ( 13 ) ) '164
        Response.Write ( "                      <input name=""act"" type=""hidden"" id=""act"" value=""y""></td>" & Chr ( 13 ) ) '165
        Response.Write ( "                  </tr>" & Chr ( 13 ) ) '166
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  </form>" & Chr ( 13 ) ) '167
        Response.Write ( "                </table>" & Chr ( 13 ) ) '168
        Response.Write ( "            </div>" & Chr ( 13 ) ) '169
        Response.Write ( "            <br>" & Chr ( 13 ) ) '170
        Response.Write ( "          </div>" & Chr ( 13 ) ) '171
    End If '172
    Response.Write ( vbCrLf )
    Response.Write ( "          <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '173
    Response.Write ( "            <tr> " & Chr ( 13 ) ) '174
    Response.Write ( "              <td class=""modbl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '175
    Response.Write ( "              <td class=""modbc"">&nbsp;</td>" & Chr ( 13 ) ) '176
    Response.Write ( "              <td class=""modbr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '177
    Response.Write ( "            </tr>" & Chr ( 13 ) ) '178
    Response.Write ( "          </table>" & Chr ( 13 ) ) '179
    Response.Write ( "        </div>" & Chr ( 13 ) ) '180
    Response.Write ( "      </div>" & Chr ( 13 ) ) '181
    Response.Write ( "    </div>" & Chr ( 13 ) ) '182
    Response.Write ( "  </div>" & Chr ( 13 ) ) '183
    Response.Write ( "<br><center>" & Chr ( 13 ) ) '184
    Response.Write ( "    " ) '185
    ASPX_TAIL.AspToAspX_Page_Init ( )
    Response.Write ( "  </center>" & Chr ( 13 ) ) '186
    Response.Write ( "</center>" & Chr ( 13 ) ) '187
    Response.Write ( "<script src=""homehits.aspx?id=" ) '188
    Response.Write ( id ) '188
    Response.Write ( "&ty=myblog""></script>" & Chr ( 13 ) ) '188
    Response.Write ( "</body></html>" & Chr ( 13 ) ) '189
    closedb ( ) '190
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("myblog_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 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 Shared ReadOnly Property fso
        Get
            fso = _INC_PUBLICFUN.fso
        End Get
    End Property
    Public Function makefolder(ByRef  Folder,ByRef fso )
        Return ASPX_INC_PUBLICFUN.makefolder( Folder,fso )
    End Function

    Public Function DelFile(ByRef  FileName,ByRef fso )
        Return ASPX_INC_PUBLICFUN.DelFile( FileName,fso )
    End Function

    Public Function makehtml(ByRef  htmlurlname,ByRef fso,ByRef nl )
        Return ASPX_INC_PUBLICFUN.makehtml( htmlurlname,fso,nl )
    End Function

    Public Function GetFolderSize(ByRef  FolderName,ByRef fso )
        Return ASPX_INC_PUBLICFUN.GetFolderSize( FolderName,fso )
    End Function

    Public Function ClearHTMLCode(ByRef  StrCode )
        Return ASPX_INC_PUBLICFUN.ClearHTMLCode( StrCode )
    End Function

    Public Function pagination(ByRef  pagecount,ByRef userid )
        Return ASPX_INC_PUBLICFUN.pagination( pagecount,userid )
    End Function

    Public Function SearchPage(ByRef  pagecount,ByRef tyname1,ByRef tyvalue1,ByRef tyname2,ByRef tyvalue2 )
        Return ASPX_INC_PUBLICFUN.SearchPage( pagecount,tyname1,tyvalue1,tyname2,tyvalue2 )
    End Function

    Public Function pagenar(ByRef  pagecount,ByRef userid,ByRef tyname,ByRef tyvalue )
        Return ASPX_INC_PUBLICFUN.pagenar( pagecount,userid,tyname,tyvalue )
    End Function

    Public Function FtbbsPage(ByRef  pagecount,ByRef tyname1,ByRef tyvalue1,ByRef tyname2,ByRef tyvalue2 )
        Return ASPX_INC_PUBLICFUN.FtbbsPage( pagecount,tyname1,tyvalue1,tyname2,tyvalue2 )
    End Function

    Public Function makeadjs(ByRef  ft )
        Return ASPX_INC_PUBLICFUN.makeadjs( ft )
    End Function

#End Region
End Class