setup.aspx.vb

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

            strSQL = strSQL + "P_display int NULL default 1, " '285
            strSQL = strSQL + "showInHomepage bit NULL default 0, " '286
            strSQL = strSQL + "picture text(15) Null , " '287
            strSQL = strSQL + "htmfilename text(50) Null , " '288
            strSQL = strSQL + "postnum int NULL default 0, " '289
            strSQL = strSQL + "bbstop int NULL default 0, " '290
            strSQL = strSQL + "bbstop1 int NULL default 0, " '291
            strSQL = strSQL + "titlecolor text(15) Null , " '292
            strSQL = strSQL + "boardsign int NULL default 0, " '293
            strSQL = strSQL + "flag int NULL default 0, " '294
            strSQL = strSQL + "reinfo text NULL, " '295
            strSQL = strSQL + "xsjf int NULL default 0, " '296
            strSQL = strSQL + "xsdaynum int NULL default 0, " '297
            strSQL = strSQL + "xsreid int NULL default 0" '298
            strSQL = strSQL + ") " '299
            Conn.Execute ( strSQL ) '300
            strSQL = "CREATE TABLE " & ft & "clubuser (" '301
            strSQL = strSQL + "clubuser_id autoincrement PRIMARY KEY , " '302
            strSQL = strSQL + "clubuser_name text(100) Null , " '303
            strSQL = strSQL + "clubuser_nickname text(50) Null , " '304
            strSQL = strSQL + "clubuser_password text(50) Null , " '305
            strSQL = strSQL + "clubuser_phone text(50) Null , " '306
            strSQL = strSQL + "clubuser_fax text(50) Null , " '307
            strSQL = strSQL + "clubuser_url text(50) Null , " '308
            strSQL = strSQL + "clubuser_email text(50) Null , " '309
            strSQL = strSQL + "clubuser_address text(50) Null , " '310
            strSQL = strSQL + "clubuser_note text NULL , " '311
            strSQL = strSQL + "clubuser_reg_date datetime NULL default now(), " '312
            strSQL = strSQL + "clubuser_enter_count smallint NULL default 0, " '313
            strSQL = strSQL + "clubuser_ip text(50) Null , " '314
            strSQL = strSQL + "clubuser_realname text(50) Null , " '315
            strSQL = strSQL + "clubuser_id_type text(50) Null , " '316
            strSQL = strSQL + "clubuser_id_num text(50) Null , " '317
            strSQL = strSQL + "clubuser_sex text(10) Null , " '318
            strSQL = strSQL + "clubuser_old int NULL , " '319
            strSQL = strSQL + "clubuser_education text(50) Null , " '320
            strSQL = strSQL + "clubuser_career text(50) Null , " '321
            strSQL = strSQL + "clubuser_position text(50) Null , " '322
            strSQL = strSQL + "clubuser_salary text(50) Null , " '323
            strSQL = strSQL + "clubuser_marriage text(50) Null , " '324
            strSQL = strSQL + "clubuser_zip text(250) Null , " '325
            strSQL = strSQL + "clubuser_lasttime datetime NULL , " '326
            strSQL = strSQL + "clubuser_question text(50) Null , " '327
            strSQL = strSQL + "clubuser_answer text(50) Null , " '328
            strSQL = strSQL + "clubuser_province text(50) Null , " '329
            strSQL = strSQL + "clubuser_city text(50) Null , " '330
            strSQL = strSQL + "payuser int NULL default 0, " '331
            strSQL = strSQL + "lastloginip text(50) Null , " '332
            strSQL = strSQL + "baksign int NULL default 0, " '333
            strSQL = strSQL + "signname text NULL , " '334
            strSQL = strSQL + "jingyuan int NULL default 0, " '335
            strSQL = strSQL + "tili int NULL default 100, " '336
            strSQL = strSQL + "userimg text(15) Null , " '337
            strSQL = strSQL + "bbsmanager int NULL default 0, " '338
            strSQL = strSQL + "bbsadmin int NULL default 0, " '339
            strSQL = strSQL + "friend text NULL , " '340
            strSQL = strSQL + "JFM text(20) Null , " '341
            strSQL = strSQL + "jfmsign int NULL default 0, " '342
            strSQL = strSQL + "postnum int NULL default 0, " '343
            strSQL = strSQL + "clubuser_money int NULL default 0, " '344
            strSQL = strSQL + "homepagetitle text(80) Null , " '345
            strSQL = strSQL + "homepagesign int NULL default 0, " '346
            strSQL = strSQL + "blog_mid text(100) Null , " '347
            strSQL = strSQL + "blog_face text(50) Null , " '348
            strSQL = strSQL + "lyplsign int NULL default 0, " '349
            strSQL = strSQL + "photo_bg text(30) Null , " '350
            strSQL = strSQL + "userfloder text(15) Null , " '351
            strSQL = strSQL + "spacesize int NULL default 100, " '352
            strSQL = strSQL + "bokeer int NULL default 0, " '353
            strSQL = strSQL + "homepagehits int NULL default 0, " '354
            strSQL = strSQL + "cssfile text(50) Null , " '355
            strSQL = strSQL + "blogheadimg text(10) Null " '356
            strSQL = strSQL + ") " '357
            Conn.Execute ( strSQL ) '358
            strSQL = "CREATE TABLE " & ft & "ftbbs_Online (" '359
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '360
            strSQL = strSQL + "sessid text(100) Null , " '361
            strSQL = strSQL + "username text(50) Null , " '362
            strSQL = strSQL + "useradmin int NULL , " '363
            strSQL = strSQL + "stats text(255) Null , " '364
            strSQL = strSQL + "ip text(15) Null , " '365
            strSQL = strSQL + "logintime datetime NULL , " '366
            strSQL = strSQL + "lasttime datetime NULL " '367
            strSQL = strSQL + ") " '368
            Conn.Execute ( strSQL ) '369
            strSQL = "CREATE TABLE " & ft & "ftbbs_ad (" '370
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '371
            strSQL = strSQL + "adtitle text(100) Null , " '372
            strSQL = strSQL + "adurl text(80) Null , " '373
            strSQL = strSQL + "adcolor text(12) Null , " '374
            strSQL = strSQL + "adflag int NULL default 0, " '375
            strSQL = strSQL + "adtype int NULL default 0, " '376
            strSQL = strSQL + "begintime datetime NULL , " '377
            strSQL = strSQL + "endtime datetime NULL , " '378
            strSQL = strSQL + "ad_h int NULL default 0, " '379
            strSQL = strSQL + "ad_w int NULL default 0, " '380
            strSQL = strSQL + "ad_p int NULL default 0, " '381
            strSQL = strSQL + "bytime datetime NULL default now()" '382
            strSQL = strSQL + ") " '383
            Conn.Execute ( strSQL ) '384
            strSQL = "CREATE TABLE " & ft & "ftbbs_admin (" '385
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '386
            strSQL = strSQL + "admin_user text(20) Null , " '387
            strSQL = strSQL + "admin_pwd text(20) Null , " '388
            strSQL = strSQL + "lasttime datetime NULL default now(), " '389
            strSQL = strSQL + "qs int NULL default 1, " '390
            strSQL = strSQL + "adminqs text(50) Null " '391
            strSQL = strSQL + ") " '392
            Conn.Execute ( strSQL ) '393
            strSQL = "CREATE TABLE " & ft & "ftbbs_bmtb (" '394
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '395
            strSQL = strSQL + "titleid int NULL default 0, " '396
            strSQL = strSQL + "username text(50) Null , " '397
            strSQL = strSQL + "tel text(20) Null , " '398
            strSQL = strSQL + "age int NULL default 0, " '399
            strSQL = strSQL + "sex text(5) Null , " '400
            strSQL = strSQL + "job text(20) Null , " '401
            strSQL = strSQL + "edu text(15) Null , " '402
            strSQL = strSQL + "address text(50) Null , " '403
            strSQL = strSQL + "qq text(20) Null , " '404
            strSQL = strSQL + "flag int NULL default 0, " '405
            strSQL = strSQL + "infotype int NULL default 0, " '406
            strSQL = strSQL + "bakint int NULL default 0, " '407
            strSQL = strSQL + "bakvar text(50) Null , " '408
            strSQL = strSQL + "mynote text NULL , " '409
            strSQL = strSQL + "indate datetime NULL default now()" '410
            strSQL = strSQL + ") " '411
            Conn.Execute ( strSQL ) '412
            strSQL = "CREATE TABLE " & ft & "ftbbs_favorites (" '413
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '414
            strSQL = strSQL + "clubuser_name text(15) Null , " '415
            strSQL = strSQL + "bbstitleid int NULL default 0, " '416
            strSQL = strSQL + "typesign int NULL default 0, " '417
            strSQL = strSQL + "indate datetime NULL default now()" '418
            strSQL = strSQL + ") " '419
            Conn.Execute ( strSQL ) '420
            strSQL = "CREATE TABLE " & ft & "ftbbs_pay_log (" '421
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '422
            strSQL = strSQL + "clubuser_id int NULL , " '423
            strSQL = strSQL + "paytype int NULL default 0, " '424
            strSQL = strSQL + "paymoney int NULL , " '425
            strSQL = strSQL + "payresults int NULL default 0, " '426
            strSQL = strSQL + "ip text(30) Null , " '427
            strSQL = strSQL + "paytime datetime NULL default now(), " '428
            strSQL = strSQL + "sp_billno text(20) Null " '429
            strSQL = strSQL + ") " '430
            Conn.Execute ( strSQL ) '431
            strSQL = "CREATE TABLE " & ft & "ftbbs_poll_ip (" '432
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '433
            strSQL = strSQL + "bbstitleid int NULL default 0, " '434
            strSQL = strSQL + "poll_user text(15) Null , " '435
            strSQL = strSQL + "poll_user_ip text(18) Null , " '436
            strSQL = strSQL + "poll_date datetime NULL default now()" '437
            strSQL = strSQL + ") " '438
            Conn.Execute ( strSQL ) '439
            strSQL = "CREATE TABLE " & ft & "ftbbs_swap_log (" '440
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '441
            strSQL = strSQL + "clubuser_id int NULL , " '442
            strSQL = strSQL + "swaptype int NULL default 0, " '443
            strSQL = strSQL + "paymoney int NULL , " '444
            strSQL = strSQL + "getmoney int NULL , " '445
            strSQL = strSQL + "ip text(30) Null , " '446
            strSQL = strSQL + "swaptime datetime NULL default now()" '447
            strSQL = strSQL + ") " '448
            Conn.Execute ( strSQL ) '449
            strSQL = "CREATE TABLE " & ft & "ftbbs_touxian (" '450
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '451
            strSQL = strSQL + "xiao int NULL , " '452
            strSQL = strSQL + "da int NULL , " '453
            strSQL = strSQL + "nick text(20) Null , " '454
            strSQL = strSQL + "classx text(30) Null " '455
            strSQL = strSQL + ") " '456
            Conn.Execute ( strSQL ) '457
            strSQL = "CREATE TABLE " & ft & "ftbbs_upload (" '458
            strSQL = strSQL + "id autoincrement PRIMARY KEY , " '459
            strSQL = strSQL + "upload_pic text(80) Null , " '460
            strSQL = strSQL + "indate datetime NULL default now(), " '461
            strSQL = strSQL + "file_type int NULL default 0, " '462
            strSQL = strSQL + "upload_size int NULL default 0, " '463
            strSQL = strSQL + "upload_ext text(10) Null , " '464
            strSQL = strSQL + "userid text(30) Null , " '465