pagesign.aspx.vb

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

    Response.Write ( "                   </select>" & Chr ( 13 ) ) '204
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '205
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '206
    Response.Write ( "              " & Chr ( 13 ) ) '207
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '208
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">发贴时间间隔：</td>" & Chr ( 13 ) ) '209
    Response.Write ( "                " & Chr ( 13 ) ) '210
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '211
    Response.Write ( "<input name=""posttime"" type=""text"" id=""posttime3"" value=""" ) '212
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "posttime" ) .Value) ) '212
    Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '212
    Response.Write ( "                  以秒为单位,<font color=""#FF0000"">0</font>秒则是不限制</td>" & Chr ( 13 ) ) '213
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '214
    Response.Write ( "              " & Chr ( 13 ) ) '215
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '216
    Response.Write ( "            <td width=""25%"" height=""31"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">回贴时间间隔：</td>" & Chr ( 13 ) ) '217
    Response.Write ( "                " & Chr ( 13 ) ) '218
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '219
    Response.Write ( "<input name=""reposttime"" type=""text"" id=""reposttime"" value=""" ) '220
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "reposttime" ) .Value) ) '220
    Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '220
    Response.Write ( "                  以秒为单位,<font color=""#FF0000"">0</font>秒则是不限制</td>" & Chr ( 13 ) ) '221
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '222
    Response.Write ( "              " & Chr ( 13 ) ) '223
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '224
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">是否开启水印功能：</td>" & Chr ( 13 ) ) '225
    Response.Write ( "                " & Chr ( 13 ) ) '226
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '227
    Response.Write ( "<input name=""gifjpg"" type=""radio"" value=""1"" " ) '228
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "gifjpg" ) .Value) ) = "1" Then '228
        Response.Write ( " checked " ) '228
    End If '228
    Response.Write ( ">" & Chr ( 13 ) ) '228
    Response.Write ( "                  <font color=""#000000"">是</font><font color=""#FF0000""> " & Chr ( 13 ) ) '229
    Response.Write ( "                  <input type=""radio"" name=""gifjpg"" value=""0"" " ) '230
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "gifjpg" ) .Value) ) = "0" Then '230
        Response.Write ( " checked " ) '230
    End If '230
    Response.Write ( ">" & Chr ( 13 ) ) '230
    Response.Write ( "                  <font color=""#000000"">否</font> </font> </td>" & Chr ( 13 ) ) '231
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '232
    Response.Write ( "              " & Chr ( 13 ) ) '233
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '234
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">水印类型选择：</td>" & Chr ( 13 ) ) '235
    Response.Write ( "                " & Chr ( 13 ) ) '236
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '237
    Response.Write ( "<input name=""waterimg"" type=""radio"" value=""1"" " ) '238
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "waterimg" ) .Value) ) = "1" Then '238
        Response.Write ( " checked " ) '238
    End If '238
    Response.Write ( ">" & Chr ( 13 ) ) '238
    Response.Write ( "                  <font color=""#000000"">logo图片</font><font color=""#FF0000""> " & Chr ( 13 ) ) '239
    Response.Write ( "                  <input type=""radio"" name=""waterimg"" value=""0"" " ) '240
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "waterimg" ) .Value) ) = "0" Then '240
        Response.Write ( " checked " ) '240
    End If '240
    Response.Write ( ">" & Chr ( 13 ) ) '240
    Response.Write ( "                  <font color=""#000000"">文字(以上面填的域名作为水印)</font> </font> </td>" & Chr ( 13 ) ) '241
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '242
    Response.Write ( "              " & Chr ( 13 ) ) '243
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '244
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">注册用户名长度范围：</td>" & Chr ( 13 ) ) '245
    Response.Write ( "                " & Chr ( 13 ) ) '246
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '247
    Response.Write ( "<input name=""usernamelng1"" type=""text"" id=""usernamelng1"" value=""" ) '248
    Response.Write ( AspToAspX_Split ( AspToAspX_CheckDBNull(rs.Fields ( "usernamelng" ) .Value) , "-" ) ( 0 ) ) '248
    Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '248
    Response.Write ( "                  到 " & Chr ( 13 ) ) '249
    Response.Write ( "                  <input name=""usernamelng2"" type=""text"" id=""usernamelng2"" value=""" ) '250
    Response.Write ( AspToAspX_Split ( AspToAspX_CheckDBNull(rs.Fields ( "usernamelng" ) .Value) , "-" ) ( 1 ) ) '250
    Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '250
    Response.Write ( "                  个字符(<font color=""#FF0000"">*注意只能输入数字</font>)</td>" & Chr ( 13 ) ) '251
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '252
    Response.Write ( "              " & Chr ( 13 ) ) '253
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '254
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">注册用户密码长度范围：</td>" & Chr ( 13 ) ) '255
    Response.Write ( "                " & Chr ( 13 ) ) '256
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '257
    Response.Write ( "<input name=""pswlng1"" type=""text"" id=""pswlng12"" value=""" ) '258
    Response.Write ( AspToAspX_Split ( AspToAspX_CheckDBNull(rs.Fields ( "pswlng" ) .Value) , "-" ) ( 0 ) ) '258
    Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '258
    Response.Write ( "                  到 " & Chr ( 13 ) ) '259
    Response.Write ( "                  <input name=""pswlng2"" type=""text"" id=""pswlng22"" value=""" ) '260
    Response.Write ( AspToAspX_Split ( AspToAspX_CheckDBNull(rs.Fields ( "pswlng" ) .Value) , "-" ) ( 1 ) ) '260
    Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '260
    Response.Write ( "                  个字符(<font color=""#FF0000"">*注意只能输入数字</font>)</td>" & Chr ( 13 ) ) '261
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '262
    Response.Write ( "              " & Chr ( 13 ) ) '263
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '264
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">用户上传权限默认开关：</td>" & Chr ( 13 ) ) '265
    Response.Write ( "                " & Chr ( 13 ) ) '266
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '267
    Response.Write ( "<input name=""uploadoff"" type=""radio"" value=""0"" " ) '268
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "uploadoff" ) .Value) ) = "0" Then '268
        Response.Write ( " checked " ) '268
    End If '268
    Response.Write ( ">" & Chr ( 13 ) ) '268
    Response.Write ( "              <font color=""#000000"">开</font><font color=""#FF0000""> " & Chr ( 13 ) ) '269
    Response.Write ( "              <input type=""radio"" name=""uploadoff"" value=""2"" " ) '270
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "uploadoff" ) .Value) ) = "2" Then '270
        Response.Write ( " checked " ) '270
    End If '270
    Response.Write ( ">" & Chr ( 13 ) ) '270
    Response.Write ( "              <font color=""#000000"">关</font> (*对所有用户都起作用)</font> </td>" & Chr ( 13 ) ) '271
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '272
    Response.Write ( "              " & Chr ( 13 ) ) '273
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '274
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">贴子审核功能开关：</td>" & Chr ( 13 ) ) '275
    Response.Write ( "                " & Chr ( 13 ) ) '276
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '277
    Response.Write ( "<input name=""shoff"" type=""radio"" value=""0"" " ) '278
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "shoff" ) .Value) ) = "0" Then '278
        Response.Write ( " checked " ) '278
    End If '278
    Response.Write ( ">" & Chr ( 13 ) ) '278
    Response.Write ( "                  <font color=""#000000"">不审核</font> " & Chr ( 13 ) ) '279
    Response.Write ( "                  <input type=""radio"" name=""shoff"" value=""1"" " ) '280
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "shoff" ) .Value) ) = "1" Then '280
        Response.Write ( " checked " ) '280
    End If '280
    Response.Write ( ">" & Chr ( 13 ) ) '280
    Response.Write ( "              <font color=""#000000"">要审核</font> (此项功能设置要审核后则任何时刻发的贴都要审核后才会显示) </td>" & Chr ( 13 ) ) '281
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '282
    Response.Write ( "              " & Chr ( 13 ) ) '283
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '284
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">用户注册开关：</td>" & Chr ( 13 ) ) '285
    Response.Write ( "                " & Chr ( 13 ) ) '286
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '287
    Response.Write ( "<input name=""regoff"" type=""radio"" value=""0"" " ) '288
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "regoff" ) .Value) ) = "0" Then '288
        Response.Write ( " checked " ) '288
    End If '288
    Response.Write ( ">" & Chr ( 13 ) ) '288
    Response.Write ( "                  <font color=""#000000"">允许注册</font> <font color=""#FF0000""> " & Chr ( 13 ) ) '289
    Response.Write ( "                  <input type=""radio"" name=""regoff"" value=""1"" " ) '290
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "regoff" ) .Value) ) = "1" Then '290
        Response.Write ( " checked " ) '290
    End If '290
    Response.Write ( ">" & Chr ( 13 ) ) '290
    Response.Write ( "                  <font color=""#000000"">禁止注册</font> </font> </td>" & Chr ( 13 ) ) '291
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '292
    Response.Write ( "              " & Chr ( 13 ) ) '293
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '294
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5""><strong>新用户邮件认证开关：</strong></td>" & Chr ( 13 ) ) '295
    Response.Write ( "                " & Chr ( 13 ) ) '296
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '297
    Response.Write ( "              <input name=""jmailoff"" type=""radio"" value=""1"" " ) '298
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "jmailoff" ) .Value) ) = "1" Then '298
        Response.Write ( " checked " ) '298
    End If '298
    Response.Write ( ">" & Chr ( 13 ) ) '298
    Response.Write ( "                  <font color=""#000000"">开</font><font color=""#FF0000"">&nbsp;</font> " & Chr ( 13 ) ) '299
    Response.Write ( "                  <font color=""#FF0000""> " & Chr ( 13 ) ) '300
    Response.Write ( "                  <input type=""radio"" name=""jmailoff"" value=""0"" " ) '301
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "jmailoff" ) .Value) ) = "0" Then '301
        Response.Write ( " checked " ) '301
    End If '301
    Response.Write ( ">" & Chr ( 13 ) ) '301
    Response.Write ( "                  <font color=""#000000"">关</font> </font> </td>" & Chr ( 13 ) ) '302
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '303
    Response.Write ( "              " & Chr ( 13 ) ) '304
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '305
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5""><strong>系统邮件帐号：</strong></td>" & Chr ( 13 ) ) '306
    Response.Write ( "                " & Chr ( 13 ) ) '307
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '308
    Response.Write ( "<input name=""mailuser"" type=""text"" id=""mailuser"" value=""" ) '309
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "mailuser" ) .Value) ) '309
    Response.Write ( """ size=""30""> </td>" & Chr ( 13 ) ) '309
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '310
    Response.Write ( "              " & Chr ( 13 ) ) '311
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '312
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5""><strong>系统邮件密码：</strong></td>" & Chr ( 13 ) ) '313
    Response.Write ( "                " & Chr ( 13 ) ) '314
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '315
    Response.Write ( "<input name=""mailpwd"" type=""password"" id=""mailpwd"" value=""" ) '316