setup.aspx.vb

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

            Conn.Execute ( strSQL ) '647
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(500,1000,'咕噜','userheadimg/class11.gif')" '648
            Conn.Execute ( strSQL ) '649
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(1000,2000,'大咕噜','userheadimg/class12.gif')" '650
            Conn.Execute ( strSQL ) '651
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(2000,4000,'咕噜队长','userheadimg/class13.gif')" '652
            Conn.Execute ( strSQL ) '653
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(4000,8000,'初级守卫','userheadimg/class14.gif')" '654
            Conn.Execute ( strSQL ) '655
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(8000,12000,'守卫队长','userheadimg/class15.gif')" '656
            Conn.Execute ( strSQL ) '657
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(12000,16000,'骑士','userheadimg/class16.gif')" '658
            Conn.Execute ( strSQL ) '659
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(16000,18000,'青铜骑士','userheadimg/class17.gif')" '660
            Conn.Execute ( strSQL ) '661
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(18000,20000,'白银骑士','userheadimg/class18.gif')" '662
            Conn.Execute ( strSQL ) '663
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(20000,22000,'黄金骑士','userheadimg/class19.gif')" '664
            Conn.Execute ( strSQL ) '665
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(22000,800000,'神秘头衔','userheadimg/class20.gif')" '666
            Conn.Execute ( strSQL ) '667
            strSQL = "insert into " & ft & "xunzhang (xzms, xzimg, flag) VALUES ('灌水天才奖', 'xz1.gif', 0)" '668
            Conn.Execute ( strSQL ) '669
            strSQL = "insert into " & ft & "xunzhang (xzms, xzimg, flag) VALUES ('特殊贡献奖', 'xz2.gif', 0)" '670
            Conn.Execute ( strSQL ) '671
            strSQL = "insert into " & ft & "xunzhang (xzms, xzimg, flag) VALUES ('优秀版主奖', 'xz3.gif', 0)" '672
            Conn.Execute ( strSQL ) '673
            strSQL = "insert into " & ft & "xunzhang (xzms, xzimg, flag) VALUES ('新人进步奖', 'xz4.gif', 0)" '674
            Conn.Execute ( strSQL ) '675
            strSQL = "insert into " & ft & "xunzhang (xzms, xzimg, flag) VALUES ('终身成就奖', 'xz5.gif', 0)" '676
            Conn.Execute ( strSQL ) '677
            strSQL = "insert into " & ft & "xunzhang (xzms, xzimg, flag) VALUES ('宣传大使奖', 'xz6.gif', 0)" '678
            Conn.Execute ( strSQL ) '679
            filename = "config.aspx" '680
            FileNL = LoadFile ( filename ) '689
            arr = AspToAspX_Split ( FileNL , "<%" ) '690
            FileNL = "<%" & arr ( 1 ) '691
            FileNL = RegExReplace ( FileNL , "linkdb=.*? " , "linkdb=1 " ) '692
            FileNL = RegExReplace ( FileNL , "ft=.*? " , "ft=""" & ft & """ " ) '693
            FileNL = RegExReplace ( FileNL , "ku=.*? " , "ku=""" & db & """ " ) '694
            FileNL = RegExReplace ( FileNL , "ckiesdomain=.*? " , "ckiesdomain=""" & cookdm & """ " ) '695
            SaveToFile ( FileNL , filename ) '696
            myFile = Server.MapPath ( "install/install.lock" ) '697
            fileStreamObj = New Scripting.FileSystemObject ( ) '698
            fileStreamObj.CreateTextFile ( myFile ) '699
            textStream = fileStreamObj.OpenTextFile ( myFile , ForWriting , False ) '700
            textStream.Write ( ( "" ) ) '701
            textStream.Close ( ) '702
            filename = "install/postmb.htm" '703
            postmbstr = LoadFile ( filename ) '704
            filename = "install/repostmb.htm" '705
            repostmbstr = LoadFile ( filename ) '706
            filename = "install/repostform.htm" '707
            repostformmbstr = LoadFile ( filename ) '708
            filename = "install/postpollmb.htm" '709
            postpollmbstr = LoadFile ( filename ) '710
            filename = "install/ftbbstreemb.htm" '711
            treembstr = LoadFile ( filename ) '712
            filename = "install/headmb.htm" '713
            headmbstr = LoadFile ( filename ) '714
            sitenav = "<div id=""TopNav"">" & vbCrLf '715
            sitenav = sitenav & "<div>" & vbCrLf '716
            sitenav = sitenav & "<a href=""http://www.ftbbs.cn/default.aspx?a=A_5&b=A_5_5"">官方动态</a>" & vbCrLf '717
            sitenav = sitenav & "·<a href=""http://php.ftbbs.cn"">PHP版讨论区</a>" & vbCrLf '718
            sitenav = sitenav & "·<a href=""http://www.ftbbs.cn/order.aspx"">购买流程</a>" & vbCrLf '719
            sitenav = sitenav & "·<a href=""http://www.ftbbs.cn/dingzhi.aspx"">定制服务</a>" & vbCrLf '720
            sitenav = sitenav & "·<a href=""http://www.ftbbs.cn/host.aspx"">空间租用</a>" & vbCrLf '721
            sitenav = sitenav & "·<a href=""http://www.ftbbs.cn/pay.aspx"">支付方式</a>" & vbCrLf '722
            sitenav = sitenav & "·<a href=""http://www.chinaymz.com"">源码下载</a>" & vbCrLf '723
            sitenav = sitenav & "·<a href=""#"" onclick=""this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.ftbbs.cn');return false;"" >设为首页</a></div>" & vbCrLf '724
            sitenav = sitenav & "</div>" '725
            strSQL = "insert into " & ft & "ftbbsmb(postpgnum,repostpgnum,folder,treemb,bbs_domain,bbs_name,upload_type,upload_size,ft_ver,regsmstitle,regsmscontent,usernamelng,pswlng,htm_ext,adminfile,returnurl) values(30,10,'M','" & treemb & "','http://www.ftbbs.cn/','飞天论坛','jpg|gif|rar','204800','FTBBS V7.0','恭喜你,注册成功!','欢迎您加入本站点参加交流和讨论','3-10','3-10','.htm','admin.aspx','notify_handler.aspx')" '726
            Conn.Execute ( strSQL ) '727
            rs = New ADODB.Recordset ( ) '728
            sql = "select * from " & ft & "ftbbsmb where id=1" '729
            rs.Open ( sql , conn , 1 , 3 ) '730
            rs.Fields ( "postmb" ) .Value = postmbstr '731
            rs.Fields ( "repostmb" ) .Value = repostmbstr '732
            rs.Fields ( "repostformmb" ) .Value = repostformmbstr '733
            rs.Fields ( "postpollmb" ) .Value = postpollmbstr '734
            rs.Fields ( "treemb" ) .Value = treembstr '735
            rs.Fields ( "headmb" ) .Value = headmbstr '736
            rs.Fields ( "bakoff" ) .Value = 1 '737
            rs.Fields ( "postbegintime" ) .Value = "0" '738
            rs.Fields ( "postendtime" ) .Value = "0" '739
            rs.Fields ( "repostbegintime" ) .Value = "0" '740
            rs.Fields ( "repostendtime" ) .Value = "0" '741
            rs.Fields ( "sitenav" ) .Value = sitenav '742
            rs.Update ( ) '743
            rs.Close ( ) '744
            conn.Close ( ) '745
            If AspToAspX_CheckDBNull ( cookdm ) < > EmptyString.Value Then '747
                Response.Cookies ( "bbsuser" ).Domain = "" '748
                Response.Cookies ( "name" ).Domain = "" '749
                Response.Cookies ( "bz" ).Domain = "" '750
                Response.Cookies ( "bbsadmin" ).Domain = "" '751
                Response.Cookies ( "payuser" ).Domain = "" '752
                Response.Cookies ( "clubuser_password" ).Domain = "" '753
                Response.Cookies ( "clubuser_id" ).Domain = "" '754
                Response.Cookies ( "bokeer" ).Domain = "" '755
            Else '756
                Response.Cookies ( "bbsuser" ).Value = "" '757
                Response.Cookies ( "name" ).Value = "" '758
                Response.Cookies ( "bz" ).Value = "" '759
                Response.Cookies ( "bbsadmin" ).Value = "" '760
                Response.Cookies ( "payuser" ).Value = "" '761
                Response.Cookies ( "clubuser_password" ).Value = "" '762
                Response.Cookies ( "clubuser_id" ).Value = "" '763
                Response.Cookies ( "bokeer" ).Value = "" '764
            End If '765
            Application.Contents.removeall ( ) '767
            Response.Write ( vbCrLf )
            Response.Write ( " <script type=""text/javascript"">document.getElementById(""notice"").value = '数据表创建完成'; </script>" & Chr ( 13 ) ) '769
            Response.Write ( "<script type=""text/javascript"">document.getElementById(""laststep"").disabled = false; </script>" & Chr ( 13 ) ) '770
            Response.Write ( "<script type=""text/javascript"">document.getElementById(""laststep"").value = '恭喜您论坛安装成功,点击进入论坛首页'; </script>" & Chr ( 13 ) ) '771
            Response.Write ( "   " ) '772
        End If '772
        Response.Write ( vbCrLf )
    Else '774
        If AspToAspX_CheckDBNull ( IsObjInstalled ( "Scripting.FileSystemObject" ) ) = False Then '775
            Response.Write ( "<tr><td><br><br><br><br><br><table width=""560"" cellspacing=""1"" bgcolor=""#000000"" border=""0"" align=""center"">" & "<tr bgcolor=""#085878""><td width=""20%"" style=""color: #FFFFFF; padding-left: 10px"">错误信息</td></tr><tr align=""center"" bgcolor=""#E3E3EA"">" & "<td class=""message"">系统检测到你的主机空间不支持Scripting.FileSystemObject组件,论坛安装无法继续。" & "</td></tr></table><br><br><br><br><br><br>" ) '776
        ElseIf AspToAspX_CheckDBNull ( IsObjInstalled ( "ADOX.Catalog" ) ) = False Then '777
            Response.Write ( "<tr><td><br><br><br><br><br><table width=""560"" cellspacing=""1"" bgcolor=""#000000"" border=""0"" align=""center"">" & "<tr bgcolor=""#085878""><td width=""20%"" style=""color: #FFFFFF; padding-left: 10px"">错误信息</td></tr><tr align=""center"" bgcolor=""#E3E3EA"">" & "<td class=""message"">系统检测到你的主机空间不支持ADOX创建数据库的组件,论坛安装无法继续。" & "</td></tr></table><br><br><br><br><br><br>" ) '778
        Else '779
            fso = New Scripting.FileSystemObject ( ) '780
            lockfile = Server.MapPath ( "install/install.lock" ) '781
            TestFile = Server.MapPath ( "test.htm" ) '783
            fso.CreateTextFile ( TestFile ) '784
            textStream = fso.OpenTextFile ( TestFile , ForWriting , False ) '785
            textStream.Write ( ( "" ) ) '786
            textStream.Close ( ) '787
            If AspToAspX_CheckDBNull ( fso.FileExists ( TestFile ) ) = False Then '789
                Response.Write ( "<tr><td><br><br><br><br><br><table width=""560"" cellspacing=""1"" bgcolor=""#000000"" border=""0"" align=""center"">" & "<tr bgcolor=""#085878""><td width=""20%"" style=""color: #FFFFFF; padding-left: 10px"">错误信息</td></tr><tr align=""center"" bgcolor=""#E3E3EA"">" & "<td class=""message"">系统检测到你的主机Scripting.FileSystemObject组件没有<font color=red>写入权限</font>即不能生成静态页面,请设置好主机空间的相关写入、修改权限后再安装,本次论坛安装无法继续。" & "</td></tr></table><br><br><br><br><br><br>" ) '790
            ElseIf fso.FileExists ( lockfile ) Then '791
                Response.Write ( "<tr><td><br><br><br><br><br><table width=""560"" cellspacing=""1"" bgcolor=""#000000"" border=""0"" align=""center"">" & "<tr bgcolor=""#085878""><td width=""20%"" style=""color: #FFFFFF; padding-left: 10px"">错误信息</td></tr><tr align=""center"" bgcolor=""#E3E3EA"">" & "<td class=""message"">您已经安装过论坛，为了保证论坛数据安全，请手动删除 setup.aspx 文件 和 install 文件夹下的所有文件，如果您想重新安装论坛，请删除 install/install.lock 文件，再次运行安装文件。" & "</td></tr></table><br><br><br><br><br><br>" ) '792
            Else '793
                fso.DeleteFile ( TestFile ) '794
                fso = Nothing '795
                Response.Write ( vbCrLf )
                Response.Write ( "<tr><td><b>当前状态: </b><font color=""#0000EE"">FTBBS用户许可协议</font></td></tr>" & Chr ( 13 ) ) '797
                Response.Write ( "<tr><td><hr noshade align=""center"" width=""100%"" size=""1""></td></tr>" & Chr ( 13 ) ) '798
                Response.Write ( "<tr><td><br>" & Chr ( 13 ) ) '799
                Response.Write ( "<table width=""90%"" cellspacing=""1"" bgcolor=""#000000"" border=""0"" align=""center"">" & Chr ( 13 ) ) '800
                Response.Write ( "<tr><td class=""altbg1"">" & Chr ( 13 ) ) '801
                Response.Write ( "<table width=""99%"" cellspacing=""1"" border=""0"" align=""center"">" & Chr ( 13 ) ) '802
                Response.Write ( "<tr><td><p class=""subtitle"">飞天论坛商业版授权协议 适用于商业版用户" & Chr ( 13 ) ) '803
                Response.Write ( "<p>版权所有 &copy; 2005-" ) '804
                Response.Write ( Year ( DateAndTime.Now ) ) '804
                Response.Write ( "，飞天论坛(陈惠添)保留所有FTBBS权利。" & Chr ( 13 ) ) '804
                Response.Write ( "<p>感谢您选择 FTBBS 论坛产品。希望我们的努力能为您提供一个高效快速和强大的社区论坛解决方案。" & Chr ( 13 ) ) '805
                Response.Write ( "<p>FTBBS 英文全称为 FTBBS Board，中文全称为 FTBBS 论坛，以下简称 FTBBS。" & Chr ( 13 ) ) '806
                Response.Write ( "<p>陈惠添为 FTBBS 产品的开发者，依法独立拥有 FTBBS 产品著作权。FTBBS 官方网站网址为 <a href=http://www.ftbbs.cn>http://www.ftbbs.cn</a>，" & Chr ( 13 ) ) '807
                Response.Write ( "FTBBS 官方PHP版讨论区网址为 <a href=http://php.ftbbs.cn>http://php.ftbbs.cn</a>,FTBBS 官方ASP版讨论区网址为 <a href=http://www.ftbbs.cn/default.aspx>http://www.ftbbs.cn/default.aspx</a>。" & Chr ( 13 ) ) '808
                Response.Write ( "<p>FTBBS 著作权受到法律和国际公约保护。使用者：无论个人或组织、盈利与否、用途如何" & Chr ( 13 ) ) '809
                Response.Write ( "（包括以学习和研究为目的），均需仔细阅读本协议，在理解、同意、并遵守本协议的全部条款后，方可开始使用 FTBBS 软件。" & Chr ( 13 ) ) '810
                Response.Write ( "<p>本授权协议适用于 FTBBS 所有版本，飞天论坛拥有对本授权协议的最终解释权。" & Chr ( 13 ) ) '811
                Response.Write ( "<ul type=""I"">" & Chr ( 13 ) ) '812
                Response.Write ( "<p><li><b>协议许可的权利</b>" & Chr ( 13 ) ) '813
                Response.Write ( "<ul type=""1"">" & Chr ( 13 ) ) '814
                Response.Write ( "<li>您可以在完全遵守本最终用户授权协议的基础上，将本软件应用于非商业用途，而不必支付软件版权授权费用。" & Chr ( 13 ) ) '815
                Response.Write ( "<li>您可以在协议规定的约束和限制范围内修改 FTBBS 源代码(如果被提供的话)或界面风格以适应您的网站要求。" & Chr ( 13 ) ) '816
                Response.Write ( "<li>您拥有使用本软件构建的论坛中全部会员资料、文章及相关信息的所有权，并独立承担与文章内容的相关法律义务。" & Chr ( 13 ) ) '817
                Response.Write ( "<li>获得商业授权之后，您可以将本软件应用于商业用途，同时依据所购买的授权类型中确定的技术支持期限、技术支持方式和技术支持内容，" & Chr ( 13 ) ) '818
                Response.Write ( "自购买时刻起，在技术支持期限内拥有通过指定的方式获得指定范围内的技术支持服务。商业授权用户享有反映和提出意见的权力，相关意见" & Chr ( 13 ) ) '819
                Response.Write ( "将被作为首要考虑，但没有一定被采纳的承诺或保证。" & Chr ( 13 ) ) '820
                Response.Write ( "</ul>" & Chr ( 13 ) ) '821
                Response.Write ( "<p><li><b>协议规定的约束和限制</b>" & Chr ( 13 ) ) '822
                Response.Write ( "<ul type=""1"">" & Chr ( 13 ) ) '823
                Response.Write ( "<li>未获商业授权之前，不得将本软件用于商业用途（包括但不限于企业网站、经营性网站、以营利为目或实现盈利的网站）。购买商业授权请登陆http://www.ftbbs.cn参考相关说明，也可以致电0592-8425149了解详情。" & Chr ( 13 ) ) '824
                Response.Write ( "<li>不得对本软件或与之关联的商业授权进行出租、出售、抵押或发放子许可证。" & Chr ( 13 ) ) '825
                Response.Write ( "<li>无论如何，即无论用途如何、是否经过修改或美化、修改程度如何，只要使用 FTBBS 的整体或任何部分，未经书面许可，论坛页面页脚处" & Chr ( 13 ) ) '826
                Response.Write ( "的 FTBBS 名称和网站（http://www.ftbbs.cn） 的链接都必须保留，而不能清除或修改。" & Chr ( 13 ) ) '827
                Response.Write ( "<li>禁止在 FTBBS 的整体或任何部分基础上以发展任何派生版本、修改版本或第三方版本用于重新分发。" & Chr ( 13 ) ) '828
                Response.Write ( "<li>如果您未能遵守本协议的条款，您的授权将被终止，所被许可的权利将被收回，并承担相应法律责任。" & Chr ( 13 ) ) '829
                Response.Write ( "</ul>" & Chr ( 13 ) ) '830
                Response.Write ( "<p><li><b>有限担保和免责声明</b>" & Chr ( 13 ) ) '831
                Respon