editpost.aspx.vb

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

                Response.Write ( ">#008080</option>" & Chr ( 13 ) ) '248
                Response.Write ( "          <option style=""background-color:#D8BFD8;color: #D8BFD8"" value=""#D8BFD8"" " ) '249
                If AspToAspX_CheckDBNull ( titlecolor ) = "#D8BFD8" Then '249
                    Response.Write ( " selected" ) '249
                End If '249
                Response.Write ( ">#D8BFD8</option>" & Chr ( 13 ) ) '249
                Response.Write ( "          <option style=""background-color:#FF6347;color: #FF6347"" value=""#FF6347"" " ) '250
                If AspToAspX_CheckDBNull ( titlecolor ) = "#FF6347" Then '250
                    Response.Write ( " selected" ) '250
                End If '250
                Response.Write ( ">#FF6347</option>" & Chr ( 13 ) ) '250
                Response.Write ( "          <option style=""background-color:#40E0D0;color: #40E0D0"" value=""#40E0D0"" " ) '251
                If AspToAspX_CheckDBNull ( titlecolor ) = "#40E0D0" Then '251
                    Response.Write ( " selected" ) '251
                End If '251
                Response.Write ( ">#40E0D0</option>" & Chr ( 13 ) ) '251
                Response.Write ( "          <option style=""background-color:#EE82EE;color: #EE82EE"" value=""#EE82EE"" " ) '252
                If AspToAspX_CheckDBNull ( titlecolor ) = "#EE82EE" Then '252
                    Response.Write ( " selected" ) '252
                End If '252
                Response.Write ( ">#EE82EE</option>" & Chr ( 13 ) ) '252
                Response.Write ( "          <option style=""background-color:#F5DEB3;color: #F5DEB3"" value=""#F5DEB3"" " ) '253
                If AspToAspX_CheckDBNull ( titlecolor ) = "#F5DEB3" Then '253
                    Response.Write ( " selected" ) '253
                End If '253
                Response.Write ( ">#F5DEB3</option>" & Chr ( 13 ) ) '253
                Response.Write ( "          <option style=""background-color:#435454;color: #435454"" value=""#435454"" " ) '254
                If AspToAspX_CheckDBNull ( titlecolor ) = "#435454" Then '254
                    Response.Write ( " selected" ) '254
                End If '254
                Response.Write ( ">#435454</option>" & Chr ( 13 ) ) '254
                Response.Write ( "          <option style=""background-color:#9ACD32;color: #9ACD32"" value=""#9ACD32"" " ) '255
                If AspToAspX_CheckDBNull ( titlecolor ) = "#9ACD32" Then '255
                    Response.Write ( " selected" ) '255
                End If '255
                Response.Write ( ">#9ACD32</option>" & Chr ( 13 ) ) '255
                Response.Write ( "        </SELECT> " & Chr ( 13 ) ) '256
                Response.Write ( "        " ) '257
            End If '257
            Response.Write ( vbCrLf )
            Response.Write ( "      </TD>" & Chr ( 13 ) ) '258
            Response.Write ( "    </TR>" & Chr ( 13 ) ) '259
            Response.Write ( "" & Chr ( 9 ) & "" ) '260
        End If '260
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & "" ) '261
        If AspToAspX_CheckDBNull ( flag ) = 5 Then '261
        Response.Write ( vbCrLf )
            Response.Write ( "    <TR> " & Chr ( 13 ) ) '262
            Response.Write ( "      <TD width=""16%"" height=""28"" align=""right"" valign=""bottom"" class=""loopborder1""> " & Chr ( 13 ) ) '263
            Response.Write ( "        悬赏设置：</TD>" & Chr ( 13 ) ) '264
            Response.Write ( "      <TD width=""84%"" height=""25"" class=""loopborder1"" align=""left"">奖励金额" & Chr ( 13 ) ) '265
            Response.Write ( "        <input name=""xsjf"" type=""text"" id=""xsjf"" size=""3"" onkeyup=""value=value.replace(/[^\d]/g,'');"" value=""" ) '266
            Response.Write ( xsjf ) '266
            Response.Write ( """>" & Chr ( 13 ) ) '266
            Response.Write ( "        ,有效天数 " & Chr ( 13 ) ) '267
            Response.Write ( "        <input name=""xsdaynum"" type=""text"" id=""xsdaynum"" size=""3"" onkeyup=""value=value.replace(/[^\d]/g,'');"" value=""" ) '268
            Response.Write ( xsdaynum ) '268
            Response.Write ( """>" & Chr ( 13 ) ) '268
            Response.Write ( "        .(所填必须为整数)</TD>" & Chr ( 13 ) ) '269
            Response.Write ( "    </TR>" & Chr ( 13 ) ) '270
            Response.Write ( "" & Chr ( 9 ) & "" ) '271
        End If '271
        Response.Write ( vbCrLf )
        Response.Write ( "    <TR class=""maintbtr3""> " & Chr ( 13 ) ) '272
        Response.Write ( "      <TD class=""loopborder1""> " & Chr ( 13 ) ) '273
        Response.Write ( "        <div align=""right"">内　容：</div>" & Chr ( 13 ) ) '274
        Response.Write ( "      </TD>" & Chr ( 13 ) ) '275
        Response.Write ( "      <TD height=300>" & Chr ( 13 ) ) '276
        Response.Write ( "<TEXTAREA type=""hidden"" rows=1 cols=1 name=""menu"" style=""position:absolute;left:0;visibility:hidden;"">" ) '277
        Response.Write ( Server.HTMLEncode ( remenu ) ) '277
        Response.Write ( "</textarea>" & Chr ( 13 ) ) '277
        Response.Write ( "<script type=""text/javascript"" src=""fteditor/editor.js""></script> " & Chr ( 13 ) ) '278
        Response.Write ( "<script type=""text/javascript"">" & Chr ( 13 ) ) '279
        Response.Write ( "var editor = new FtEditor(""editor"");" & Chr ( 13 ) ) '280
        Response.Write ( "editor.hiddenName = ""menu"";" & Chr ( 13 ) ) '281
        Response.Write ( "editor.editorWidth = ""100%"";" & Chr ( 13 ) ) '282
        Response.Write ( "editor.editorHeight = ""300px"";" & Chr ( 13 ) ) '283
        Response.Write ( "editor.show();" & Chr ( 13 ) ) '284
        Response.Write ( "</script>" & Chr ( 13 ) ) '285
        Response.Write ( "" & Chr ( 9 ) & "  </TD>" & Chr ( 13 ) ) '286
        Response.Write ( "    </TR>" & Chr ( 13 ) ) '287
        Response.Write ( "    <TR> " & Chr ( 13 ) ) '288
        Response.Write ( "      <TD width=""16%"" class=""loopborder1""> " & Chr ( 13 ) ) '289
        Response.Write ( "        <div align=""right"">上传附件：</div>" & Chr ( 13 ) ) '290
        Response.Write ( "      </TD>" & Chr ( 13 ) ) '291
        Response.Write ( "      <TD width=""84%"" height=""28"" class=""loopborder1"">" & Chr ( 13 ) ) '292
        Response.Write ( "      <IFRAME name=mqs marginWidth=0 marginHeight=0 src=FtbbsUpFile.aspx?filename=" ) '293
        Response.Write ( filename ) '293
        Response.Write ( " frameBorder=0 width=100% scrolling=no height=25></IFRAME>" & Chr ( 13 ) ) '293
        Response.Write ( "      </TD>" & Chr ( 13 ) ) '294
        Response.Write ( "    </TR>" & Chr ( 13 ) ) '295
        Response.Write ( "" & Chr ( 9 ) & "" ) '296
        If AspToAspX_CheckDBNull ( reid ) = EmptyString.Value Then '296
        Response.Write ( vbCrLf )
            Response.Write ( "    <TR class=""maintbtr1"">" & Chr ( 13 ) ) '297
            Response.Write ( "      <TD width=""16%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '298
            Response.Write ( "        <div align=""right"">发布状态：</div>" & Chr ( 13 ) ) '299
            Response.Write ( "      </TD>" & Chr ( 13 ) ) '300
            Response.Write ( "      <TD width=""84%"" height=""30"" class=""loopborder1"">" & Chr ( 13 ) ) '301
            Response.Write ( "        <input type=radio name=ticon value=0.gif " ) '302
            If AspToAspX_CheckDBNull ( picture ) = "0.gif" Then '302
                Response.Write ( "checked" ) '302
            End If '302
            Response.Write ( ">" & Chr ( 13 ) ) '302
            Response.Write ( "        <img src=images/0.gif width=19 height=19 > " & Chr ( 13 ) ) '303
            Response.Write ( "        <input type=radio name=ticon value=29.gif " ) '304
            If AspToAspX_CheckDBNull ( picture ) = "29.gif" Then '304
                Response.Write ( "checked" ) '304
            End If '304
            Response.Write ( ">" & Chr ( 13 ) ) '304
            Response.Write ( "        <img src=images/29.gif width=19 height=19> " & Chr ( 13 ) ) '305
            Response.Write ( "        <input type=radio name=ticon value=30.gif " ) '306
            If AspToAspX_CheckDBNull ( picture ) = "30.gif" Then '306
                Response.Write ( "checked" ) '306
            End If '306
            Response.Write ( ">" & Chr ( 13 ) ) '306
            Response.Write ( "        <img src=images/30.gif width=19 height=19> " & Chr ( 13 ) ) '307
            Response.Write ( "        <input type=radio name=ticon value=31.gif " ) '308
            If AspToAspX_CheckDBNull ( picture ) = "31.gif" Then '308
                Response.Write ( "checked" ) '308
            End If '308
            Response.Write ( "> " & Chr ( 13 ) ) '308
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<img src=images/31.gif width=19 height=19> " & Chr ( 13 ) ) '309
            Response.Write ( "        <input type=radio name=ticon value=34.gif " ) '310
            If AspToAspX_CheckDBNull ( picture ) = "34.gif" Then '310
                Response.Write ( "checked" ) '310
            End If '310
            Response.Write ( ">" & Chr ( 13 ) ) '310
            Response.Write ( "        <img src=images/34.gif width=19 height=19> " & Chr ( 13 ) ) '311
            Response.Write ( "        <input type=radio name=ticon value=36.gif " ) '312
            If AspToAspX_CheckDBNull ( picture ) = "36.gif" Then '312
                Response.Write ( "checked" ) '312
            End If '312
            Response.Write ( ">" & Chr ( 13 ) ) '312
            Response.Write ( "        <img src=images/36.gif width=19 height=19> " & Chr ( 13 ) ) '313
            Response.Write ( "        <input type=radio name=ticon value=37.gif " ) '314
            If AspToAspX_CheckDBNull ( picture ) = "37.gif" Then '314
                Response.Write ( "checked" ) '314
            End If '314
            Response.Write ( ">" & Chr ( 13 ) ) '314
            Response.Write ( "        <img src=images/37.gif width=19 height=19> " & Chr ( 13 ) ) '315
            Response.Write ( "        <input type=radio name=ticon value=38.gif " ) '316
            If AspToAspX_CheckDBNull ( picture ) = "38.gif" Then '316
                Response.Write ( "checked" ) '316
            End If '316
            Response.Write ( ">" & Chr ( 13 ) ) '316
            Response.Write ( "        <img src=images/38.gif width=19 height=19> " & Chr ( 13 ) ) '317
            Response.Write ( "        <input type=radio name=ticon value=39.gif " ) '318
            If AspToAspX_CheckDBNull ( picture ) = "39.gif" Then '318
                Response.Write ( "checked" ) '318
            End If '318
            Response.Write ( "> " & Chr ( 13 ) ) '318
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<img src=images/39.gif width=19 height=19> " & Chr ( 13 ) ) '319
            Response.Write ( "        <input type=radio name=ticon value=40.gif " ) '320
            If AspToAspX_CheckDBNull ( picture ) = "40.gif" Then '320
                Response.Write ( "checked" ) '320
            End If '320
            Response.Write ( ">" & Chr ( 13 ) ) '320
            Response.Write ( "        <img src=images/40.gif width=19 height=19> " & Chr ( 13 ) ) '321
            Response.Write ( "        <input type=radio name=ticon value=41.gif " ) '322
            If AspToAspX_CheckDBNull ( picture ) = "41.gif" Then '322
                Response.Write ( "checked" ) '322
            End If '322
            Response.Write ( ">" & Chr ( 13 ) ) '322
            Response.Write ( "        <img src=images/41.gif width=19 height=19> " & Chr ( 13 ) ) '323
            Response.Write ( "        <input type=radio name=ticon value=42.gif " ) '324
            If AspToAspX_CheckDBNull ( picture ) = "42.gif" Then '324
                Response.Write ( "checked" ) '324
            End If '324
            Response.Write ( ">" & Chr ( 13 ) ) '324
            Response.Write ( "        <img src=images/42.gif width=19 height=19> " & Chr ( 13 ) ) '325
            Response.Write ( "        <input type=radio name=ticon value=43.gif " ) '326
            If AspToAspX_CheckDBNull ( picture ) = "43.gif" Then '326
                Response.Write ( "checked" ) '326
            End If '326
            Response.Write ( ">" & Chr ( 13 ) ) '326
            Response.Write ( "        <img src=images/43.gif width=19 height=19> " & Chr ( 13 ) ) '327
            Response.Write ( "      </TD>" & Chr ( 13 ) ) '328
            Response.Write ( "    </TR>" & Chr ( 13 ) ) '329
            Response.Write ( "" & Chr ( 9 ) & "   " ) '330
            If AspToAspX_CheckDBNull ( flag ) = 0 Or AspToAspX_CheckDBNull ( flag ) = 3 Or AspToAspX_CheckDBNull ( flag ) = 4 Then '330
            Response.Write ( vbCrLf )
                Response.Write ( "       <TR> " & Chr ( 13 ) ) '331
                Response.Write ( "        <TD width=""16%"" height=""25"" class=""loopborder1""> <div align=""right"">其他选项：</div></TD>" & Chr ( 13 ) ) '332
                Response.Write ( "        <TD width=""84%"" class=""loopborder1""> <select name=""flag"" id=""flag"">" & Chr ( 13 ) ) '333
                Response.Write ( "          <option value=""0"" " ) '334
                If AspToAspX_CheckDBNull ( flag ) = 0 Then '334
                    Response.Write ( "selected" ) '334
                End If '334
                Response.Write ( ">普通贴</option>" & Chr ( 13 ) ) '334
                Response.Write ( "          <option value=""3"" " ) '335
                If AspToAspX_CheckDBNull ( flag ) = 3 Then '335
                    Response.Write ( "selected" ) '335
                End If '335
                Response.Write ( ">注册用户可查看</option>" & Chr ( 13 ) ) '335
                Response.Write ( "          <option value=""4"" " ) '336
                If AspToAspX_CheckDBNull ( flag ) = 4 Then '336
                    Response.Write ( "selected" ) '336
                End If '336
                Response.Write ( ">回贴后可以查看</option>" & Chr ( 13 ) ) '336
                Response.Write ( "        </select> </TD>" & Chr ( 13 ) ) '337
                Response.Write ( "       </TR>" & Chr ( 13 ) ) '338
                Response.Write ( "" & Chr ( 9 ) & "   " ) '339
            End If '339
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & "" ) '340
        End If '340
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & "" ) '341
        If AspToAspX_CheckDBNull ( getcodeoff ) = 1 Then '341
        Response.Write ( vbCrLf )
            Response.Write ( "    <TR> " & Chr ( 13 ) ) '342
            Response.Write ( "      <TD width=""16%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '343
            Response.Write ( "        <div align=""right"">验 证 码：</div>" & Chr ( 13 ) ) '344
            Response.Write ( "      </TD>" & Chr ( 13 ) ) '345
            Response.Write ( "      <TD width=""84%"" height=""25"" class=""loopborder1""><input name=codestr id=codestr type=text size=10 maxlength=4> " ) '346
            Response.Write ( getcode ) '346
            Response.Write ( vbCrLf )
            Response.Write ( "        <input type=""hidden"" name=""UploadFiles"" id=""UploadFiles""></TD>" & Chr ( 13 ) ) '347
            Response.Write ( "    </TR>" & Chr ( 13 ) ) '348
            Response.Write ( "" & Chr ( 9 ) & "" ) '349
        End If '349
        Response.Write ( vbCrLf )
        Response.Write ( "    <TR class=""maintbtr3""> " & Chr ( 13 ) ) '350
        Response.Write ( "      <TD height=""35"" colspan=2 align=center>" & Chr ( 13 ) ) '351
        Response.Write ( "" & Chr ( 9 ) & "    <input name=""bbs_img_display"" type=""hidden"" id=""bbs_img_display"" value=""" ) '352
        Response.Write ( bbs_img_display ) '352
        Response.Write ( """>" & Chr ( 13 ) ) '352
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<input name=""bbs_img"" type=""hidden"" id=""bbs_img"" value=""" ) '353
        Response.Write ( bbs_img ) '353
        Response.Write ( """>" & Chr ( 13 ) ) '353
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<input name=""sale"" type=""hidden"" id=""sale""> " & Chr ( 13 ) ) '354
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<input name=""CurrentMode"" type=""hidden"" id=""CurrentMode"">" & Chr ( 13 ) ) '355
        Response.Write ( "" & Chr ( 9 ) & "    <INPUT TYPE=""hidden"" name=""postuser"" value=""" ) '356
        Response.Write ( postuser ) '356
        Response.Write ( """> " & Chr ( 13 ) ) '356
        Response.Write ( "        <INPUT TYPE=""hidden"" name=""FileName"" value=""" ) '357
        Response.Write ( FileName ) '357
        Response.Write ( """>" & Chr ( 13 ) ) '357
        Response.Write ( "        <INPUT TYPE=""hidden"" name=""id"" value=""" ) '358
        Response.Write ( pid ) '358
        Response.Write ( """>" & Chr ( 13 ) ) '358
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<INPUT TYPE=""hidden"" name=""reid"" value=""" ) '359
        Response.Write ( reid ) '359
        Response.Write ( """>" & Chr ( 13 ) ) '359
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<INPUT TYPE=""hidden"" name=""page"" value=""" ) '360
        Response.Write ( page ) '360
        Response.Write ( """>" & Chr ( 13 ) ) '360