setup.aspx.vb

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

            strSQL = strSQL + "upload_htm text(80) Null , " '466
            strSQL = strSQL + "sign int NULL default 0, " '467
            strSQL = strSQL + "pic_note text(200) , " '468
            strSQL = strSQL + "photo_name text(20) Null , " '469
            strSQL = strSQL + "photo_bg_blog int NULL default 0, " '470
            strSQL = strSQL + "photo_pl_num int NULL default 0, " '471
            strSQL = strSQL + "bbs_blog_type int NULL default 0, " '472
            strSQL = strSQL + "clubuser_id int NULL ," '473
            strSQL = strSQL + "sale int NULL default 0 " '474
            strSQL = strSQL + ") " '475
            Conn.Execute ( strSQL ) '476
            strSQL = "CREATE TABLE " & ft & "ftbbsmb (" '477
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '478
            strSQL = strSQL + "postmb text NULL , " '479
            strSQL = strSQL + "repostmb text NULL , " '480
            strSQL = strSQL + "repostformmb text NULL , " '481
            strSQL = strSQL + "postpollmb text NULL , " '482
            strSQL = strSQL + "postpgnum int NULL default 30, " '483
            strSQL = strSQL + "repostpgnum int NULL default 10, " '484
            strSQL = strSQL + "folder text(15) Null , " '485
            strSQL = strSQL + "ftbbsmode int NULL default 0, " '486
            strSQL = strSQL + "treemb text NULL , " '487
            strSQL = strSQL + "bbs_domain text(50) Null , " '488
            strSQL = strSQL + "bbs_name text(30) Null , " '489
            strSQL = strSQL + "upload_type text(100) Null , " '490
            strSQL = strSQL + "upload_size int NULL default 0, " '491
            strSQL = strSQL + "ft_ver text(50) Null , " '492
            strSQL = strSQL + "gifjpg int NULL default 0, " '493
            strSQL = strSQL + "uploadoff int NULL default 0, " '494
            strSQL = strSQL + "regoff int NULL default 0, " '495
            strSQL = strSQL + "posttime int NULL default 0, " '496
            strSQL = strSQL + "reposttime int NULL default 0, " '497
            strSQL = strSQL + "regsmstitle text(50) Null , " '498
            strSQL = strSQL + "regsmscontent text NULL , " '499
            strSQL = strSQL + "usernamelng text(20) Null , " '500
            strSQL = strSQL + "pswlng text(20) Null , " '501
            strSQL = strSQL + "jmailoff int NULL default 0, " '502
            strSQL = strSQL + "mailuser text(20) Null , " '503
            strSQL = strSQL + "mailpwd text(20) Null , " '504
            strSQL = strSQL + "mailaddress text(50) Null , " '505
            strSQL = strSQL + "mailsmtp text(30) Null , " '506
            strSQL = strSQL + "defaultcss int NULL default 0, " '507
            strSQL = strSQL + "getcodeoff int NULL default 0, " '508
            strSQL = strSQL + "bakoff int NULL default 0, " '509
            strSQL = strSQL + "htm_ext text(15) Null , " '510
            strSQL = strSQL + "onlineoff int NULL default 0, " '511
            strSQL = strSQL + "linkoff int NULL default 0, " '512
            strSQL = strSQL + "bakmb text NULL , " '513
            strSQL = strSQL + "waterimg int NULL default 0, " '514
            strSQL = strSQL + "headmb text NULL , " '515
            strSQL = strSQL + "shoff int NULL default 0, " '516
            strSQL = strSQL + "byoff int NULL default 0, " '517
            strSQL = strSQL + "onlinetime int NULL default 10, " '518
            strSQL = strSQL + "adminfile text(30) Null , " '519
            strSQL = strSQL + "postbegintime text(15) Null , " '520
            strSQL = strSQL + "postendtime text(15) Null , " '521
            strSQL = strSQL + "repostbegintime text(15) Null , " '522
            strSQL = strSQL + "repostendtime text(15) Null , " '523
            strSQL = strSQL + "swapmoney int NULL default 1, " '524
            strSQL = strSQL + "integral int NULL default 100, " '525
            strSQL = strSQL + "postget int NULL default 10, " '526
            strSQL = strSQL + "repostget int NULL default 5, " '527
            strSQL = strSQL + "topostget int NULL default 2, " '528
            strSQL = strSQL + "tjget int NULL default 10, " '529
            strSQL = strSQL + "jhget int NULL default 10, " '530
            strSQL = strSQL + "logintili int NULL default 1, " '531
            strSQL = strSQL + "postvalue int NULL default 0, " '532
            strSQL = strSQL + "pollvalue int NULL default 0, " '533
            strSQL = strSQL + "topvalue int NULL default 0, " '534
            strSQL = strSQL + "tjvalue int NULL default 0, " '535
            strSQL = strSQL + "jhvalue int NULL default 0, " '536
            strSQL = strSQL + "downvalue int NULL default 0, " '537
            strSQL = strSQL + "uploadvalue int NULL default 0, " '538
            strSQL = strSQL + "bakvalue int NULL default 0, " '539
            strSQL = strSQL + "spid text(20) Null , " '540
            strSQL = strSQL + "spkey text(50) Null , " '541
            strSQL = strSQL + "returnurl text(100) Null , " '542
            strSQL = strSQL + "sitenav text Null " '543
            strSQL = strSQL + ") " '544
            Conn.Execute ( strSQL ) '545
            strSQL = "CREATE TABLE " & ft & "ftblog (" '546
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '547
            strSQL = strSQL + "blogtitle text(50) Null , " '548
            strSQL = strSQL + "blogtypeid int NULL , " '549
            strSQL = strSQL + "blogcontent text NULL , " '550
            strSQL = strSQL + "blogqs int NULL default 0, " '551
            strSQL = strSQL + "writedate datetime NULL default now(), " '552
            strSQL = strSQL + "xinqin text(20) Null , " '553
            strSQL = strSQL + "blogplnum int NULL default 0, " '554
            strSQL = strSQL + "flower int NULL default 0, " '555
            strSQL = strSQL + "jidan int NULL default 0, " '556
            strSQL = strSQL + "hits int NULL default 0, " '557
            strSQL = strSQL + "userid int NULL , " '558
            strSQL = strSQL + "userip text(30) Null , " '559
            strSQL = strSQL + "blogtop int NULL default 0, " '560
            strSQL = strSQL + "blogtj int NULL default 0, " '561
            strSQL = strSQL + "bloghtmfile text(80) Null , " '562
            strSQL = strSQL + "blognum int NULL default 0, " '563
            strSQL = strSQL + "blogtag text(200) , " '564
            strSQL = strSQL + "plqs int NULL default 0, " '565
            strSQL = strSQL + "sign int NULL default 0, " '566
            strSQL = strSQL + "cssfile text(50) Null " '567
            strSQL = strSQL + ") " '568
            Conn.Execute ( strSQL ) '569
            strSQL = "CREATE TABLE " & ft & "ftblog_pl (" '570
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '571
            strSQL = strSQL + "netname text(30) Null , " '572
            strSQL = strSQL + "pltitle text(50) Null , " '573
            strSQL = strSQL + "plcontent text NULL , " '574
            strSQL = strSQL + "blogid int NULL , " '575
            strSQL = strSQL + "userid int NULL , " '576
            strSQL = strSQL + "sign int NULL default 0, " '577
            strSQL = strSQL + "userip text(30) Null , " '578
            strSQL = strSQL + "pldate datetime NULL default now(), " '579
            strSQL = strSQL + "plqs int NULL default 0, " '580
            strSQL = strSQL + "pltype int NULL default 0, " '581
            strSQL = strSQL + "plnum int NULL default 0" '582
            strSQL = strSQL + ") " '583
            Conn.Execute ( strSQL ) '584
            strSQL = "CREATE TABLE " & ft & "ftblog_type (" '585
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '586
            strSQL = strSQL + "userid int NULL , " '587
            strSQL = strSQL + "blogtype text(50) Null default 0, " '588
            strSQL = strSQL + "sign int NULL default 0, " '589
            strSQL = strSQL + "indate datetime NULL default now(), " '590
            strSQL = strSQL + "qs int NULL default 0, " '591
            strSQL = strSQL + "userip text(20) Null , " '592
            strSQL = strSQL + "totalnum int NULL default 0, " '593
            strSQL = strSQL + "blogphoto int NULL default 0, " '594
            strSQL = strSQL + "alumpwd text(50) Null " '595
            strSQL = strSQL + ") " '596
            Conn.Execute ( strSQL ) '597
            strSQL = "CREATE TABLE " & ft & "haoyou (" '598
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '599
            strSQL = strSQL + "userid int NULL , " '600
            strSQL = strSQL + "haoyouname text(10) Null , " '601
            strSQL = strSQL + "groupname text(20) Null , " '602
            strSQL = strSQL + "sign int NULL default 0, " '603
            strSQL = strSQL + "addtime datetime NULL default now() " '604
            strSQL = strSQL + ") " '605
            Conn.Execute ( strSQL ) '606
            strSQL = "CREATE TABLE " & ft & "links (" '607
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '608
            strSQL = strSQL + "ftbbs_class text(2) Null , " '609
            strSQL = strSQL + "ftbbs_name text(50) Null , " '610
            strSQL = strSQL + "ftbbs_url text(100) Null , " '611
            strSQL = strSQL + "ftbbs_logo text(100) Null , " '612
            strSQL = strSQL + "ftbbs_qq text(50) Null , " '613
            strSQL = strSQL + "ftbbs_mail text(50) Null , " '614
            strSQL = strSQL + "ftbbs_zhu text NULL , " '615
            strSQL = strSQL + "ftbbs_time datetime NULL default now(), " '616
            strSQL = strSQL + "ftbbs_pass text(1) Null default N" '617
            strSQL = strSQL + ") " '618
            Conn.Execute ( strSQL ) '619
            strSQL = "CREATE TABLE " & ft & "sms (" '620
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '621
            strSQL = strSQL + "title text(150) Null , " '622
            strSQL = strSQL + "content text NULL , " '623
            strSQL = strSQL + "sender text(20) Null , " '624
            strSQL = strSQL + "accepter text(20) Null , " '625
            strSQL = strSQL + "indate datetime NULL default now(), " '626
            strSQL = strSQL + "replysign int NULL default 0, " '627
            strSQL = strSQL + "display int NULL default 0, " '628
            strSQL = strSQL + "bbssystem int NULL default 0, " '629
            strSQL = strSQL + "IsNew int NULL default 0" '630
            strSQL = strSQL + ") " '631
            Conn.Execute ( strSQL ) '632
            strSQL = "CREATE TABLE " & ft & "xunzhang (" '633
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '634
            strSQL = strSQL + "xzms text(50) Null , " '635
            strSQL = strSQL + "xzimg text(20) Null , " '636
            strSQL = strSQL + "flag int NULL default 0" '637
            strSQL = strSQL + ") " '638
            Conn.Execute ( strSQL ) '639
            strSQL = "insert into " & ft & "ftbbs_admin (admin_user, admin_pwd, lasttime, qs, adminqs) VALUES ('" & adminuser & "', '" & adminpwd & "', '" & DateAndTime.Now & "', 2, '1, 2, 3')" '640
            Conn.Execute ( strSQL ) '641
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(0,50,'小野人','userheadimg/class8.gif')" '642
            Conn.Execute ( strSQL ) '643
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(50,150,'野人','userheadimg/class9.gif')" '644
            Conn.Execute ( strSQL ) '645
            strSQL = "insert into " & ft & "ftbbs_touxian(xiao,da,nick,classx) values(150,500,'土人','userheadimg/class10.gif')" '646