pagesign.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 _BBSADMIN_PAGESIGN
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public rs As ADODB.Recordset
Public sql
Public bbs_domain
Public ver
Public bbs_name
Public upload_type
Public msg
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
    Public ASPX_CONN As _CONN
    Public ASPX_ADMIN_CHECK_MASTER As _ADMIN_CHECK_MASTER
    Public ASPX_INC_HTMLENCODE2 As _INC_HTMLENCODE2
    Public ASPX_BBSADMIN_TAILFUN As _BBSADMIN_TAILFUN
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
        ASPX_CONN = New _CONN()
        ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_CONN.AspToAspX_InitIncludeFiles()
        ASPX_ADMIN_CHECK_MASTER = New _ADMIN_CHECK_MASTER()
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_InitIncludeFiles()
        ASPX_INC_HTMLENCODE2 = New _INC_HTMLENCODE2()
        ASPX_INC_HTMLENCODE2.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_HTMLENCODE2.AspToAspX_InitIncludeFiles()
        ASPX_BBSADMIN_TAILFUN = New _BBSADMIN_TAILFUN()
        ASPX_BBSADMIN_TAILFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_BBSADMIN_TAILFUN.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_UnloadIncludeFiles()
        ASPX_ADMIN_CHECK_MASTER = Nothing
        ASPX_INC_HTMLENCODE2.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_HTMLENCODE2 = Nothing
        ASPX_BBSADMIN_TAILFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_BBSADMIN_TAILFUN = 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 ( )
    ASPX_ADMIN_CHECK_MASTER.AspToAspX_Page_Init ( )
    ASPX_INC_HTMLENCODE2.AspToAspX_Page_Init ( )
    ASPX_BBSADMIN_TAILFUN.AspToAspX_Page_Init ( )
    rs = New ADODB.Recordset ( ) '6
    sql = "select * from " & ft & "ftbbsmb where id=1" '7
    rs.Open ( sql , conn , 1 , 3 ) '8
    If AspToAspX_CheckIsNothing ( Request.Form ( "act" ) ) = "y" Then '9
        bbs_domain = AspToAspX_CheckIsNothing ( Request.Form ( "bbs_domain" ) ) '10
        ver = AspToAspX_CheckIsNothing ( Request.Form ( "ft_ver" ) ) '11
        bbs_name = AspToAspX_CheckIsNothing ( Request.Form ( "bbs_name" ) ) '12
        upload_type = LCase ( AspToAspX_CheckIsNothing ( Request.Form ( "upload_type" ) ) ) '13
    If AspToAspX_CheckDBNull ( right ( bbs_domain , 1 ) ) < > "/" Then
