moduserinfo.aspx.vb

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

    Response.Write ( "</table> " & Chr ( 13 ) ) '115
    Response.Write ( "<table cellspacing=0 cellpadding=0 width=""99%"" align=center border=0>" & Chr ( 13 ) ) '116
    Response.Write ( "  <tr> " & Chr ( 13 ) ) '117
    Response.Write ( "    <td height=8></td>" & Chr ( 13 ) ) '118
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '119
    Response.Write ( "</table>" & Chr ( 13 ) ) '120
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"" class=""listborder"" cellspacing=""1"" cellpadding=""0"">" & Chr ( 13 ) ) '121
    Response.Write ( "" & Chr ( 9 ) & "<form name=""form1"" method=""post"" action=""moduseract.aspx"" onsubmit=""return check(this)"">" & Chr ( 13 ) ) '122
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '123
    Response.Write ( "      <td height=""27"" colspan=""2"" class=""f12bg""> " & Chr ( 13 ) ) '124
    Response.Write ( "        <div align=""center"">个人资料修改</div></td>" & Chr ( 13 ) ) '125
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '126
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '127
    Response.Write ( "      <td width=""23%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '128
    Response.Write ( "        <div align=""right"">用户名：</div>" & Chr ( 13 ) ) '129
    Response.Write ( "      </td>" & Chr ( 13 ) ) '130
    Response.Write ( "      <td width=""77%"" class=""loopborder1""> " & Chr ( 13 ) ) '131
    Response.Write ( "        <input type=""text"" name=""name"" size=""15"" value=""" ) '132
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '132
    Response.Write ( """ maxlength=""10"" class=""inputpage"" disabled>" & Chr ( 13 ) ) '132
    Response.Write ( "        <font color=""#CC0000"">*<font color=""#000000"">用户名不允许修改</font></font></td>" & Chr ( 13 ) ) '133
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '134
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '135
    Response.Write ( "      <td width=""23%"" height=""23"" class=""loopborder1""> " & Chr ( 13 ) ) '136
    Response.Write ( "        <div align=""right"">旧密码：</div>" & Chr ( 13 ) ) '137
    Response.Write ( "      </td>" & Chr ( 13 ) ) '138
    Response.Write ( "      <td width=""77%"" class=""loopborder1""> " & Chr ( 13 ) ) '139
    Response.Write ( "        <input name=""oldpwd"" type=""password"" id=""oldpwd"" value=""" ) '140
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_password" ) .Value) ) '140
    Response.Write ( """ size=""20"" class=""inputpage"">" & Chr ( 13 ) ) '140
    Response.Write ( "        <font color=""#CC0000"">*<font color=""#000000""></font></font>请输入原来的密码</td>" & Chr ( 13 ) ) '141
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '142
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '143
    Response.Write ( "      <td width=""23%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '144
    Response.Write ( "        <div align=""right"">新密码：</div>" & Chr ( 13 ) ) '145
    Response.Write ( "      </td>" & Chr ( 13 ) ) '146
    Response.Write ( "      <td width=""77%"" class=""loopborder1""> " & Chr ( 13 ) ) '147
    Response.Write ( "        <input type=""password"" name=""password"" size=""25"" value="""" class=""inputpage"">" & Chr ( 13 ) ) '148
    Response.Write ( "        <font color=""#CC0000"">*（密码长度为" ) '149
    Response.Write ( pswlng ) '149
    Response.Write ( "位）</font></td>" & Chr ( 13 ) ) '149
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '150
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '151
    Response.Write ( "      <td width=""23%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '152
    Response.Write ( "        <div align=""right"">新密码确认：</div>" & Chr ( 13 ) ) '153
    Response.Write ( "      </td>" & Chr ( 13 ) ) '154
    Response.Write ( "      <td width=""77%"" class=""loopborder1""> " & Chr ( 13 ) ) '155
    Response.Write ( "        <input type=""password"" name=""pwdsub"" size=""25"" value="""" class=""inputpage"">" & Chr ( 13 ) ) '156
    Response.Write ( "        <font color=""#CC0000"">*</font></td>" & Chr ( 13 ) ) '157
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '158
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '159
    Response.Write ( "      <td width=""23%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '160
    Response.Write ( "        <div align=""right"">忘记密码时的问题：</div>" & Chr ( 13 ) ) '161
    Response.Write ( "      </td>" & Chr ( 13 ) ) '162
    Response.Write ( "      <td width=""77%"" class=""loopborder1""> " & Chr ( 13 ) ) '163
    Response.Write ( "        <input type=""text"" name=""question"" size=""25"" value=""" ) '164
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_question" ) .Value) ) '164
    Response.Write ( """ class=""inputpage"">" & Chr ( 13 ) ) '164
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<font color=""#CC0000"">*</font></td>" & Chr ( 13 ) ) '165
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '166
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '167
    Response.Write ( "      <td width=""23%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '168
    Response.Write ( "        <div align=""right"">问题的答案：</div>" & Chr ( 13 ) ) '169
    Response.Write ( "      </td>" & Chr ( 13 ) ) '170
    Response.Write ( "      <td width=""77%"" class=""loopborder1"">" & Chr ( 13 ) ) '171
    Response.Write ( "        <input type=""text"" name=""answer"" size=""25"" value=""" ) '172
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_answer" ) .Value) ) '172
    Response.Write ( """ class=""inputpage"">" & Chr ( 13 ) ) '172
    Response.Write ( "        <font color=""#CC0000"">*</font></td>" & Chr ( 13 ) ) '173
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '174
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '175
    Response.Write ( "      <td width=""23%"" height=""23"" class=""loopborder1""> " & Chr ( 13 ) ) '176
    Response.Write ( "        <div align=""right"">您的性别：</div>" & Chr ( 13 ) ) '177
    Response.Write ( "      </td>" & Chr ( 13 ) ) '178
    Response.Write ( "      <td width=""77%"" class=""loopborder1"">" & Chr ( 13 ) ) '179
    Response.Write ( "        <input type=""radio"" name=""sex"" value=""男"" " ) '180
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_sex" ) .Value) ) ) = "男" Then '180
        Response.Write ( "checked" ) '180
    End If '180
    Response.Write ( ">" & Chr ( 13 ) ) '180
    Response.Write ( "        男 　 " & Chr ( 13 ) ) '181
    Response.Write ( "        <input type=""radio"" name=""sex"" value=""女"" " ) '182
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_sex" ) .Value) ) ) = "女" Then '182
        Response.Write ( "checked" ) '182
    End If '182
    Response.Write ( ">" & Chr ( 13 ) ) '182
    Response.Write ( "        女</td>" & Chr ( 13 ) ) '183
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '184
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '185
    Response.Write ( "      <td width=""23%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '186
    Response.Write ( "        <div align=""right"">你的E-mail信箱：</div>" & Chr ( 13 ) ) '187
    Response.Write ( "      </td>" & Chr ( 13 ) ) '188
    Response.Write ( "      <td width=""77%"" class=""loopborder1""> " & Chr ( 13 ) ) '189
    Response.Write ( "        <input type=""text"" name=""email"" size=""25"" value=""" ) '190
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_email" ) .Value) ) '190
    Response.Write ( """ class=""inputpage"">" & Chr ( 13 ) ) '190
    Response.Write ( "      </td>" & Chr ( 13 ) ) '191
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '192
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '193
    Response.Write ( "      <td width=""23%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '194
    Response.Write ( "        <div align=""right"">婚姻状况：</div>" & Chr ( 13 ) ) '195
    Response.Write ( "      </td>" & Chr ( 13 ) ) '196
    Response.Write ( "      <td width=""77%"" class=""loopborder1"">" & Chr ( 13 ) ) '197
    Response.Write ( "        <input type=""radio"" name=""clubuser_marriage"" value=""YES"" " ) '198
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_marriage" ) .Value) ) ) = "YES" Then '198
        Response.Write ( "checked" ) '198
    End If '198
    Response.Write ( ">已婚　" & Chr ( 13 ) ) '198
    Response.Write ( "        <input type=""radio"" name=""clubuser_marriage"" value=""NO"" " ) '199
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_marriage" ) .Value) ) ) = "NO" Then '199
        Response.Write ( "checked" ) '199
    End If '199
    Response.Write ( ">未婚" & Chr ( 13 ) ) '199
    Response.Write ( "" & Chr ( 9 ) & "  </td>" & Chr ( 13 ) ) '200
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '201
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '202
    Response.Write ( "      <td width=""23%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '203
    Response.Write ( "        <div align=""right"">来   自：</div>" & Chr ( 13 ) ) '204
    Response.Write ( "      </td>" & Chr ( 13 ) ) '205
    Response.Write ( "      <td width=""77%"" class=""loopborder1"">" & Chr ( 13 ) ) '206
    Response.Write ( "<select style=""width:75"" name=""province"" size=""1"" id=""province"" onchange=""changecity(document.form1.province.options[document.form1.province.selectedIndex].value)""> " & Chr ( 13 ) ) '207
    Response.Write ( "<option value="""" selected>请选择省份</option> " & Chr ( 13 ) ) '208
    allprovince = "安徽,北京,福建,甘肃,广东,广西,贵州,海南,河北,河南,黑龙江,湖北,湖南,吉林,江苏,江西,辽宁,内蒙古,宁夏,青海,山东,山西,陕西,上海,四川,天津,西藏,新疆,云南,浙江,重庆,台湾,香港,澳门,其他" '210
    everyprovince = AspToAspX_Split ( allprovince , "," ) '211
    For i = 0 To Val ( UBound ( everyprovince ) ) '212
        Response.Write ( " " & Chr ( 13 ) ) '213
        Response.Write ( "<option value=""" ) '214
        Response.Write ( everyprovince ( i ) ) '214
        Response.Write ( """ " ) '214
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_province" ) .Value) ) = everyprovince ( i ) Then '214
            Response.Write ( "selected" ) '214
        End If '214
        Response.Write ( ">" ) '214
        Response.Write ( everyprovince ( i ) ) '214
        Response.Write ( "</option> " & Chr ( 13 ) ) '214
    Next '215
    Response.Write ( " " & Chr ( 13 ) ) '215
    Response.Write ( "</select> " & Chr ( 13 ) ) '216
    Response.Write ( "<select name=""city"" style=""width:75px"" size=""1"" id=""city""> " & Chr ( 13 ) ) '217
    Response.Write ( "<option value=""" ) '218
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_city" ) .Value) ) '218
    Response.Write ( """ selected>" ) '218
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_city" ) .Value) ) '218
    Response.Write ( "</option> " & Chr ( 13 ) ) '218
    Response.Write ( "</select>" & Chr ( 13 ) ) '219
    Response.Write ( "      </td>" & Chr ( 13 ) ) '220
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '221
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '222
    Response.Write ( "      <td width=""23%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '223
    Response.Write ( "        <div align=""right"">你的地址：</div>" & Chr ( 13 ) ) '224
    Response.Write ( "      </td>" & Chr ( 13 ) ) '225
    Response.Write ( "      <td width=""77%"" class=""loopborder1""> " & Chr ( 13 ) ) '226
    Response.Write ( "        <input name=""clubuser_address"" type=""text"" id=""clubuser_address"" value=""" ) '227
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_address" ) .Value) ) '227
    Response.Write ( """ size=""25"" class=""inputpage"">" & Chr ( 13 ) ) '227
    Response.Write ( "      </td>" & Chr ( 13 ) ) '228
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '229
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '230
    Response.Write ( "      <td width=""23%"" height=""11"" class=""loopborder1""> " & Chr ( 13 ) ) '231
    Response.Write ( "        <div align=""right"">签名档：(150字以内)</div>" & Chr ( 13 ) ) '232
    Response.Write ( "      </td>" & Chr ( 13 ) ) '233
    Response.Write ( "      <td width=""77%"" class=""loopborder1"">" & Chr ( 13 ) ) '234
    Response.Write ( "        <textarea name=""signname"" cols=""55"" rows=""6"">" ) '235
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) '235
    Response.Write ( "</textarea>" & Chr ( 13 ) ) '235
    Response.Write ( "        支持UBB</td>" & Chr ( 13 ) ) '236
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '237
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '238
    Response.Write ( "      <td width=""23%"" height=""11"" class=""loopborder1"" valign=""top""> " & Chr ( 13 ) ) '239
    Response.Write ( "        <div align=""right""><br>" & Chr ( 13 ) ) '240
    Response.Write ( "          头　像：</div>" & Chr ( 13 ) ) '241
    Response.Write ( "      </td>" & Chr ( 13 ) ) '242
    Response.Write ( "      <td width=""77%"" class=""loopborder1"">" & Chr ( 13 ) ) '243
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache1.gif"" " ) '244
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache1.gif" Then '244
        Response.Write ( "checked" ) '244
    End If '244
    Response.Write ( ">" & Chr ( 13 ) ) '244
    Response.Write ( "        <img src=""userheadimg/cache1.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '245
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache2.gif"" " ) '246
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache2.gif" Then '246
        Response.Write ( "checked" ) '246
    End If '246
    Response.Write ( ">" & Chr ( 13 ) ) '246
    Response.Write ( "        <img src=""userheadimg/cache2.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '247
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache3.gif"" " ) '248
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache3.gif" Then '248
        Response.Write ( "checked" ) '248
    End If '248
    Response.Write ( ">" & Chr ( 13 ) ) '248
    Response.Write ( "        <img src=""userheadimg/cache3.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '249
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache4.gif"" " ) '250
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache4.gif" Then '250
        Response.Write ( "checked" ) '250
    End If '250
    Response.Write ( ">" & Chr ( 13 ) ) '250
    Response.Write ( "        <img src=""userheadimg/cache4.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '251
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache5.gif"" " ) '252
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache5.gif" Then '252
        Response.Write ( "checked" ) '252
    End If '252
    Response.Write ( ">" & Chr ( 13 ) ) '252
    Response.Write ( "        <img src=""userheadimg/cache5.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '253
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache6.gif"" " ) '254
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache6.gif" Then '254
        Response.Write ( "checked" ) '254
    End If '254
    Response.Write ( ">" & Chr ( 13 ) ) '254
    Response.Write ( "        <img src=""userheadimg/cache6.gif"" width=""42"" height=""42""> <br>" & Chr ( 13 ) ) '255
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache7.gif"" " ) '256
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache7.gif" Then '256
        Response.Write ( "checked" ) '256
    End If '256
    Response.Write ( ">" & Chr ( 13 ) ) '256
    Response.Write ( "        <img src=""userheadimg/cache7.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '257
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache8.gif"" " ) '258
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache8.gif" Then '258
        Response.Write ( "checked" ) '258
    End If '258
    Response.Write ( ">" & Chr ( 13 ) ) '258
    Response.Write ( "        <img src=""userheadimg/cache8.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '259
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache9.gif"" " ) '260
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache9.gif" Then '260
        Response.Write ( "checked" ) '260
    End If '260
    Response.Write ( ">" & Chr ( 13 ) ) '260