editpost.aspx.vb

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

        Response.Write ( "<table width=""99%"" border=""0"" cellspacing=""1"" cellpadding=""1"" align=""center"" class=""listborder"">" & Chr ( 13 ) ) '133
        Response.Write ( "  <TR class=""f12bg""> " & Chr ( 13 ) ) '134
        Response.Write ( "    <TD height=""26"" colspan=""2""> <div align=""center""><b>论 坛 话 题 编 辑</b></div></TD>" & Chr ( 13 ) ) '135
        Response.Write ( "  </TR>" & Chr ( 13 ) ) '136
        Response.Write ( "<form name=""myform"" method=""POST"" action=""editpostact.aspx"" onsubmit=""" ) '137
        If AspToAspX_CheckDBNull ( reid ) = EmptyString.Value Then '137
            Response.Write ( "return CheckForm(this);" ) '137
        Else '137
            Response.Write ( "return CheckReForm(this);" ) '137
        End If '137
        Response.Write ( """ style=""MARGIN-BOTTOM: 0px""> " & Chr ( 13 ) ) '137
        Response.Write ( " <script LANGUAGE=""javascript"">" & Chr ( 13 ) ) '138
        Response.Write ( "<!--" & Chr ( 13 ) ) '139
        Response.Write ( "var onecount;" & Chr ( 13 ) ) '140
        Response.Write ( "onecount=0;" & Chr ( 13 ) ) '141
        Response.Write ( "var j;" & Chr ( 13 ) ) '142
        Response.Write ( "  " & Chr ( 13 ) ) '143
        Response.Write ( "subcat = new Array();" & Chr ( 13 ) ) '144
        strsql = "select BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Name,Initial from " & ft & "BBS_Cate where BBS_Cate_PID<>'0' and deleted=0  order by Initial asc" '146
        rsr_BBS_Cate = New ADODB.Recordset ( ) '147
        rsr_BBS_Cate.Open ( strsql , conn , 3 , 1 ) '148
        j = 0 '149
        Do While Not rsr_BBS_Cate.EOF '150
            Response.Write ( vbCrLf )
            Response.Write ( "subcat[" ) '152
            Response.Write ( j ) '152
            Response.Write ( "] = new Array(""" ) '152
            Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "Initial" ) .Value) & " " & AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_Name" ) .Value) ) '152
            Response.Write ( """,""" ) '152
            Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_PID" ) .Value) ) '152
            Response.Write ( """,""" ) '152
            Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_ID" ) .Value) ) '152
            Response.Write ( """);" & Chr ( 13 ) ) '152
            j = j + 1 '154
            rsr_BBS_Cate.MoveNext ( ) '155
        Loop '156
        rsr_BBS_Cate.Close ( ) '157
        rsr_BBS_Cate = Nothing '158
        Response.Write ( vbCrLf )
        Response.Write ( "onecount=" ) '160
        Response.Write ( j ) '160
        Response.Write ( ";" & Chr ( 13 ) ) '160
        Response.Write ( "function changelocation(locationid)" & Chr ( 13 ) ) '161
        Response.Write ( "    {" & Chr ( 13 ) ) '162
        Response.Write ( "    document.myform.BoardID_2.length = 0; " & Chr ( 13 ) ) '163
        Response.Write ( "    var locationid=locationid;" & Chr ( 13 ) ) '164
        Response.Write ( "    var i;" & Chr ( 13 ) ) '165
        Response.Write ( "    document.myform.BoardID_2.options[0] = new Option('==请选择==','');" & Chr ( 13 ) ) '166
        Response.Write ( "    for (i=0;i < onecount; i++)" & Chr ( 13 ) ) '167
        Response.Write ( "        {" & Chr ( 13 ) ) '168
        Response.Write ( "            if (subcat[i][1] == locationid)" & Chr ( 13 ) ) '169
        Response.Write ( "            { " & Chr ( 13 ) ) '170
        Response.Write ( "            document.myform.BoardID_2.options[document.myform.BoardID_2.length] = new Option(subcat[i][0], subcat[i][2]);" & Chr ( 13 ) ) '171
        Response.Write ( "            }        " & Chr ( 13 ) ) '172
        Response.Write ( "        }" & Chr ( 13 ) ) '173
        Response.Write ( "        " & Chr ( 13 ) ) '174
        Response.Write ( "    }    " & Chr ( 13 ) ) '175
        Response.Write ( "//-->" & Chr ( 13 ) ) '176
        Response.Write ( "</script>" & Chr ( 13 ) ) '177
        Response.Write ( "  " ) '178
        If AspToAspX_CheckDBNull ( reid ) = EmptyString.Value Then '178
        Response.Write ( vbCrLf )
            Response.Write ( "    " ) '179
            Response.Write ( "     <TR> " & Chr ( 13 ) ) '180
            Response.Write ( "      <TD width=""15%"" height=""25"" class=""loopborder1"" align=""right"">主论坛：</TD>" & Chr ( 13 ) ) '181
            Response.Write ( "      <TD width=""85%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '182
            Response.Write ( "        <SELECT NAME=""BoardID_1"" onChange=""changelocation(document.myform.BoardID_1.options[document.myform.BoardID_1.selectedIndex].value)"">    " & Chr ( 13 ) ) '183
            AspToAspX_Str = "select BBS_Cate_ID,BBS_Cate_Name from " & ft & "BBS_CATE Where BBS_Cate_PID='0' and deleted=0 order by BBS_ID asc" '185
            rs_BBS_Cate = New ADODB.Recordset ( ) '186
            rs_BBS_Cate.Open ( AspToAspX_Str , conn , 1 , 1 ) '187
            Do While Not rs_BBS_Cate.EOF '188
                Response.Write ( vbCrLf )
                Response.Write ( "          <option value=""" ) '190
                Response.Write ( AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_ID" ) .Value) ) '190
                Response.Write ( """ " ) '190
                If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_ID" ) .Value) ) = BBS_Cate_PID Then '190
                    Response.Write ( "selected" ) '190
                End If '190
                Response.Write ( ">" ) '190
                Response.Write ( AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_Name" ) .Value) ) '190
                Response.Write ( "</option>" & Chr ( 13 ) ) '190
                rs_BBS_Cate.MoveNext ( ) '192
            Loop '193
            rs_BBS_Cate.Close ( ) '194
            rs_BBS_Cate = Nothing '195
            Response.Write ( vbCrLf )
            Response.Write ( "        </SELECT>" & Chr ( 13 ) ) '197
            Response.Write ( "      </TD>" & Chr ( 13 ) ) '198
            Response.Write ( "    </TR>" & Chr ( 13 ) ) '199
            Response.Write ( "    <TR> " & Chr ( 13 ) ) '200
            Response.Write ( "      <TD width=""15%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '201
            Response.Write ( "        <div align=""right"">分论坛：</div>" & Chr ( 13 ) ) '202
            Response.Write ( "      </TD>" & Chr ( 13 ) ) '203
            Response.Write ( "      <TD width=""85%"" height=""25"" class=""loopborder1"">" & Chr ( 13 ) ) '204
            Response.Write ( "        <SELECT NAME=""BoardID_2"">" & Chr ( 13 ) ) '205
            Response.Write ( "          <!--<option value="""">==请选择==</option>-->" & Chr ( 13 ) ) '206
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""" ) '207
            Response.Write ( BBS_Cate_ID ) '207
            Response.Write ( """ selected>" ) '207
            Response.Write ( bbsname ) '207
            Response.Write ( "</option>" & Chr ( 13 ) ) '207
            Response.Write ( "        </SELECT>" & Chr ( 13 ) ) '208
            Response.Write ( "      </TD>" & Chr ( 13 ) ) '209
            Response.Write ( "    </TR>" & Chr ( 13 ) ) '210
            Response.Write ( "" & Chr ( 9 ) & "" ) '211
            Response.Write ( "    <TR> " & Chr ( 13 ) ) '212
            Response.Write ( "      <TD width=""15%"" align=""right"" height=""25"" class=""loopborder1""> 主　题：</TD>" & Chr ( 13 ) ) '213
            Response.Write ( "      <TD width=""85%"" height=""25"" class=""loopborder1"">" & Chr ( 13 ) ) '214
            Response.Write ( "" & Chr ( 9 ) & "    " ) '215
            If AspToAspX_CheckDBNull ( reid ) = EmptyString.Value Then '215
            Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & "    <select name=""zhiye"" id=""zhiye"" style=""width:60px"" onChange=""changetitle(document.myform.zhiye.options[document.myform.zhiye.selectedIndex].text)"">" & Chr ( 13 ) ) '216
                Response.Write ( "          <option value=""1"" " ) '217
                If AspToAspX_CheckDBNull ( zhiye ) = 1 Or AspToAspX_CheckDBNull ( zhiye ) = 0 Then '217
                    Response.Write ( "selected" ) '217
                End If '217
                Response.Write ( ">[原创]</option>" & Chr ( 13 ) ) '217
                Response.Write ( "          <option value=""2"" " ) '218
                If AspToAspX_CheckDBNull ( zhiye ) = 2 Then '218
                    Response.Write ( "selected" ) '218
                End If '218
                Response.Write ( ">[转载]</option>" & Chr ( 13 ) ) '218
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""3"" " ) '219
                If AspToAspX_CheckDBNull ( zhiye ) = 3 Then '219
                    Response.Write ( "selected" ) '219
                End If '219
                Response.Write ( ">[灌水]</option>" & Chr ( 13 ) ) '219
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""4"" " ) '220
                If AspToAspX_CheckDBNull ( zhiye ) = 4 Then '220
                    Response.Write ( "selected" ) '220
                End If '220
                Response.Write ( ">[讨论]</option>" & Chr ( 13 ) ) '220
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""5"" " ) '221
                If AspToAspX_CheckDBNull ( zhiye ) = 5 Then '221
                    Response.Write ( "selected" ) '221
                End If '221
                Response.Write ( ">[求助]</option>" & Chr ( 13 ) ) '221
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""6"" " ) '222
                If AspToAspX_CheckDBNull ( zhiye ) = 6 Then '222
                    Response.Write ( "selected" ) '222
                End If '222
                Response.Write ( ">[推荐]</option>" & Chr ( 13 ) ) '222
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""7"" " ) '223
                If AspToAspX_CheckDBNull ( zhiye ) = 7 Then '223
                    Response.Write ( "selected" ) '223
                End If '223
                Response.Write ( ">[公告]</option>" & Chr ( 13 ) ) '223
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""8"" " ) '224
                If AspToAspX_CheckDBNull ( zhiye ) = 8 Then '224
                    Response.Write ( "selected" ) '224
                End If '224
                Response.Write ( ">[贴图]</option>" & Chr ( 13 ) ) '224
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""9"" " ) '225
                If AspToAspX_CheckDBNull ( zhiye ) = 9 Then '225
                    Response.Write ( "selected" ) '225
                End If '225
                Response.Write ( ">[建议]</option>" & Chr ( 13 ) ) '225
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""10"" " ) '226
                If AspToAspX_CheckDBNull ( zhiye ) = 10 Then '226
                    Response.Write ( "selected" ) '226
                End If '226
                Response.Write ( ">[下载]</option>" & Chr ( 13 ) ) '226
                Response.Write ( "        </select>" & Chr ( 13 ) ) '227
                Response.Write ( "" & Chr ( 9 ) & "    " ) '228
            End If '228
            Response.Write ( vbCrLf )
            Response.Write ( "        <input name=""title"" type=""text"" value=""" ) '229
            Response.Write ( title ) '229
            Response.Write ( """ size=""55"" id=""title"">" & Chr ( 13 ) ) '229
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '230
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '231
            If AspToAspX_CheckDBNull ( getcookie ( "bz" ) ) = 1 Or AspToAspX_CheckDBNull ( getcookie ( "bbsadmin" ) ) = 1 Then '231
            Response.Write ( vbCrLf )
                Response.Write ( "        <SELECT name=""titlecolor"">" & Chr ( 13 ) ) '232
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option style=""background-color:#ffffff;color: #000000"" value="""">标题颜色</option>" & Chr ( 13 ) ) '233
                Response.Write ( "          <option style=""background-color:#FF0000;color: #FF0000"" value=""#FF0000"" " ) '234
                If AspToAspX_CheckDBNull ( titlecolor ) = "#FF0000" Then '234
                    Response.Write ( " selected" ) '234
                End If '234
                Response.Write ( ">#FF0000</option>" & Chr ( 13 ) ) '234
                Response.Write ( "          <option style=""background-color:#BC8F8F;color: #BC8F8F"" value=""#BC8F8F"" " ) '235
                If AspToAspX_CheckDBNull ( titlecolor ) = "#BC8F8F" Then '235
                    Response.Write ( " selected" ) '235
                End If '235
                Response.Write ( ">#BC8F8F</option>" & Chr ( 13 ) ) '235
                Response.Write ( "          <option style=""background-color:#4169E1;color: #4169E1"" value=""#4169E1"" " ) '236
                If AspToAspX_CheckDBNull ( titlecolor ) = "#4169E1" Then '236
                    Response.Write ( " selected" ) '236
                End If '236
                Response.Write ( ">#4169E1</option>" & Chr ( 13 ) ) '236
                Response.Write ( "          <option style=""background-color:#8B4513;color: #8B4513"" value=""#8B4513"" " ) '237
                If AspToAspX_CheckDBNull ( titlecolor ) = "#8B4513" Then '237
                    Response.Write ( " selected" ) '237
                End If '237
                Response.Write ( ">#8B4513</option>" & Chr ( 13 ) ) '237
                Response.Write ( "          <option style=""background-color:#FA8072;color: #FA8072"" value=""#FA8072"" " ) '238
                If AspToAspX_CheckDBNull ( titlecolor ) = "#FA8072" Then '238
                    Response.Write ( " selected" ) '238
                End If '238
                Response.Write ( ">#FA8072</option>" & Chr ( 13 ) ) '238
                Response.Write ( "          <option style=""background-color:#F4A460;color: #F4A460"" value=""#F4A460"" " ) '239
                If AspToAspX_CheckDBNull ( titlecolor ) = "#F4A460" Then '239
                    Response.Write ( " selected" ) '239
                End If '239
                Response.Write ( ">#F4A460</option>" & Chr ( 13 ) ) '239
                Response.Write ( "          <option style=""background-color:#2E8B57;color: #2E8B57"" value=""#2E8B57"" " ) '240
                If AspToAspX_CheckDBNull ( titlecolor ) = "#2E8B57" Then '240
                    Response.Write ( " selected" ) '240
                End If '240
                Response.Write ( ">#2E8B57</option>" & Chr ( 13 ) ) '240
                Response.Write ( "          <option style=""background-color:#A0522D;color: #A0522D"" value=""#A0522D"" " ) '241
                If AspToAspX_CheckDBNull ( titlecolor ) = "#A0522D" Then '241
                    Response.Write ( " selected" ) '241
                End If '241
                Response.Write ( ">#A0522D</option>" & Chr ( 13 ) ) '241
                Response.Write ( "          <option style=""background-color:#C0C0C0;color: #C0C0C0"" value=""#C0C0C0"" " ) '242
                If AspToAspX_CheckDBNull ( titlecolor ) = "#C0C0C0" Then '242
                    Response.Write ( " selected" ) '242
                End If '242
                Response.Write ( ">#C0C0C0</option>" & Chr ( 13 ) ) '242
                Response.Write ( "          <option style=""background-color:#87CEEB;color: #87CEEB"" value=""#87CEEB"" " ) '243
                If AspToAspX_CheckDBNull ( titlecolor ) = "#87CEEB" Then '243
                    Response.Write ( " selected" ) '243
                End If '243
                Response.Write ( ">#87CEEB</option>" & Chr ( 13 ) ) '243
                Response.Write ( "          <option style=""background-color:#6A5ACD;color: #6A5ACD"" value=""#6A5ACD"" " ) '244
                If AspToAspX_CheckDBNull ( titlecolor ) = "#6A5ACD" Then '244
                    Response.Write ( " selected" ) '244
                End If '244
                Response.Write ( ">#6A5ACD</option>" & Chr ( 13 ) ) '244
                Response.Write ( "          <option style=""background-color:#708090;color: #708090"" value=""#708090"" " ) '245
                If AspToAspX_CheckDBNull ( titlecolor ) = "#708090" Then '245
                    Response.Write ( " selected" ) '245
                End If '245
                Response.Write ( ">#708090</option>" & Chr ( 13 ) ) '245
                Response.Write ( "          <option style=""background-color:#4682B4;color: #4682B4"" value=""#4682B4"" " ) '246
                If AspToAspX_CheckDBNull ( titlecolor ) = "#4682B4" Then '246
                    Response.Write ( " selected" ) '246
                End If '246
                Response.Write ( ">#4682B4</option>" & Chr ( 13 ) ) '246
                Response.Write ( "          <option style=""background-color:#D2B48C;color: #D2B48C"" value=""#D2B48C"" " ) '247
                If AspToAspX_CheckDBNull ( titlecolor ) = "#D2B48C" Then '247
                    Response.Write ( " selected" ) '247
                End If '247
                Response.Write ( ">#D2B48C</option>" & Chr ( 13 ) ) '247
                Response.Write ( "          <option style=""background-color:#008080;color: #008080"" value=""#008080"" " ) '248
                If AspToAspX_CheckDBNull ( titlecolor ) = "#008080" Then '248
                    Response.Write ( " selected" ) '248
                End If '248