bbs_domain = bbs_domain & "/"
End If
    '14
        rs.Fields ( "postpgnum" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "page1" ) ) '15
        rs.Fields ( "repostpgnum" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "page2" ) ) '16
        rs.Fields ( "folder" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "ftbbs3" ) ) '17
        rs.Fields ( "ftbbsmode" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "ftmode" ) ) '18
        rs.Fields ( "bbs_domain" ) .Value = bbs_domain '19
        rs.Fields ( "bbs_name" ) .Value = bbs_name '20
        rs.Fields ( "ft_ver" ) .Value = ver '21
        rs.Fields ( "upload_type" ) .Value = replace ( replace ( replace ( upload_type , "asp" , "***" ) , "asa" , "***" ) , "exe" , "***" ) '22
        rs.Fields ( "upload_size" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "upload_size" ) ) '23
        rs.Fields ( "gifjpg" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "gifjpg" ) ) '24
        rs.Fields ( "posttime" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "posttime" ) ) '25
        rs.Fields ( "reposttime" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "reposttime" ) ) '26
        rs.Fields ( "uploadoff" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "uploadoff" ) ) '27
        rs.Fields ( "usernamelng" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "usernamelng1" ) ) & "-" & AspToAspX_CheckIsNothing ( Request.Form ( "usernamelng2" ) ) '28
        rs.Fields ( "pswlng" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "pswlng1" ) ) & "-" & AspToAspX_CheckIsNothing ( Request.Form ( "pswlng2" ) ) '29
        rs.Fields ( "regoff" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "regoff" ) ) '30
        rs.Fields ( "regsmstitle" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "regsmstitle" ) ) '31
        rs.Fields ( "regsmscontent" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "regsmscontent" ) ) '32
        rs.Fields ( "jmailoff" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "jmailoff" ) ) '33
        rs.Fields ( "mailuser" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "mailuser" ) ) '34
        rs.Fields ( "mailpwd" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "mailpwd" ) ) '35
        rs.Fields ( "mailaddress" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "mailaddress" ) ) '36
        rs.Fields ( "mailsmtp" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "mailsmtp" ) ) '37
        rs.Fields ( "defaultcss" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "defaultcss" ) ) '38
        rs.Fields ( "getcodeoff" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "getcodeoff" ) ) '39
        rs.Fields ( "bakoff" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "defaulthome" ) ) '40
        rs.Fields ( "htm_ext" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "htm_ext" ) ) '41
        rs.Fields ( "onlineoff" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "onlineoff" ) ) '42
        rs.Fields ( "linkoff" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "linkoff" ) ) '43
        rs.Fields ( "waterimg" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "waterimg" ) ) '44
        rs.Fields ( "shoff" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "shoff" ) ) '45
        rs.Fields ( "onlinetime" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "onlinetime" ) ) '46
        rs.Fields ( "adminfile" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "adminfile" ) ) '47
        rs.Fields ( "postbegintime" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "postbegintime" ) ) '48
        rs.Fields ( "postendtime" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "postendtime" ) ) '49
        rs.Fields ( "repostbegintime" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "repostbegintime" ) ) '50
        rs.Fields ( "repostendtime" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "repostendtime" ) ) '51
        rs.Fields ( "postget" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "postget" ) ) '53
        rs.Fields ( "repostget" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "repostget" ) ) '54
        rs.Fields ( "topostget" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "topostget" ) ) '55
        rs.Fields ( "tjget" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "tjget" ) ) '56
        rs.Fields ( "jhget" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "jhget" ) ) '57
        rs.Fields ( "logintili" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "logintili" ) ) '58
        rs.Fields ( "swapmoney" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "swapmoney" ) ) '59
        rs.Fields ( "integral" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "integral" ) ) '60
        rs.Fields ( "postvalue" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "postvalue" ) ) '61
        rs.Fields ( "pollvalue" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "pollvalue" ) ) '62
        rs.Fields ( "topvalue" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "topvalue" ) ) '63
        rs.Fields ( "tjvalue" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "tjvalue" ) ) '64
        rs.Fields ( "jhvalue" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "jhvalue" ) ) '65
        rs.Fields ( "uploadvalue" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "uploadvalue" ) ) '66
        rs.Fields ( "downvalue" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "downvalue" ) ) '67
        rs.Fields ( "spid" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "spid" ) ) '69
        rs.Fields ( "spkey" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "spkey" ) ) '70
        rs.Fields ( "returnurl" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "returnurl" ) ) '71
        rs.Fields ( "sitenav" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "sitenav" ) ) '72
        rs.Update ( ) '73
        msg = "(参数设置成功)" '74
        Application.Contents.removeall ( ) '75
        maketailjs ( bbs_domain , ver , bbs_name ) '76
        maketailhtm ( bbs_domain , ver , bbs_name ) '77
        copyright ( bbs_domain , ver , bbs_name ) '78
    End If '79
    Response.Write ( vbCrLf )
    Response.Write ( "<html>" & Chr ( 13 ) ) '81
    Response.Write ( "<head>" & Chr ( 13 ) ) '82
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '83
    Response.Write ( "<meta name=""GENERATOR"" content=""Microsoft FrontPage 3.0"">" & Chr ( 13 ) ) '84
    Response.Write ( "<title>论坛分页参数设置</title>" & Chr ( 13 ) ) '85
    Response.Write ( "<link href=""../css/xmwuye.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '86
    Response.Write ( "</head>" & Chr ( 13 ) ) '87
    Response.Write ( "<body topmargin=""2"">" & Chr ( 13 ) ) '88
    Response.Write ( "<table border=""0"" width=""100%"" cellpadding=""0"" style=""border: 1px solid #B3DDF8; width: 100%; margin-bottom: 2px;margin-top: 2px; margin-left: 0px; padding: 1px;"">" & Chr ( 13 ) ) '89
    Response.Write ( "        <tr bgcolor=""#000066""> " & Chr ( 13 ) ) '90
    Response.Write ( "    <td width=""100%"" height=""25"" bgcolor=""#000066""> <div align=""center""><font color=""#FFFFFF""><strong>基本参数设置" ) '91
    Response.Write ( msg ) '91
    Response.Write ( "</strong></font></div></td>" & Chr ( 13 ) ) '91
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '92
    Response.Write ( "" & Chr ( 9 ) & "<form method=""POST"" action="""">" & Chr ( 13 ) ) '93
    Response.Write ( "    <tr align=""center"">" & Chr ( 13 ) ) '94
    Response.Write ( "      <td width=""100%"">" & Chr ( 13 ) ) '95
    Response.Write ( "            <table border=""0"" cellspacing=""0"" width=""100%"" cellpadding=""0"">" & Chr ( 13 ) ) '96