📄 pagesign.aspx.vb
字号:
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "mailpwd" ) .Value) ) '316
Response.Write ( """ size=""30""> </td>" & Chr ( 13 ) ) '316
Response.Write ( " </tr>" & Chr ( 13 ) ) '317
Response.Write ( " " & Chr ( 13 ) ) '318
Response.Write ( " <tr> " & Chr ( 13 ) ) '319
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5""><strong>系统邮件地址：</strong></td>" & Chr ( 13 ) ) '320
Response.Write ( " " & Chr ( 13 ) ) '321
Response.Write ( " <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '322
Response.Write ( "<input name=""mailaddress"" type=""text"" id=""mailaddress"" value=""" ) '323
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "mailaddress" ) .Value) ) '323
Response.Write ( """ size=""30""> </td>" & Chr ( 13 ) ) '323
Response.Write ( " </tr>" & Chr ( 13 ) ) '324
Response.Write ( " " & Chr ( 13 ) ) '325
Response.Write ( " <tr> " & Chr ( 13 ) ) '326
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5""><strong>系统邮件Smtp地址：</strong></td>" & Chr ( 13 ) ) '327
Response.Write ( " " & Chr ( 13 ) ) '328
Response.Write ( " <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '329
Response.Write ( "<input name=""mailsmtp"" type=""text"" id=""mailsmtp"" value=""" ) '330
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "mailsmtp" ) .Value) ) '330
Response.Write ( """ size=""30""> </td>" & Chr ( 13 ) ) '330
Response.Write ( " </tr>" & Chr ( 13 ) ) '331
Response.Write ( " " & Chr ( 13 ) ) '332
Response.Write ( " <tr> " & Chr ( 13 ) ) '333
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">注册成功默认发送的短信标题：</td>" & Chr ( 13 ) ) '334
Response.Write ( " " & Chr ( 13 ) ) '335
Response.Write ( " <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '336
Response.Write ( "<input name=""regsmstitle"" type=""text"" id=""regsmstitle"" value=""" ) '337
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "regsmstitle" ) .Value) ) '337
Response.Write ( """ size=""50""> </td>" & Chr ( 13 ) ) '337
Response.Write ( " </tr>" & Chr ( 13 ) ) '338
Response.Write ( " " & Chr ( 13 ) ) '339
Response.Write ( " <tr> " & Chr ( 13 ) ) '340
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">注册成功默认发送的短信内容：</td>" & Chr ( 13 ) ) '341
Response.Write ( " " & Chr ( 13 ) ) '342
Response.Write ( " <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '343
Response.Write ( "<textarea name=""regsmscontent"" cols=""60"" rows=""8"" id=""regsmscontent"">" ) '344
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "regsmscontent" ) .Value) ) '344
Response.Write ( "</textarea></td>" & Chr ( 13 ) ) '344
Response.Write ( " </tr>" & Chr ( 13 ) ) '345
Response.Write ( " " & Chr ( 13 ) ) '346
Response.Write ( " <tr> " & Chr ( 13 ) ) '347
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">论坛结构选择：</td>" & Chr ( 13 ) ) '348
Response.Write ( " " & Chr ( 13 ) ) '349
Response.Write ( " <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '350
Response.Write ( "<input name=""ftmode"" type=""radio"" value=""0"" " ) '351
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "ftbbsmode" ) .Value) ) = 0 Then '351
Response.Write ( " checked " ) '351
End If '351
Response.Write ( ">" & Chr ( 13 ) ) '351
Response.Write ( " <font color=""#000000"">默认为框架结构</font><font color=""#FF0000""> " & Chr ( 13 ) ) '352
Response.Write ( " <input type=""radio"" name=""ftmode"" value=""1"" " ) '353
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "ftbbsmode" ) .Value) ) = 1 Then '353
Response.Write ( " checked " ) '353
End If '353
Response.Write ( ">" & Chr ( 13 ) ) '353
Response.Write ( " <font color=""#000000"">采用平板结构</font></font></td>" & Chr ( 13 ) ) '354
Response.Write ( " </tr>" & Chr ( 13 ) ) '355
Response.Write ( " <tr> " & Chr ( 13 ) ) '356
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">首页调用页开关：</td>" & Chr ( 13 ) ) '357
Response.Write ( " <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '358
Response.Write ( " <input name=""defaulthome"" type=""radio"" value=""0"" " ) '359
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bakoff" ) .Value) ) = 0 Then '359
Response.Write ( " checked " ) '359
End If '359
Response.Write ( ">" & Chr ( 13 ) ) '359
Response.Write ( " <font color=""#000000"">不显示首页调用直接以列表开式为论坛首页</font><font color=""#FF0000""> " & Chr ( 13 ) ) '360
Response.Write ( " <input type=""radio"" name=""defaulthome"" value=""1"" " ) '361
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bakoff" ) .Value) ) = 1 Then '361
Response.Write ( " checked " ) '361
End If '361
Response.Write ( ">" & Chr ( 13 ) ) '361
Response.Write ( " <font color=""#000000"">显示首页调用页</font></font></td>" & Chr ( 13 ) ) '362
Response.Write ( " </tr>" & Chr ( 13 ) ) '363
Response.Write ( " " & Chr ( 13 ) ) '364
Response.Write ( " <tr> " & Chr ( 13 ) ) '365
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">是否显示在线人数：</td>" & Chr ( 13 ) ) '366
Response.Write ( " " & Chr ( 13 ) ) '367
Response.Write ( " <td width=""75%"" bgcolor=""#F5F5F5""> " & Chr ( 13 ) ) '368
Response.Write ( " <input name=""onlineoff"" type=""radio"" value=""0"" " ) '369
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "onlineoff" ) .Value) ) = 0 Then '369
Response.Write ( " checked " ) '369
End If '369
Response.Write ( ">" & Chr ( 13 ) ) '369
Response.Write ( " <font color=""#000000"">是</font><font color=""#FF0000""> " & Chr ( 13 ) ) '370
Response.Write ( " <input type=""radio"" name=""onlineoff"" value=""1"" " ) '371
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "onlineoff" ) .Value) ) = 1 Then '371
Response.Write ( " checked " ) '371
End If '371
Response.Write ( ">" & Chr ( 13 ) ) '371
Response.Write ( " <font color=""#000000"">否</font> </font></td>" & Chr ( 13 ) ) '372
Response.Write ( " </tr>" & Chr ( 13 ) ) '373
Response.Write ( " <tr> " & Chr ( 13 ) ) '374
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">在线人数显示时间范围：</td>" & Chr ( 13 ) ) '375
Response.Write ( " <td width=""75%"" bgcolor=""#FFFFFF"">显示 " & Chr ( 13 ) ) '376
Response.Write ( " <input name=""onlinetime"" type=""text"" id=""onlinetime"" value=""" ) '377
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "onlinetime" ) .Value) ) '377
Response.Write ( """ size=""10"">" & Chr ( 13 ) ) '377
Response.Write ( " 分钟内的在线人数</td>" & Chr ( 13 ) ) '378
Response.Write ( " </tr>" & Chr ( 13 ) ) '379
Response.Write ( " <tr> " & Chr ( 13 ) ) '380
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">发贴要审核的时间段：</td>" & Chr ( 13 ) ) '381
Response.Write ( " <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '382
Response.Write ( " <input name=""postbegintime"" type=""text"" id=""postbegintime"" value=""" ) '383
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "postbegintime" ) .Value) ) '383
Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '383
Response.Write ( " -" & Chr ( 13 ) ) '384
Response.Write ( " <input name=""postendtime"" type=""text"" id=""postendtime"" value=""" ) '385
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "postendtime" ) .Value) ) '385
Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '385
Response.Write ( " 请用<font color=""#FF0000"">24</font>小时时段格式如:每晚11:00到次日早5:00可设置为: 23:00-05:00为<font color=""#FF0000"">0</font>不起作用</td>" & Chr ( 13 ) ) '386
Response.Write ( " </tr>" & Chr ( 13 ) ) '387
Response.Write ( " <tr> " & Chr ( 13 ) ) '388
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">回贴要审核的时间段：</td>" & Chr ( 13 ) ) '389
Response.Write ( " <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '390
Response.Write ( " <input name=""repostbegintime"" type=""text"" id=""repostbegintime"" value=""" ) '391
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "repostbegintime" ) .Value) ) '391
Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '391
Response.Write ( " - " & Chr ( 13 ) ) '392
Response.Write ( " <input name=""repostendtime"" type=""text"" id=""repostendtime"" value=""" ) '393
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "repostendtime" ) .Value) ) '393
Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '393
Response.Write ( " 请用<font color=""#FF0000"">24</font>小时时段格式如:每晚11:30到次日早5:10可设置为: 23:30-05:10为<font color=""#FF0000"">0</font>不起作用</td>" & Chr ( 13 ) ) '394
Response.Write ( " </tr>" & Chr ( 13 ) ) '395
Response.Write ( " <tr> " & Chr ( 13 ) ) '396
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">积分增减规则：</td>" & Chr ( 13 ) ) '397
Response.Write ( " <td width=""75%"" bgcolor=""#FFFFFF"">发贴加 " & Chr ( 13 ) ) '398
Response.Write ( " <input name=""postget"" type=""text"" id=""postget"" value=""" ) '399
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "postget" ) .Value) ) '399
Response.Write ( """ size=""5"">" & Chr ( 13 ) ) '399
Response.Write ( " ,回贴加" & Chr ( 13 ) ) '400
Response.Write ( " <input name=""repostget"" type=""text"" id=""repostget"" value=""" ) '401
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "repostget" ) .Value) ) '401
Response.Write ( """ size=""5"">" & Chr ( 13 ) ) '401
Response.Write ( " ,被回贴作者加" & Chr ( 13 ) ) '402
Response.Write ( " <input name=""topostget"" type=""text"" id=""topostget"" value=""" ) '403
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "topostget" ) .Value) ) '403
Response.Write ( """ size=""5"">" & Chr ( 13 ) ) '403
Response.Write ( " ,设为推荐 " & Chr ( 13 ) ) '404
Response.Write ( " <input name=""tjget"" type=""text"" id=""tjget"" value=""" ) '405
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "tjget" ) .Value) ) '405
Response.Write ( """ size=""5"">" & Chr ( 13 ) ) '405
Response.Write ( " ,设为精华加" & Chr ( 13 ) ) '406
Response.Write ( " <input name=""jhget"" type=""text"" id=""jhget"" value=""" ) '407
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "jhget" ) .Value) ) '407
Response.Write ( """ size=""5"">" & Chr ( 13 ) ) '407
Response.Write ( " </td>" & Chr ( 13 ) ) '408
Response.Write ( " </tr>" & Chr ( 13 ) ) '409
Response.Write ( " <tr> " & Chr ( 13 ) ) '410
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">体力增加规则：</td>" & Chr ( 13 ) ) '411
Response.Write ( " <td width=""75%"" bgcolor=""#FFFFFF"">体力每次登录加 " & Chr ( 13 ) ) '412
Response.Write ( " <input name=""logintili"" type=""text"" id=""repostbegintime72"" value=""" ) '413
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "logintili" ) .Value) ) '413
Response.Write ( """ size=""8""></td>" & Chr ( 13 ) ) '413
Response.Write ( " </tr>" & Chr ( 13 ) ) '414
Response.Write ( " <tr> " & Chr ( 13 ) ) '415
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">金钱积分兑换规则：</td>" & Chr ( 13 ) ) '416
Response.Write ( " <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '417
Response.Write ( " <input name=""swapmoney"" type=""text"" id=""repostbegintime73"" value=""" ) '418
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "swapmoney" ) .Value) ) '418
Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '418
Response.Write ( " 元金钱兑换 " & Chr ( 13 ) ) '419
Response.Write ( " <input name=""integral"" type=""text"" id=""repostbegintime74"" value=""" ) '420
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "integral" ) .Value) ) '420
Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '420
Response.Write ( " 积分值</td>" & Chr ( 13 ) ) '421
Response.Write ( " </tr>" & Chr ( 13 ) ) '422
Response.Write ( " <tr> " & Chr ( 13 ) ) '423
Response.Write ( " <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">发贴积分权限规则：</td>" & Chr ( 13 ) ) '424
Response.Write ( " <td width=""75%"" height=""55"">发普通贴积分要大于 " & Chr ( 13 ) ) '425
Response.Write ( " <input name=""postvalue"" type=""text"" id=""postvalue"" value=""" ) '426
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "postvalue" ) .Value) ) '426
Response.Write ( """ size=""5"">" & Chr ( 13 ) ) '426
Response.Write ( " <br>" & Chr ( 13 ) ) '427
Response.Write ( " 发投票贴积分要大于 " & Chr ( 13 ) ) '428
Response.Write ( " <input name=""pollvalue"" type=""text"" id=""pollvalue"" value=""" ) '429
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -