help.aspx.vb

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

    Response.Write ( "                    </TR>" & Chr ( 13 ) ) '117
    Response.Write ( "                    <TR> " & Chr ( 13 ) ) '118
    Response.Write ( "                      <TD class=""maintbtr3"" width=""80%""> <TABLE border=0 cellPadding=0 cellSpacing=18 width=""100%"">" & Chr ( 13 ) ) '119
    Response.Write ( "                          <TBODY>" & Chr ( 13 ) ) '120
    Response.Write ( "                            <TR> " & Chr ( 13 ) ) '121
    Response.Write ( "                              <TD width=""100%"" class=f12>1、积分值：可以从负无穷大到正无穷大,不限.<BR> <BR>" & Chr ( 13 ) ) '122
    Response.Write ( "                                2、第一次登录到论坛初始积分值为0,以后累加第一次登录到论坛体力值设为" ) '123
    Response.Write ( logintili ) '123
    Response.Write ( ",以后累计<BR> <BR>" & Chr ( 13 ) ) '123
    Response.Write ( "                                3、发贴子：积分值<FONT color=#ff0000>+" ) '124
    Response.Write ( postget ) '124
    Response.Write ( "</FONT><BR> <BR>" & Chr ( 13 ) ) '124
    Response.Write ( "                                4、回贴子：回复者积分值<FONT color=#ff0000>+" ) '125
    Response.Write ( repostget ) '125
    Response.Write ( "</FONT>，被回复者积分值<FONT " & Chr ( 13 ) ) '125
    Response.Write ( "                        color=#ff0000>+" ) '126
    Response.Write ( topostget ) '126
    Response.Write ( "</FONT><BR>" & Chr ( 13 ) ) '126
    Response.Write ( "                                <BR>" & Chr ( 13 ) ) '127
    Response.Write ( "                                5、删除贴子：主题贴被版主删除积分值<FONT " & Chr ( 13 ) ) '128
    Response.Write ( "                        color=#ff0000>-" ) '129
    Response.Write ( postget ) '129
    Response.Write ( "</FONT> " & Chr ( 13 ) ) '129
    Response.Write ( "                                <P>6、删除回复：回贴被版主删除积分值<FONT " & Chr ( 13 ) ) '130
    Response.Write ( "                        color=#ff0000>-" ) '131
    Response.Write ( repostget ) '131
    Response.Write ( "<BR>" & Chr ( 13 ) ) '131
    Response.Write ( "                                  </FONT><BR>" & Chr ( 13 ) ) '132
    Response.Write ( "                                  7、贴子被推荐：贴子作者增加<FONT " & Chr ( 13 ) ) '133
    Response.Write ( "                        color=#ff0000> " ) '134
    Response.Write ( tjget ) '134
    Response.Write ( " </FONT>点积分值。<BR>" & Chr ( 13 ) ) '134
    Response.Write ( "                                  <BR>" & Chr ( 13 ) ) '135
    Response.Write ( "                                  8、贴子被收录精华区：贴子作者增加<FONT " & Chr ( 13 ) ) '136
    Response.Write ( "                        color=#ff0000> " ) '137
    Response.Write ( jhget ) '137
    Response.Write ( " </FONT>点积分值。<BR>" & Chr ( 13 ) ) '137
    Response.Write ( "                                </P></TD>" & Chr ( 13 ) ) '138
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '139
    Response.Write ( "                          </TBODY>" & Chr ( 13 ) ) '140
    Response.Write ( "                        </TABLE></TD>" & Chr ( 13 ) ) '141
    Response.Write ( "                    </TR>" & Chr ( 13 ) ) '142
    Response.Write ( "                    <TR> " & Chr ( 13 ) ) '143
    Response.Write ( "                      <TD>" & Chr ( 13 ) ) '144
    Response.Write ( "                        </TD>" & Chr ( 13 ) ) '145
    Response.Write ( "                    </TR>" & Chr ( 13 ) ) '146
    Response.Write ( "                  </TBODY>" & Chr ( 13 ) ) '147
    Response.Write ( "                </TABLE>" & Chr ( 13 ) ) '148
    Response.Write ( "                <TABLE align=center cellPadding=2 cellSpacing=0 width=""100%"" vspace=""3"" hspace=""0"">" & Chr ( 13 ) ) '149
    Response.Write ( "                  <TBODY>" & Chr ( 13 ) ) '150
    Response.Write ( "                    <TR class=""f12""> " & Chr ( 13 ) ) '151
    Response.Write ( "                      <TD height=""25"" class=nar><strong><font color=""#FFFFFF""> " & Chr ( 13 ) ) '152
    Response.Write ( "                        三、普通用户积分权限规则</font></strong></TD>" & Chr ( 13 ) ) '153
    Response.Write ( "                    </TR>" & Chr ( 13 ) ) '154
    Response.Write ( "                    <TR> " & Chr ( 13 ) ) '155
    Response.Write ( "                      <TD class=""maintbtr3"" width=""80%""> <TABLE border=0 cellPadding=0 cellSpacing=18 width=""100%"">" & Chr ( 13 ) ) '156
    Response.Write ( "                          <TBODY>" & Chr ( 13 ) ) '157
    Response.Write ( "                            <TR> " & Chr ( 13 ) ) '158
    Response.Write ( "                              <TD width=""100%"" class=f12>1、积分值大于<FONT color=#ff0000> " & Chr ( 13 ) ) '159
    Response.Write ( "                                " ) '160
    Response.Write ( postvalue ) '160
    Response.Write ( " </FONT>时则可以发普通贴,等于0时则不限权限.<BR> " & Chr ( 13 ) ) '160
    Response.Write ( "                                <BR>" & Chr ( 13 ) ) '161
    Response.Write ( "                                2、积分值大于 <FONT color=#ff0000>" ) '162
    Response.Write ( pollvalue ) '162
    Response.Write ( "</FONT> " & Chr ( 13 ) ) '162
    Response.Write ( "                                时则可以发投票贴和活动贴,等于0时则不限权限.<BR> <BR>" & Chr ( 13 ) ) '163
    Response.Write ( "                                3、积分值大于 <FONT color=#ff0000>" ) '164
    Response.Write ( topvalue ) '164
    Response.Write ( "</FONT> " & Chr ( 13 ) ) '164
    Response.Write ( "                                时则可以对自已发的贴子进行置顶操作,等于0时则不允许操作.<BR> <BR>" & Chr ( 13 ) ) '165
    Response.Write ( "                                4、积分值大于 <FONT color=#ff0000>" ) '166
    Response.Write ( tjvalue ) '166
    Response.Write ( "</FONT> " & Chr ( 13 ) ) '166
    Response.Write ( "                                时则可以对自已发的贴子进行推荐操作,等于0时则不允许操作.<BR> <BR>" & Chr ( 13 ) ) '167
    Response.Write ( "                                5、积分值大于 <FONT color=#ff0000>" ) '168
    Response.Write ( jhvalue ) '168
    Response.Write ( "</FONT> " & Chr ( 13 ) ) '168
    Response.Write ( "                                时则可以对自已发的贴子设为精华贴,等于0时则不允许操作. <BR>" & Chr ( 13 ) ) '169
    Response.Write ( "                                <BR>" & Chr ( 13 ) ) '170
    Response.Write ( "                                6、积分值大于<FONT color=#ff0000> " ) '171
    Response.Write ( uploadvalue ) '171
    Response.Write ( " </FONT>时则可以上传附件,等于0时则所有用户都可以上传.<BR> " & Chr ( 13 ) ) '171
    Response.Write ( "                                <br>" & Chr ( 13 ) ) '172
    Response.Write ( "                                7、积分值大于<FONT color=#ff0000> " ) '173
    Response.Write ( downvalue ) '173
    Response.Write ( " </FONT>时则可以发普通贴,等于0时则所有用户都可以下载.<BR> " & Chr ( 13 ) ) '173
    Response.Write ( "                                </TD>" & Chr ( 13 ) ) '174
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '175
    Response.Write ( "                          </TBODY>" & Chr ( 13 ) ) '176
    Response.Write ( "                        </TABLE></TD>" & Chr ( 13 ) ) '177
    Response.Write ( "                    </TR>" & Chr ( 13 ) ) '178
    Response.Write ( "                    <TR> " & Chr ( 13 ) ) '179
    Response.Write ( "                      <TD> </TD>" & Chr ( 13 ) ) '180
    Response.Write ( "                    </TR>" & Chr ( 13 ) ) '181
    Response.Write ( "                  </TBODY>" & Chr ( 13 ) ) '182
    Response.Write ( "                </TABLE>" & Chr ( 13 ) ) '183
    Response.Write ( "                <TABLE align=center cellPadding=2 cellSpacing=0 width=""100%"" vspace=""3"" hspace=""0"">" & Chr ( 13 ) ) '184
    Response.Write ( "                  <TBODY>" & Chr ( 13 ) ) '185
    Response.Write ( "                    <TR class=""f12""> " & Chr ( 13 ) ) '186
    Response.Write ( "                      <TD height=""25"" class=nar><strong><font color=""#FFFFFF""> " & Chr ( 13 ) ) '187
    Response.Write ( "                        四、勋章说明</font></strong></TD>" & Chr ( 13 ) ) '188
    Response.Write ( "                    </TR>" & Chr ( 13 ) ) '189
    Response.Write ( "                    <TR> " & Chr ( 13 ) ) '190
    Response.Write ( "                      <TD class=""maintbtr3"" width=""80%""> <TABLE border=0 cellPadding=0 cellSpacing=18 width=""100%"">" & Chr ( 13 ) ) '191
    Response.Write ( "                          <TBODY>" & Chr ( 13 ) ) '192
    Response.Write ( "                            <TR> " & Chr ( 13 ) ) '193
    Response.Write ( "                              <TD width=""100%"" class=f12> " & Chr ( 13 ) ) '194
    Response.Write ( "                                " ) '195
    sql = "select * from " & ft & "xunzhang order by id asc" '196
    rs = New ADODB.Recordset ( ) '197
    rs.Open ( sql , conn , 1 , 1 ) '198
    Do While Not rs.EOF '199
        Response.Write ( vbCrLf )
        Response.Write ( "                                <img src=""images/" ) '201
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "xzimg" ) .Value) ) '201
        Response.Write ( """ width=""20"" height=""35"" align=""absmiddle"">&nbsp;" ) '201
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "xzms" ) .Value) ) '201
        Response.Write ( " " & Chr ( 13 ) ) '201
        Response.Write ( "                                " ) '202
        rs.MoveNext ( ) '203
    Loop '204
    rs.Close ( ) '205
    Response.Write ( vbCrLf )
    Response.Write ( "                              </TD>" & Chr ( 13 ) ) '207
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '208
    Response.Write ( "                          </TBODY>" & Chr ( 13 ) ) '209
    Response.Write ( "                        </TABLE></TD>" & Chr ( 13 ) ) '210
    Response.Write ( "                    </TR>" & Chr ( 13 ) ) '211
    Response.Write ( "                    <TR> " & Chr ( 13 ) ) '212
    Response.Write ( "                      <TD> </TD>" & Chr ( 13 ) ) '213
    Response.Write ( "                    </TR>" & Chr ( 13 ) ) '214
    Response.Write ( "                  </TBODY>" & Chr ( 13 ) ) '215
    Response.Write ( "                </TABLE>" & Chr ( 13 ) ) '216
    Response.Write ( "                <TABLE align=center cellPadding=2 cellSpacing=0 width=""100%"" vspace=""3"" hspace=""0"">" & Chr ( 13 ) ) '217
    Response.Write ( "                  <TBODY>" & Chr ( 13 ) ) '218
    Response.Write ( "                    <TR class=""f12""> " & Chr ( 13 ) ) '219
    Response.Write ( "                      <TD height=""25"" class=nar><strong><font color=""#FFFFFF""> " & Chr ( 13 ) ) '220
    Response.Write ( "                        五、如何使用FTBBS代码</font></strong></TD>" & Chr ( 13 ) ) '221
    Response.Write ( "                    </TR>" & Chr ( 13 ) ) '222
    Response.Write ( "                    <TR> " & Chr ( 13 ) ) '223
    Response.Write ( "                      <TD class=""maintbtr3"" width=""80%""> <TABLE align=center bgColor=#cccccc border=0 cellPadding=2 cellSpacing=1 width=""97%"">" & Chr ( 13 ) ) '224
    Response.Write ( "                          <TBODY>" & Chr ( 13 ) ) '225
    Response.Write ( "                            <TR align=middle bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '226
    Response.Write ( "                              <TD width=""44%"" height=""25"">FTBBS代码</TD>" & Chr ( 13 ) ) '227
    Response.Write ( "                              <TD width=""56%"">代码效果</TD>" & Chr ( 13 ) ) '228
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '229
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '230
    Response.Write ( "                              <TD height=""23"">[b]粗体文字[/b]</TD>" & Chr ( 13 ) ) '231
    Response.Write ( "                              <TD><strong>粗体文字</strong></TD>" & Chr ( 13 ) ) '232
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '233
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '234
    Response.Write ( "                              <TD height=""23"">[i]斜体文字[/i]</TD>" & Chr ( 13 ) ) '235
    Response.Write ( "                              <TD><em>斜体文字</em></TD>" & Chr ( 13 ) ) '236
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '237
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '238
    Response.Write ( "                              <TD height=""23"">[u]下划线文字[/u]</TD>" & Chr ( 13 ) ) '239
    Response.Write ( "                              <TD><u>下划线文字</u></TD>" & Chr ( 13 ) ) '240
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '241
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '242
    Response.Write ( "                              <TD height=""23"">[color=red]红颜色[/color]</TD>" & Chr ( 13 ) ) '243
    Response.Write ( "                              <TD><font color=""#FF0000"">红颜色</font></TD>" & Chr ( 13 ) ) '244
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '245
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '246
    Response.Write ( "                              <TD height=""23"">[size=3]文字大小为3[/size]</TD>" & Chr ( 13 ) ) '247
    Response.Write ( "                              <TD><font size=""3"">文字大小为3</font></TD>" & Chr ( 13 ) ) '248
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '249
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '250
    Response.Write ( "                              <TD height=""23"">[font=仿宋]字体为仿宋[/font]</TD>" & Chr ( 13 ) ) '251
    Response.Write ( "                              <TD>字体为仿宋</TD>" & Chr ( 13 ) ) '252
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '253
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '254
    Response.Write ( "                              <TD height=""23"">[align=Center]内容居中[/align]</TD>" & Chr ( 13 ) ) '255
    Response.Write ( "                              <TD>内容居中</TD>" & Chr ( 13 ) ) '256
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '257
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '258
    Response.Write ( "                              <TD height=""23"">[flash=500,350]Flash网页地址[/flash]</TD>" & Chr ( 13 ) ) '259
    Response.Write ( "                              <TD>帖子内嵌入Flash动画</TD>" & Chr ( 13 ) ) '260
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '261
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '262
    Response.Write ( "                              <TD height=""23"">[url=http://www.ftbbs.cn]FTBBS论坛[/url]</TD>" & Chr ( 13 ) ) '263
    Response.Write ( "                              <TD><a href=""http://www.ftbbs.cn"">FTBBS论坛</a></TD>" & Chr ( 13 ) ) '264
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '265
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '266
    Response.Write ( "                              <TD height=""23"">[email][e-mail][/email]</TD>" & Chr ( 13 ) ) '267
    Response.Write ( "                              <TD><a href=""mailto:[e-mail]"">[e-mail]</a></TD>" & Chr ( 13 ) ) '268
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '269
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '270
    Response.Write ( "                              <TD height=""23"">[img]http://www.ftbbs.cn/images/tmlogo.gif[/img] " & Chr ( 13 ) ) '271
    Response.Write ( "                              </TD>" & Chr ( 13 ) ) '272
    Response.Write ( "                              <TD><img src=""images/tmlogo.gif"" width=""112"" height=""50""></TD>" & Chr ( 13 ) ) '273
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '274
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '275
    Response.Write ( "                              <TD height=""23"">[mp=500,350,true]wmv或wma网页地址[/mp]</TD>" & Chr ( 13 ) ) '276
    Response.Write ( "                              <TD>帖子内嵌入 Windows media 音频或视频</TD>" & Chr ( 13 ) ) '277
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '278
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '279
    Response.Write ( "                              <TD height=""23"">[rm=500,350,true]rm网页地址[/rm]</TD>" & Chr ( 13 ) ) '280
    Response.Write ( "                              <TD>帖子内嵌入 Real 音频或视频</TD>" & Chr ( 13 ) ) '281
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '282
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '283
    Response.Write ( "                              <TD height=""23"">[fly]飞行的文字效果[/fly]</TD>" & Chr ( 13 ) ) '284
    Response.Write ( "                              <TD><marquee width=90% behavior=alternate scrollamount=3>" & Chr ( 13 ) ) '285
    Response.Write ( "                                飞行的文字效果</marquee></TD>" & Chr ( 13 ) ) '286
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '287
    Response.Write ( "                            <TR bgcolor=""#FFFFFF"" class=f12> " & Chr ( 13 ) ) '288
    Response.Write ( "                              <TD height=""23"">[move]移动的文字效果[/move]</TD>" & Chr ( 13 ) ) '289
    Response.Write ( "                              <TD><MARQUEE scrollamount=3>" & Chr ( 13 ) ) '290
    Response.Write ( "                                移动的文字效果</marquee></TD>" & Chr ( 13 ) ) '291
    Response.Write ( "                            </TR>" & Chr ( 13 ) ) '292
    Response.Write ( "                          </TBODY>" & Chr ( 13 ) ) '293
    Response.Write ( "                        </TABLE></TD>" & Chr ( 13 ) ) '294
    Response.Write ( "                    </TR>" & Chr ( 13 ) ) '295
    Response.Write ( "                    <TR> " & Chr ( 13 ) ) '296
    Response.Write ( "                      <TD> </TD>" & Chr ( 13 ) ) '297
    Response.Write ( "                    </TR>" & Chr ( 13 ) ) '298