register.aspx.vb

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

    Response.Write ( "" & Chr ( 9 ) & "}else{" & Chr ( 13 ) ) '241
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_err"";" & Chr ( 13 ) ) '242
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML=msg[0];" & Chr ( 13 ) ) '243
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_uname_img"").src=li_err;" & Chr ( 13 ) ) '244
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '245
    Response.Write ( "" & Chr ( 9 ) & "return chk;" & Chr ( 13 ) ) '246
    Response.Write ( "}" & Chr ( 13 ) ) '247
    Response.Write ( "function createXMLHttps()" & Chr ( 13 ) ) '248
    Response.Write ( "{" & Chr ( 13 ) ) '249
    Response.Write ( "    var ret = null;" & Chr ( 13 ) ) '250
    Response.Write ( "    try {" & Chr ( 13 ) ) '251
    Response.Write ( "        ret = new ActiveXObject('Msxml2.XMLHTTP');" & Chr ( 13 ) ) '252
    Response.Write ( "    }" & Chr ( 13 ) ) '253
    Response.Write ( "    catch (e) {" & Chr ( 13 ) ) '254
    Response.Write ( "        try {" & Chr ( 13 ) ) '255
    Response.Write ( "            ret = new ActiveXObject('Microsoft.XMLHTTP');" & Chr ( 13 ) ) '256
    Response.Write ( "        }" & Chr ( 13 ) ) '257
    Response.Write ( "        catch (ee) {" & Chr ( 13 ) ) '258
    Response.Write ( "            ret = null;" & Chr ( 13 ) ) '259
    Response.Write ( "        }" & Chr ( 13 ) ) '260
    Response.Write ( "    }" & Chr ( 13 ) ) '261
    Response.Write ( "    if (!ret && typeof XMLHttpRequest != 'undefined')" & Chr ( 13 ) ) '262
    Response.Write ( "        ret = new XMLHttpRequest();" & Chr ( 13 ) ) '263
    Response.Write ( "    return ret;" & Chr ( 13 ) ) '264
    Response.Write ( "}" & Chr ( 13 ) ) '265
    Response.Write ( "function managestatechange(){ " & Chr ( 13 ) ) '266
    Response.Write ( "   switch(oXMLHTTP.readyState){ " & Chr ( 13 ) ) '267
    Response.Write ( "   case 2, 3: " & Chr ( 13 ) ) '268
    Response.Write ( "     document.all(""d_pre"").style.display = ""block"";" & Chr ( 13 ) ) '269
    Response.Write ( "" & Chr ( 9 ) & " document.getElementById(""d_pre"").innerHTML=""正在进行验证,请等待……"";" & Chr ( 13 ) ) '270
    Response.Write ( "     break; " & Chr ( 13 ) ) '271
    Response.Write ( "   case 4:" & Chr ( 13 ) ) '272
    Response.Write ( "     if(oXMLHTTP.responseText == ""exists""){" & Chr ( 13 ) ) '273
    Response.Write ( "" & Chr ( 9 ) & " document.getElementById(""d_uname"").className=""d_err"";" & Chr ( 13 ) ) '274
    Response.Write ( "" & Chr ( 9 ) & " document.getElementById(""d_uname_img"").src=li_err;" & Chr ( 13 ) ) '275
    Response.Write ( "     document.getElementById(""d_uname"").innerHTML=""很抱歉,"" + userid + ""已被注册,请换一个用户名才可提交."";" & Chr ( 13 ) ) '276
    Response.Write ( "" & Chr ( 9 ) & " document.getElementById('regbotton').disabled='disabled';" & Chr ( 13 ) ) '277
    Response.Write ( "" & Chr ( 9 ) & " document.all(""d_pre"").style.display = ""none"";" & Chr ( 13 ) ) '278
    Response.Write ( "" & Chr ( 9 ) & " }else{" & Chr ( 13 ) ) '279
    Response.Write ( "" & Chr ( 9 ) & " document.getElementById(""d_uname"").className=""d_ok"";" & Chr ( 13 ) ) '280
    Response.Write ( "" & Chr ( 9 ) & " document.getElementById(""d_uname_img"").src=li_ok;" & Chr ( 13 ) ) '281
    Response.Write ( "     document.getElementById(""d_uname"").innerHTML=""恭喜你,"" + userid + ""用户名还没有被注册."";" & Chr ( 13 ) ) '282
    Response.Write ( "" & Chr ( 9 ) & " document.getElementById('regbotton').disabled='';" & Chr ( 13 ) ) '283
    Response.Write ( "" & Chr ( 9 ) & " document.all(""d_pre"").style.display = ""none"";" & Chr ( 13 ) ) '284
    Response.Write ( "" & Chr ( 9 ) & " }" & Chr ( 13 ) ) '285
    Response.Write ( "     break; " & Chr ( 13 ) ) '286
    Response.Write ( "   }" & Chr ( 13 ) ) '287
    Response.Write ( "} " & Chr ( 13 ) ) '288
    Response.Write ( "function out_upwd1(){" & Chr ( 13 ) ) '289
    Response.Write ( "" & Chr ( 9 ) & "var obj=document.getElementById(""d_upwd1"");" & Chr ( 13 ) ) '290
    Response.Write ( "" & Chr ( 9 ) & "var str=document.getElementById(""upwd"").value;" & Chr ( 13 ) ) '291
    Response.Write ( "" & Chr ( 9 ) & "var chk=true;" & Chr ( 13 ) ) '292
    Response.Write ( "" & Chr ( 9 ) & "if (str=='' || str.length<" ) '293
    Response.Write ( pswlng1 ) '293
    Response.Write ( " || str.length>" ) '293
    Response.Write ( pswlng2 ) '293
    Response.Write ( "){chk=false;}" & Chr ( 13 ) ) '293
    Response.Write ( "" & Chr ( 9 ) & "if (chk){" & Chr ( 13 ) ) '294
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_ok"";" & Chr ( 13 ) ) '295
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML='密码已经输入。';" & Chr ( 13 ) ) '296
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_upwd1_img"").src=li_ok;" & Chr ( 13 ) ) '297
    Response.Write ( "" & Chr ( 9 ) & "}else{" & Chr ( 13 ) ) '298
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_err"";" & Chr ( 13 ) ) '299
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML=msg[1];" & Chr ( 13 ) ) '300
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_upwd1_img"").src=li_err;" & Chr ( 13 ) ) '301
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '302
    Response.Write ( "" & Chr ( 9 ) & "return chk;" & Chr ( 13 ) ) '303
    Response.Write ( "}" & Chr ( 13 ) ) '304
    Response.Write ( "function out_upwd2(){" & Chr ( 13 ) ) '305
    Response.Write ( "" & Chr ( 9 ) & "var obj=document.getElementById(""d_upwd2"");" & Chr ( 13 ) ) '306
    Response.Write ( "" & Chr ( 9 ) & "var str=document.getElementById(""pwdsub"").value;" & Chr ( 13 ) ) '307
    Response.Write ( "" & Chr ( 9 ) & "var chk=true;" & Chr ( 13 ) ) '308
    Response.Write ( "" & Chr ( 9 ) & "if (str!=document.getElementById(""upwd"").value||str==''){chk=false;}" & Chr ( 13 ) ) '309
    Response.Write ( "" & Chr ( 9 ) & "if (chk){" & Chr ( 13 ) ) '310
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_ok"";" & Chr ( 13 ) ) '311
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML='重复密码输入正确。';" & Chr ( 13 ) ) '312
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_upwd2_img"").src=li_ok;" & Chr ( 13 ) ) '313
    Response.Write ( "" & Chr ( 9 ) & "}else{" & Chr ( 13 ) ) '314
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_err"";" & Chr ( 13 ) ) '315
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML=msg[2];" & Chr ( 13 ) ) '316
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_upwd2_img"").src=li_err;" & Chr ( 13 ) ) '317
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '318
    Response.Write ( "" & Chr ( 9 ) & "return chk;" & Chr ( 13 ) ) '319
    Response.Write ( "}" & Chr ( 13 ) ) '320
    Response.Write ( "function out_question(){" & Chr ( 13 ) ) '321
    Response.Write ( "" & Chr ( 9 ) & "var obj=document.getElementById(""d_question"");" & Chr ( 13 ) ) '322
    Response.Write ( "" & Chr ( 9 ) & "var str=document.getElementById(""question"").value;" & Chr ( 13 ) ) '323
    Response.Write ( "" & Chr ( 9 ) & "var chk=true;" & Chr ( 13 ) ) '324
    Response.Write ( "" & Chr ( 9 ) & "if (str==''){chk=false}" & Chr ( 13 ) ) '325
    Response.Write ( "" & Chr ( 9 ) & "if (chk){" & Chr ( 13 ) ) '326
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_ok"";" & Chr ( 13 ) ) '327
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML='密码提示问题已经选择。';" & Chr ( 13 ) ) '328
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_question_img"").src=li_ok;" & Chr ( 13 ) ) '329
    Response.Write ( "" & Chr ( 9 ) & "}else{" & Chr ( 13 ) ) '330
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_err"";" & Chr ( 13 ) ) '331
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML=msg[3];" & Chr ( 13 ) ) '332
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_question_img"").src=li_err;" & Chr ( 13 ) ) '333
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '334
    Response.Write ( "" & Chr ( 9 ) & "return chk;" & Chr ( 13 ) ) '335
    Response.Write ( "}" & Chr ( 13 ) ) '336
    Response.Write ( "function pro_city(){" & Chr ( 13 ) ) '337
    Response.Write ( "" & Chr ( 9 ) & "var obj=document.getElementById(""d_province"");" & Chr ( 13 ) ) '338
    Response.Write ( "" & Chr ( 9 ) & "var str=document.getElementById(""province"").value;" & Chr ( 13 ) ) '339
    Response.Write ( "" & Chr ( 9 ) & "var str2=document.getElementById(""city"").value;" & Chr ( 13 ) ) '340
    Response.Write ( "" & Chr ( 9 ) & "var chk=true;" & Chr ( 13 ) ) '341
    Response.Write ( "" & Chr ( 9 ) & "if (str==''){chk=false}" & Chr ( 13 ) ) '342
    Response.Write ( "" & Chr ( 9 ) & "if (chk){" & Chr ( 13 ) ) '343
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_ok"";" & Chr ( 13 ) ) '344
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML=""你选择的所在地是:""+str+str2+""。"";" & Chr ( 13 ) ) '345
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_province_img"").src=li_ok;" & Chr ( 13 ) ) '346
    Response.Write ( "" & Chr ( 9 ) & "}else{" & Chr ( 13 ) ) '347
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_err"";" & Chr ( 13 ) ) '348
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML=""请选择所在省份城市。"";" & Chr ( 13 ) ) '349
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_province_img"").src=li_err;" & Chr ( 13 ) ) '350
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '351
    Response.Write ( "" & Chr ( 9 ) & "return chk;" & Chr ( 13 ) ) '352
    Response.Write ( "}" & Chr ( 13 ) ) '353
    Response.Write ( "function out_an(){" & Chr ( 13 ) ) '354
    Response.Write ( "" & Chr ( 9 ) & "var obj=document.getElementById(""d_an"");" & Chr ( 13 ) ) '355
    Response.Write ( "" & Chr ( 9 ) & "var str=sl(document.getElementById(""answer"").value);" & Chr ( 13 ) ) '356
    Response.Write ( "" & Chr ( 9 ) & "var chk=true;" & Chr ( 13 ) ) '357
    Response.Write ( "" & Chr ( 9 ) & "if (str<6 || str>40){chk=false}" & Chr ( 13 ) ) '358
    Response.Write ( "" & Chr ( 9 ) & "if (chk){" & Chr ( 13 ) ) '359
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_ok"";" & Chr ( 13 ) ) '360
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML='密码提示问题答案已经输入。';" & Chr ( 13 ) ) '361
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_an_img"").src=li_ok;" & Chr ( 13 ) ) '362
    Response.Write ( "" & Chr ( 9 ) & "}else{" & Chr ( 13 ) ) '363
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_err"";" & Chr ( 13 ) ) '364
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "//obj.innerHTML=msg[3];" & Chr ( 13 ) ) '365
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML='请输入密码提示问题答案。';" & Chr ( 13 ) ) '366
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_an_img"").src=li_err;" & Chr ( 13 ) ) '367
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '368
    Response.Write ( "" & Chr ( 9 ) & "return chk;" & Chr ( 13 ) ) '369
    Response.Write ( "}" & Chr ( 13 ) ) '370
    Response.Write ( "function out_email(){" & Chr ( 13 ) ) '371
    Response.Write ( "" & Chr ( 9 ) & "var obj=document.getElementById(""d_email"");" & Chr ( 13 ) ) '372
    Response.Write ( "" & Chr ( 9 ) & "var str=document.getElementById(""email"").value;" & Chr ( 13 ) ) '373
    Response.Write ( "" & Chr ( 9 ) & "var chk=true;" & Chr ( 13 ) ) '374
    Response.Write ( "" & Chr ( 9 ) & "if (str==''|| !str.match(/^[\w\.\-]+@([\w\-]+\.)+[a-z]{2,4}$/ig)){chk=false}" & Chr ( 13 ) ) '375
    Response.Write ( "" & Chr ( 9 ) & "if (chk){" & Chr ( 13 ) ) '376
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_ok"";" & Chr ( 13 ) ) '377
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML='电子邮箱地址已经输入。';" & Chr ( 13 ) ) '378
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_email_img"").src=li_ok;" & Chr ( 13 ) ) '379
    Response.Write ( "" & Chr ( 9 ) & "}else{" & Chr ( 13 ) ) '380
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_err"";" & Chr ( 13 ) ) '381
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML=msg[5];" & Chr ( 13 ) ) '382
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_email_img"").src=li_err;" & Chr ( 13 ) ) '383
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '384
    Response.Write ( "" & Chr ( 9 ) & "return chk;" & Chr ( 13 ) ) '385
    Response.Write ( "}" & Chr ( 13 ) ) '386
    Response.Write ( "function out_passregtext(){" & Chr ( 13 ) ) '387
    Response.Write ( "" & Chr ( 9 ) & "var obj=document.getElementById(""d_passregtext"");" & Chr ( 13 ) ) '388
    Response.Write ( "" & Chr ( 9 ) & "var chk=true;" & Chr ( 13 ) ) '389
    Response.Write ( "" & Chr ( 9 ) & "" & Chr ( 13 ) ) '390
    Response.Write ( "" & Chr ( 9 ) & "if (document.form1.passregtext[1].checked){chk=false}" & Chr ( 13 ) ) '391
    Response.Write ( "" & Chr ( 9 ) & "if (chk){" & Chr ( 13 ) ) '392
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_ok"";" & Chr ( 13 ) ) '393
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML='您已经同意了注册协议。';" & Chr ( 13 ) ) '394
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_passregtext_img"").src=li_ok;" & Chr ( 13 ) ) '395
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById('regbotton').disabled='';" & Chr ( 13 ) ) '396
    Response.Write ( "" & Chr ( 9 ) & "}else{" & Chr ( 13 ) ) '397
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.className=""d_err"";" & Chr ( 13 ) ) '398
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.innerHTML=msg[6];" & Chr ( 13 ) ) '399
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById(""d_passregtext_img"").src=li_err;" & Chr ( 13 ) ) '400
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById('regbotton').disabled='disabled';" & Chr ( 13 ) ) '401
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '402
    Response.Write ( "" & Chr ( 9 ) & "return chk;" & Chr ( 13 ) ) '403
    Response.Write ( "}" & Chr ( 13 ) ) '404
    Response.Write ( "function chk_reg(){" & Chr ( 13 ) ) '405
    Response.Write ( "" & Chr ( 9 ) & "var chk=true" & Chr ( 13 ) ) '406
    Response.Write ( "" & Chr ( 9 ) & "if (!out_uname()){chk=false}" & Chr ( 13 ) ) '407
    Response.Write ( "" & Chr ( 9 ) & "if (!out_upwd1()){chk=false}" & Chr ( 13 ) ) '408