moduserinfo.aspx.vb

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

    Response.Write ( "        <img src=""userheadimg/cache9.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '261
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache10.gif"" " ) '262
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache10.gif" Then '262
        Response.Write ( "checked" ) '262
    End If '262
    Response.Write ( ">" & Chr ( 13 ) ) '262
    Response.Write ( "        <img src=""userheadimg/cache10.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '263
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache11.gif"" " ) '264
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache11.gif" Then '264
        Response.Write ( "checked" ) '264
    End If '264
    Response.Write ( ">" & Chr ( 13 ) ) '264
    Response.Write ( "        <img src=""userheadimg/cache11.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '265
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache12.gif"" " ) '266
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache12.gif" Then '266
        Response.Write ( "checked" ) '266
    End If '266
    Response.Write ( ">" & Chr ( 13 ) ) '266
    Response.Write ( "        <img src=""userheadimg/cache12.gif"" width=""42"" height=""42""><br>" & Chr ( 13 ) ) '267
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache13.gif"" " ) '268
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache13.gif" Then '268
        Response.Write ( "checked" ) '268
    End If '268
    Response.Write ( ">" & Chr ( 13 ) ) '268
    Response.Write ( "        <img src=""userheadimg/cache13.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '269
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache14.gif"" " ) '270
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache14.gif" Then '270
        Response.Write ( "checked" ) '270
    End If '270
    Response.Write ( ">" & Chr ( 13 ) ) '270
    Response.Write ( "        <img src=""userheadimg/cache14.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '271
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache15.gif"" " ) '272
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache15.gif" Then '272
        Response.Write ( "checked" ) '272
    End If '272
    Response.Write ( ">" & Chr ( 13 ) ) '272
    Response.Write ( "        <img src=""userheadimg/cache15.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '273
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache16.gif"" " ) '274
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache16.gif" Then '274
        Response.Write ( "checked" ) '274
    End If '274
    Response.Write ( ">" & Chr ( 13 ) ) '274
    Response.Write ( "        <img src=""userheadimg/cache16.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '275
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache17.gif"" " ) '276
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache17.gif" Then '276
        Response.Write ( "checked" ) '276
    End If '276
    Response.Write ( ">" & Chr ( 13 ) ) '276
    Response.Write ( "        <img src=""userheadimg/cache17.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '277
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache18.gif"" " ) '278
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache18.gif" Then '278
        Response.Write ( "checked" ) '278
    End If '278
    Response.Write ( ">" & Chr ( 13 ) ) '278
    Response.Write ( "        <img src=""userheadimg/cache18.gif"" width=""42"" height=""42""> <br>" & Chr ( 13 ) ) '279
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache19.gif"" " ) '280
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache19.gif" Then '280
        Response.Write ( "checked" ) '280
    End If '280
    Response.Write ( ">" & Chr ( 13 ) ) '280
    Response.Write ( "        <img src=""userheadimg/cache19.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '281
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache20.gif"" " ) '282
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache20.gif" Then '282
        Response.Write ( "checked" ) '282
    End If '282
    Response.Write ( ">" & Chr ( 13 ) ) '282
    Response.Write ( "        <img src=""userheadimg/cache20.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '283
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache21.gif"" " ) '284
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache21.gif" Then '284
        Response.Write ( "checked" ) '284
    End If '284
    Response.Write ( ">" & Chr ( 13 ) ) '284
    Response.Write ( "        <img src=""userheadimg/cache21.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '285
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache22.gif"" " ) '286
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache22.gif" Then '286
        Response.Write ( "checked" ) '286
    End If '286
    Response.Write ( ">" & Chr ( 13 ) ) '286
    Response.Write ( "        <img src=""userheadimg/cache22.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '287
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache23.gif"" " ) '288
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache23.gif" Then '288
        Response.Write ( "checked" ) '288
    End If '288
    Response.Write ( ">" & Chr ( 13 ) ) '288
    Response.Write ( "        <img src=""userheadimg/cache23.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '289
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache24.gif"" " ) '290
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache24.gif" Then '290
        Response.Write ( "checked" ) '290
    End If '290
    Response.Write ( ">" & Chr ( 13 ) ) '290
    Response.Write ( "        <img src=""userheadimg/cache24.gif"" width=""42"" height=""42""> <br>" & Chr ( 13 ) ) '291
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache25.gif"" " ) '292
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache25.gif" Then '292
        Response.Write ( "checked" ) '292
    End If '292
    Response.Write ( ">" & Chr ( 13 ) ) '292
    Response.Write ( "        <img src=""userheadimg/cache25.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '293
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache26.gif"" " ) '294
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache26.gif" Then '294
        Response.Write ( "checked" ) '294
    End If '294
    Response.Write ( ">" & Chr ( 13 ) ) '294
    Response.Write ( "        <img src=""userheadimg/cache26.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '295
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache27.gif"" " ) '296
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache27.gif" Then '296
        Response.Write ( "checked" ) '296
    End If '296
    Response.Write ( ">" & Chr ( 13 ) ) '296
    Response.Write ( "        <img src=""userheadimg/cache27.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '297
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache28.gif"" " ) '298
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache28.gif" Then '298
        Response.Write ( "checked" ) '298
    End If '298
    Response.Write ( ">" & Chr ( 13 ) ) '298
    Response.Write ( "        <img src=""userheadimg/cache28.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '299
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache29.gif"" " ) '300
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache29.gif" Then '300
        Response.Write ( "checked" ) '300
    End If '300
    Response.Write ( ">" & Chr ( 13 ) ) '300
    Response.Write ( "        <img src=""userheadimg/cache29.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '301
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache30.gif"" " ) '302
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache30.gif" Then '302
        Response.Write ( "checked" ) '302
    End If '302
    Response.Write ( ">" & Chr ( 13 ) ) '302
    Response.Write ( "        <img src=""userheadimg/cache30.gif"" width=""42"" height=""42""><br>" & Chr ( 13 ) ) '303
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache31.gif"" " ) '304
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache31.gif" Then '304
        Response.Write ( "checked" ) '304
    End If '304
    Response.Write ( ">" & Chr ( 13 ) ) '304
    Response.Write ( "        <img src=""userheadimg/cache31.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '305
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache32.gif"" " ) '306
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache32.gif" Then '306
        Response.Write ( "checked" ) '306
    End If '306
    Response.Write ( ">" & Chr ( 13 ) ) '306
    Response.Write ( "        <img src=""userheadimg/cache32.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '307
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache33.gif"" " ) '308
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache33.gif" Then '308
        Response.Write ( "checked" ) '308
    End If '308
    Response.Write ( ">" & Chr ( 13 ) ) '308
    Response.Write ( "        <img src=""userheadimg/cache33.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '309
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache34.gif"" " ) '310
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache34.gif" Then '310
        Response.Write ( "checked" ) '310
    End If '310
    Response.Write ( ">" & Chr ( 13 ) ) '310
    Response.Write ( "        <img src=""userheadimg/cache34.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '311
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache35.gif"" " ) '312
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache35.gif" Then '312
        Response.Write ( "checked" ) '312
    End If '312
    Response.Write ( ">" & Chr ( 13 ) ) '312
    Response.Write ( "        <img src=""userheadimg/cache35.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '313
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache36.gif"" " ) '314
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache36.gif" Then '314
        Response.Write ( "checked" ) '314
    End If '314
    Response.Write ( ">" & Chr ( 13 ) ) '314
    Response.Write ( "        <img src=""userheadimg/cache36.gif"" width=""42"" height=""42""> <br>" & Chr ( 13 ) ) '315
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache37.gif"" " ) '316
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache37.gif" Then '316
        Response.Write ( "checked" ) '316
    End If '316
    Response.Write ( ">" & Chr ( 13 ) ) '316
    Response.Write ( "        <img src=""userheadimg/cache37.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '317
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache38.gif"" " ) '318
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache38.gif" Then '318
        Response.Write ( "checked" ) '318
    End If '318
    Response.Write ( ">" & Chr ( 13 ) ) '318
    Response.Write ( "        <img src=""userheadimg/cache38.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '319
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache39.gif"" " ) '320
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache39.gif" Then '320
        Response.Write ( "checked" ) '320
    End If '320
    Response.Write ( ">" & Chr ( 13 ) ) '320
    Response.Write ( "        <img src=""userheadimg/cache39.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '321
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache40.gif"" " ) '322
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache40.gif" Then '322
        Response.Write ( "checked" ) '322
    End If '322
    Response.Write ( ">" & Chr ( 13 ) ) '322
    Response.Write ( "        <img src=""userheadimg/cache40.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '323
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache41.gif"" " ) '324
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache41.gif" Then '324
        Response.Write ( "checked" ) '324
    End If '324
    Response.Write ( ">" & Chr ( 13 ) ) '324
    Response.Write ( "        <img src=""userheadimg/cache41.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '325
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache42.gif"" " ) '326
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache42.gif" Then '326
        Response.Write ( "checked" ) '326
    End If '326
    Response.Write ( ">" & Chr ( 13 ) ) '326
    Response.Write ( "        <img src=""userheadimg/cache42.gif"" width=""42"" height=""42""><br>" & Chr ( 13 ) ) '327
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache43.gif"" " ) '328
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache43.gif" Then '328
        Response.Write ( "checked" ) '328
    End If '328
    Response.Write ( ">" & Chr ( 13 ) ) '328
    Response.Write ( "        <img src=""userheadimg/cache43.gif"" width=""42"" height=""42""> " & Chr ( 13 ) ) '329
    Response.Write ( "        <input type=""radio"" name=""img"" value=""cache44.gif"" " ) '330
    If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) ) = "cache44.gif" Then '330
        Response.Write ( "checked" ) '330
    End If '330
    Response.Write ( ">" & Chr ( 13 ) ) '330
    Response.Write ( "        <img src=""userheadimg/cache44.gif"" width=""42"" height=""42"">" & Chr ( 13 ) ) '331
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<a href=""userimg.aspx"">自定义头像</a></td>" & Chr ( 13 ) ) '332
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '333
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '334
    Response.Write ( "      <td height=""35"" colspan=""2"" class=""maintbtr3""> " & Chr ( 13 ) ) '335
    Response.Write ( "        <div align=""center""> " & Chr ( 13 ) ) '336
    Response.Write ( "          " ) '337
    url = AspToAspX_GetRequestServerVariables ( "HTTP_REFERER" ) '338
    Response.Write ( vbCrLf )
    Response.Write ( "          <INPUT TYPE=""hidden"" name=""url"" value=""" ) '340
    Response.Write ( url ) '340
    Response.Write ( """>" & Chr ( 13 ) ) '340
    Response.Write ( "          <input type=""submit"" name=""Submit"" value=""修改"">" & Chr ( 13 ) ) '341
    Response.Write ( "        </div>" & Chr ( 13 ) ) '342
    Response.Write ( "      </td>" & Chr ( 13 ) ) '343
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '344