register.aspx.vb

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

    Response.Write ( "<li class='r_left'><img src='images/li_none.gif' class='okimg' id='d_upwd2_img' /> 登录密码确认：</li>" & Chr ( 13 ) ) '94
    Response.Write ( "<li class='r_right'><input name=pwdsub type=password id=pwdsub size=20 maxlength=12 onFocus=""on_input('d_upwd2');"" onblur='out_upwd2();'></li>" & Chr ( 13 ) ) '95
    Response.Write ( "<li class='r_msg'><div id='d_upwd2' class='d_default'></div></li>" & Chr ( 13 ) ) '96
    Response.Write ( "</ul>" & Chr ( 13 ) ) '97
    Response.Write ( "<ul>" & Chr ( 13 ) ) '98
    Response.Write ( "<li class='r_left'><img src='images/li_none.gif' class='okimg' id='d_question_img' /> 密码提示问题：</li>" & Chr ( 13 ) ) '99
    Response.Write ( "<li class='r_right'><select id='question' name='question' onBlur='out_question()' onChange='out_question()'><option selected value=''>--请您选择--</option><option value='我的宠物名字？'>我的宠物名字？</option><option value='我最好的朋友是谁？'>我最好的朋友是谁？</option><option value='我最喜爱的颜色？'>我最喜爱的颜色？</option><option value='我最喜爱的电影？'>我最喜爱的电影？</option><option value='我最喜爱的影星？'>我最喜爱的影星？</option><option value='我最喜爱的歌曲？'>我最喜爱的歌曲？</option><option value='我最喜爱的食物？'>我最喜爱的食物？</option><option value='我最大的爱好？'>我最大的爱好？</option><option value='我中学校名全称是什么？'>我中学校名全称是什么？</option><option value='我的座右铭是？'>我的座右铭是？</option><option value='我最喜欢的小说的名字？'>我最喜欢的小说的名字？</option><option value='我最喜欢的卡通人物名字？'>我最喜欢的卡通人物名字？</option><option value='我母亲/父亲的生日？'>我母亲/父亲的生日？</option><option value='我最欣赏的一位名人的名字？'>我最欣赏的一位名人的名字？</option><option value='我最喜欢的运动队全称？'>我最喜欢的运动队全称？</option><option value='我最喜欢的一句影视台词？'>我最喜欢的一句影视台词？</option></select></li>" & Chr ( 13 ) ) '100
    Response.Write ( "<li class='r_msg'><div id='d_question' class='d_default'></div></li>" & Chr ( 13 ) ) '101
    Response.Write ( "</ul>" & Chr ( 13 ) ) '102
    Response.Write ( "<ul> " & Chr ( 13 ) ) '103
    Response.Write ( "<li class='r_left'><img src='images/li_none.gif' class='okimg' id='d_an_img' /> 密码提示答案：</li>" & Chr ( 13 ) ) '104
    Response.Write ( "<li class='r_right'><input name=answer type=text id=answer size=30 maxlength=30  onfocus=""on_input('d_an');"" onblur='out_an();'>" & Chr ( 13 ) ) '105
    Response.Write ( "</li><li class='r_msg'><div id='d_an' class='d_default'></div></li></ul>" & Chr ( 13 ) ) '106
    Response.Write ( "</fieldset></div>" & Chr ( 13 ) ) '107
    Response.Write ( "<br />" & Chr ( 13 ) ) '108
    Response.Write ( "<div class='reg_content'><fieldset><legend>个人资料</legend>" & Chr ( 13 ) ) '109
    Response.Write ( "<ul>" & Chr ( 13 ) ) '110
    Response.Write ( "<li class='r_left'><img src='images/li_none.gif' class='okimg' id='d_province_img' /> 来&nbsp;&nbsp;　自：</li>" & Chr ( 13 ) ) '111
    Response.Write ( "<li class='r_right'><select style=""width:90"" name=""province"" size=""1"" id=""province"" onblur=""pro_city();"" onchange=""changecity(document.form1.province.options[document.form1.province.selectedIndex].value)""> " & Chr ( 13 ) ) '112
    Response.Write ( "<option value="""" selected>请选择省份</option> " & Chr ( 13 ) ) '113
    allprovince = "安徽,北京,福建,甘肃,广东,广西,贵州,海南,河北,河南,黑龙江,湖北,湖南,吉林,江苏,江西,辽宁,内蒙古,宁夏,青海,山东,山西,陕西,上海,四川,天津,西藏,新疆,云南,浙江,重庆,台湾,香港,澳门,其他" '115
    everyprovince = AspToAspX_Split ( allprovince , "," ) '116
    For i = 0 To Val ( UBound ( everyprovince ) ) '117
        Response.Write ( " " & Chr ( 13 ) ) '118
        Response.Write ( "<option value=""" ) '119
        Response.Write ( everyprovince ( i ) ) '119
        Response.Write ( """>" ) '119
        Response.Write ( everyprovince ( i ) ) '119
        Response.Write ( "</option> " & Chr ( 13 ) ) '119
    Next '120
    Response.Write ( " " & Chr ( 13 ) ) '120
    Response.Write ( "</select> " & Chr ( 13 ) ) '121
    Response.Write ( "<select name=""city"" style=""width:90px"" size=""1"" id=""city"" onchange=""pro_city();""> " & Chr ( 13 ) ) '122
    Response.Write ( "<option value="""" selected>请选择城市</option> " & Chr ( 13 ) ) '123
    Response.Write ( "</select></li><li class='r_msg'><div id='d_province' class='d_default'></div></li>" & Chr ( 13 ) ) '124
    Response.Write ( "</ul>" & Chr ( 13 ) ) '125
    Response.Write ( "<ul> " & Chr ( 13 ) ) '126
    Response.Write ( "<li class='r_left'><img src='images/li_none.gif' class='okimg' id='d_email_img' /> 电子邮箱：</li>" & Chr ( 13 ) ) '127
    Response.Write ( "<li class='r_right'><input name=email id=email type=text size=30 maxlength=32 onFocus=""on_input('d_email');pro_city();"" onblur='out_email();'></li><li class='r_msg'><div id='d_email' class='d_default'></div></li>" & Chr ( 13 ) ) '128
    Response.Write ( "</ul>" & Chr ( 13 ) ) '129
    Response.Write ( "<ul>" & Chr ( 13 ) ) '130
    Response.Write ( "<li class='r_left'><img src='images/li_none.gif' class='okimg' id='d_passregtext_img' /> 性&nbsp;&nbsp;　别：</li>" & Chr ( 13 ) ) '131
    Response.Write ( "<li class='r_right'> <input name=sex type=radio value='男' checked> 男　<input type=radio name=sex value='女' > 女　</li>" & Chr ( 13 ) ) '132
    Response.Write ( "</ul>" & Chr ( 13 ) ) '133
    Response.Write ( "<ul>" & Chr ( 13 ) ) '134
    Response.Write ( "<li class='r_left'><img src='images/li_none.gif' class='okimg' id='d_passregtext_img' /> 注册协议：</li>" & Chr ( 13 ) ) '135
    Response.Write ( "<li class='r_right'> <input name=passregtext id=passregtext type=radio value='1' checked onClick='out_passregtext();' > 同意　<input type=radio name=passregtext id=passregtext1 value='0' onClick='out_passregtext();' > 不同意</li>" & Chr ( 13 ) ) '136
    Response.Write ( "<li class='r_msg'><div id='d_passregtext' class='d_default'></div></li>" & Chr ( 13 ) ) '137
    Response.Write ( "</ul>" & Chr ( 13 ) ) '138
    If AspToAspX_CheckDBNull ( getcodeoff ) = 1 Then '139
    Response.Write ( vbCrLf )
        Response.Write ( "<ul> " & Chr ( 13 ) ) '140
        Response.Write ( "<li class='r_left'>验 证 码：</li>" & Chr ( 13 ) ) '141
        Response.Write ( "<li class='r_right'><input name=codestr id=codestr type=text size=6 maxlength=4> " ) '142
        Response.Write ( getcode ) '142
        Response.Write ( "<input type=""hidden"" name=""regurl"" value=""" ) '142
        Response.Write ( AspToAspX_GetRequestServerVariables ( "http_referer" ) ) '142
        Response.Write ( """ /></li>" & Chr ( 13 ) ) '142
        Response.Write ( "</ul>" & Chr ( 13 ) ) '143
    End If '144
    Response.Write ( vbCrLf )
    Response.Write ( "</fieldset></div>" & Chr ( 13 ) ) '145
    Response.Write ( "<ul>" & Chr ( 13 ) ) '146
    Response.Write ( "<li class='r_left'><span id='save_stat'></span>　</li>" & Chr ( 13 ) ) '147
    Response.Write ( "<li>" & Chr ( 13 ) ) '148
    If AspToAspX_CheckDBNull ( regoff ) = 1 Then '149
    Response.Write ( vbCrLf )
        Response.Write ( "<input type=button name=""submit1"" value=' 暂停注册请稍后再来 ' id='regbotton'>" & Chr ( 13 ) ) '150
    Else '151
    Response.Write ( vbCrLf )
        Response.Write ( "<input type=button name=""submit1"" value=' OK!确认提交注册信息 ' onclick='chk_reg();' id='regbotton'>" & Chr ( 13 ) ) '152
    End If '153
    Response.Write ( vbCrLf )
    Response.Write ( "</li>" & Chr ( 13 ) ) '154
    Response.Write ( "</ul>" & Chr ( 13 ) ) '155
    Response.Write ( "</div>" & Chr ( 13 ) ) '156
    Response.Write ( "</form>                     " & Chr ( 13 ) ) '157
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '158
    Response.Write ( "" & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '159
    Response.Write ( "</div>" & Chr ( 13 ) ) '160
    ASPX_INC_BBSTAIL_HTM.AspToAspX_Page_Init ( )
    Response.Write ( "</body>" & Chr ( 13 ) ) '162
    Response.Write ( "</html>" & Chr ( 13 ) ) '163
    Response.Write ( "<script language=""javascript"">" & Chr ( 13 ) ) '164
    Response.Write ( "<!--" & Chr ( 13 ) ) '165
    Response.Write ( "var msg" & Chr ( 9 ) & ";" & Chr ( 13 ) ) '166
    Response.Write ( "var userid, oXMLHTTP;" & Chr ( 13 ) ) '167
    Response.Write ( "var li_ok='images/ftbbs_li_ok.gif';" & Chr ( 13 ) ) '168
    Response.Write ( "var li_err='images/ftbbs_li_err.gif';" & Chr ( 13 ) ) '169
    Response.Write ( "var bname_m=false;" & Chr ( 13 ) ) '170
    Response.Write ( "function init_reg(){" & Chr ( 13 ) ) '171
    Response.Write ( "" & Chr ( 9 ) & "msg=new Array(" & Chr ( 13 ) ) '172
    Response.Write ( "" & Chr ( 9 ) & """请输入" ) '173
    Response.Write ( usernamelng1 ) '173
    Response.Write ( "-" ) '173
    Response.Write ( usernamelng2 ) '173
    Response.Write ( "位字符，英文、数字、下划线的组合。""," & Chr ( 13 ) ) '173
    Response.Write ( "" & Chr ( 9 ) & """请输入" ) '174
    Response.Write ( pswlng1 ) '174
    Response.Write ( "-" ) '174
    Response.Write ( pswlng2 ) '174
    Response.Write ( "位以上字符，不允许空格。""," & Chr ( 13 ) ) '174
    Response.Write ( "" & Chr ( 9 ) & """请重复输入上面的密码。""," & Chr ( 13 ) ) '175
    Response.Write ( "" & Chr ( 9 ) & """请选择密码提示问题。""," & Chr ( 13 ) ) '176
    Response.Write ( "" & Chr ( 9 ) & """6个字符、数字或3个汉字以上（包括6个）。""," & Chr ( 13 ) ) '177
    Response.Write ( "" & Chr ( 9 ) & """请输入您常用的电子邮箱地址。""," & Chr ( 13 ) ) '178
    Response.Write ( "" & Chr ( 9 ) & """只有同意注册协议才能完成注册。""," & Chr ( 13 ) ) '179
    Response.Write ( "" & Chr ( 9 ) & """请选择所在省份城市。""" & Chr ( 13 ) ) '180
    Response.Write ( "" & Chr ( 9 ) & ")" & Chr ( 13 ) ) '181
    Response.Write ( "" & Chr ( 9 ) & "document.getElementById(""d_uname"").innerHTML=msg[0];" & Chr ( 13 ) ) '182
    Response.Write ( "" & Chr ( 9 ) & "document.getElementById(""d_upwd1"").innerHTML=msg[1];" & Chr ( 13 ) ) '183
    Response.Write ( "" & Chr ( 9 ) & "document.getElementById(""d_upwd2"").innerHTML=msg[2];" & Chr ( 13 ) ) '184
    Response.Write ( "" & Chr ( 9 ) & "document.getElementById(""d_question"").innerHTML=msg[3];" & Chr ( 13 ) ) '185
    Response.Write ( "" & Chr ( 9 ) & "document.getElementById(""d_an"").innerHTML=msg[4];" & Chr ( 13 ) ) '186
    Response.Write ( "" & Chr ( 9 ) & "document.getElementById(""d_email"").innerHTML=msg[5];" & Chr ( 13 ) ) '187
    Response.Write ( "" & Chr ( 9 ) & "document.getElementById(""d_province"").innerHTML=msg[7];" & Chr ( 13 ) ) '188
    Response.Write ( "}" & Chr ( 13 ) ) '189
    Response.Write ( "init_reg();" & Chr ( 13 ) ) '190
    Response.Write ( "function on_input(objname){" & Chr ( 13 ) ) '191
    Response.Write ( "" & Chr ( 9 ) & "var strtxt;" & Chr ( 13 ) ) '192
    Response.Write ( "" & Chr ( 9 ) & "var obj=document.getElementById(objname);" & Chr ( 13 ) ) '193
    Response.Write ( "" & Chr ( 9 ) & "obj.className=""d_on"";" & Chr ( 13 ) ) '194
    Response.Write ( "" & Chr ( 9 ) & "switch (objname){" & Chr ( 13 ) ) '195
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "case ""d_uname"":" & Chr ( 13 ) ) '196
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "strtxt=msg[0];" & Chr ( 13 ) ) '197
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "break;" & Chr ( 13 ) ) '198
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "case ""d_upwd1"":" & Chr ( 13 ) ) '199
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "strtxt=msg[1];" & Chr ( 13 ) ) '200
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "break;" & Chr ( 13 ) ) '201
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "case ""d_upwd2"":" & Chr ( 13 ) ) '202
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "strtxt=msg[2];" & Chr ( 13 ) ) '203
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "break;" & Chr ( 13 ) ) '204
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "case ""d_an"":" & Chr ( 13 ) ) '205
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "strtxt=msg[4];" & Chr ( 13 ) ) '206
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "break;" & Chr ( 13 ) ) '207
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "case ""d_email"":" & Chr ( 13 ) ) '208
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "strtxt=msg[5];" & Chr ( 9 ) & "" & Chr ( 13 ) ) '209
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "break;" & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '210
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '211
    Response.Write ( "" & Chr ( 9 ) & "obj.innerHTML=strtxt;" & Chr ( 13 ) ) '212
    Response.Write ( "}" & Chr ( 13 ) ) '213
    Response.Write ( "function reset_code(){" & Chr ( 13 ) ) '214
    Response.Write ( "" & Chr ( 9 ) & "try{" & Chr ( 13 ) ) '215
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var obj=document.getElementById(""ftbbs_codeimg"");" & Chr ( 13 ) ) '216
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.src=obj.src;" & Chr ( 13 ) ) '217
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '218
    Response.Write ( "" & Chr ( 9 ) & "catch(e){" & Chr ( 13 ) ) '219
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '220
    Response.Write ( "}" & Chr ( 13 ) ) '221
    Response.Write ( "function out_uname(suserid){" & Chr ( 13 ) ) '222
    Response.Write ( "" & Chr ( 9 ) & "var obj=document.getElementById(""d_uname"");" & Chr ( 13 ) ) '223
    Response.Write ( "" & Chr ( 9 ) & "var str=sl(document.getElementById(""uname"").value);" & Chr ( 13 ) ) '224
    Response.Write ( "    oXMLHTTP = createXMLHttps();" & Chr ( 13 ) ) '225
    Response.Write ( "    userid = suserid; " & Chr ( 13 ) ) '226
    Response.Write ( "    var sURL = ""checkusername.aspx?searchid="" + userid;" & Chr ( 13 ) ) '227
    Response.Write ( "" & Chr ( 9 ) & "var chk=true;" & Chr ( 13 ) ) '228
    Response.Write ( "" & Chr ( 9 ) & "if (str<" ) '229
    Response.Write ( usernamelng1 ) '229
    Response.Write ( " || str>" ) '229
    Response.Write ( usernamelng2 ) '229
    Response.Write ( "){chk=false;}" & Chr ( 13 ) ) '229
    Response.Write ( "" & Chr ( 9 ) & "if (chk){" & Chr ( 13 ) ) '230
    Response.Write ( "         oXMLHTTP.onreadystatechange = managestatechange;" & Chr ( 13 ) ) '231
    Response.Write ( "         oXMLHTTP.open(""GET"", sURL, true);" & Chr ( 13 ) ) '232
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " oXMLHTTP.setRequestHeader(""Content-Type"", ""application/x-www-form-urlencoded""); " & Chr ( 13 ) ) '233
    Response.Write ( "         try{ " & Chr ( 13 ) ) '234
    Response.Write ( "            oXMLHTTP.send(null); " & Chr ( 13 ) ) '235
    Response.Write ( "         } " & Chr ( 13 ) ) '236
    Response.Write ( "         catch(e){ " & Chr ( 13 ) ) '237
    Response.Write ( "            alert(""此时无法进行验证。""); " & Chr ( 13 ) ) '238
    Response.Write ( "            document.form1.username.focus(); " & Chr ( 13 ) ) '239
    Response.Write ( "          } " & Chr ( 13 ) ) '240