bbspoll.aspx.vb

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

        Response.Write ( "    <script LANGUAGE=""javascript"">" & Chr ( 13 ) ) '89
        Response.Write ( "<!--" & Chr ( 13 ) ) '90
        Response.Write ( "var onecount;" & Chr ( 13 ) ) '91
        Response.Write ( "onecount=0;" & Chr ( 13 ) ) '92
        Response.Write ( "var j;" & Chr ( 13 ) ) '93
        Response.Write ( "  " & Chr ( 13 ) ) '94
        Response.Write ( "subcat = new Array();" & Chr ( 13 ) ) '95
        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 totop asc" '97
        rsr_BBS_Cate = New ADODB.Recordset ( ) '98
        rsr_BBS_Cate.Open ( strsql , conn , 3 , 1 ) '99
        j = 0 '100
        Do While Not rsr_BBS_Cate.EOF '101
            Response.Write ( vbCrLf )
            Response.Write ( "subcat[" ) '103
            Response.Write ( j ) '103
            Response.Write ( "] = new Array(""" ) '103
            Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "Initial" ) .Value) & " " & AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_Name" ) .Value) ) '103
            Response.Write ( """,""" ) '103
            Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_PID" ) .Value) ) '103
            Response.Write ( """,""" ) '103
            Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_ID" ) .Value) ) '103
            Response.Write ( """);" & Chr ( 13 ) ) '103
            j = j + 1 '105
            rsr_BBS_Cate.MoveNext ( ) '106
        Loop '107
        rsr_BBS_Cate.Close ( ) '108
        rsr_BBS_Cate = Nothing '109
        Response.Write ( vbCrLf )
        Response.Write ( "onecount=" ) '111
        Response.Write ( j ) '111
        Response.Write ( ";" & Chr ( 13 ) ) '111
        Response.Write ( "function changelocation(locationid)" & Chr ( 13 ) ) '112
        Response.Write ( "    {" & Chr ( 13 ) ) '113
        Response.Write ( "    document.myform.BoardID_2.length = 0; " & Chr ( 13 ) ) '114
        Response.Write ( "    var locationid=locationid;" & Chr ( 13 ) ) '115
        Response.Write ( "    var i;" & Chr ( 13 ) ) '116
        Response.Write ( "    document.myform.BoardID_2.options[0] = new Option('==请选择==','');" & Chr ( 13 ) ) '117
        Response.Write ( "    for (i=0;i < onecount; i++)" & Chr ( 13 ) ) '118
        Response.Write ( "        {" & Chr ( 13 ) ) '119
        Response.Write ( "            if (subcat[i][1] == locationid)" & Chr ( 13 ) ) '120
        Response.Write ( "            { " & Chr ( 13 ) ) '121
        Response.Write ( "            document.myform.BoardID_2.options[document.myform.BoardID_2.length] = new Option(subcat[i][0], subcat[i][2]);" & Chr ( 13 ) ) '122
        Response.Write ( "            }        " & Chr ( 13 ) ) '123
        Response.Write ( "        }" & Chr ( 13 ) ) '124
        Response.Write ( "        " & Chr ( 13 ) ) '125
        Response.Write ( "    }" & Chr ( 13 ) ) '126
        Response.Write ( "//-->" & Chr ( 13 ) ) '127
        Response.Write ( "</script>" & Chr ( 13 ) ) '128
        Response.Write ( "    <TR> " & Chr ( 13 ) ) '129
        Response.Write ( "      <TD width=""16%"" height=""25"" class=""loopborder1""> <div align=""right"">主论坛：</div></TD>" & Chr ( 13 ) ) '130
        Response.Write ( "      <TD width=""84%"" height=""25"" class=""loopborder1""> <SELECT NAME=""BoardID_1"" onChange=""changelocation(document.myform.BoardID_1.options[document.myform.BoardID_1.selectedIndex].value)"">" & Chr ( 13 ) ) '131
        Response.Write ( "          <option value="""">==请选择==</option>" & Chr ( 13 ) ) '132
        Response.Write ( "          " ) '133
        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" '134
        rs_BBS_Cate = New ADODB.Recordset ( ) '135
        rs_BBS_Cate.Open ( AspToAspX_Str , conn , 1 , 1 ) '136
        Do While Not rs_BBS_Cate.EOF '137
            Response.Write ( vbCrLf )
            Response.Write ( "          <option value=""" ) '139
            Response.Write ( AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_ID" ) .Value) ) '139
            Response.Write ( """>" ) '139
            Response.Write ( AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_Name" ) .Value) ) '139
            Response.Write ( "</option>" & Chr ( 13 ) ) '139
            Response.Write ( "          " ) '140
            rs_BBS_Cate.MoveNext ( ) '141
        Loop '142
        rs_BBS_Cate.Close ( ) '143
        rs_BBS_Cate = Nothing '144
        Response.Write ( vbCrLf )
        Response.Write ( "        </SELECT> </TD>" & Chr ( 13 ) ) '146
        Response.Write ( "    </TR>" & Chr ( 13 ) ) '147
        Response.Write ( "    <TR> " & Chr ( 13 ) ) '148
        Response.Write ( "      <TD width=""16%"" height=""25"" class=""loopborder1""> <div align=""right"">分论坛：</div></TD>" & Chr ( 13 ) ) '149
        Response.Write ( "      <TD width=""84%"" height=""25"" class=""loopborder1""><SELECT NAME=""BoardID_2"">" & Chr ( 13 ) ) '150
        Response.Write ( "          <option value="""">==请选择==</option>" & Chr ( 13 ) ) '151
        Response.Write ( "        </SELECT> </TD>" & Chr ( 13 ) ) '152
        Response.Write ( "    </TR>" & Chr ( 13 ) ) '153
        Response.Write ( "    " ) '154
    Else '154
    Response.Write ( vbCrLf )
        Response.Write ( "    <TR class=""maintbtr1""> " & Chr ( 13 ) ) '155
        Response.Write ( "      <TD width=""16%""> <div align=""right""></div></TD>" & Chr ( 13 ) ) '156
        Response.Write ( "      <TD width=""84%""> <INPUT TYPE=""hidden"" name=""BoardID_1"" value=""" ) '157
        Response.Write ( BoardID_1 ) '157
        Response.Write ( """> " & Chr ( 13 ) ) '157
        Response.Write ( "        <INPUT TYPE=""hidden"" name=""BoardID_2"" value=""" ) '158
        Response.Write ( BoardID_2 ) '158
        Response.Write ( """> </TD>" & Chr ( 13 ) ) '158
        Response.Write ( "    </TR>" & Chr ( 13 ) ) '159
        Response.Write ( "    " ) '160
    End If '160
    Response.Write ( vbCrLf )
    Response.Write ( "    <TR> " & Chr ( 13 ) ) '161
    Response.Write ( "      <TD width=""16%"" height=""25"" class=""loopborder1""> <div align=""right"">主　题：</div></TD>" & Chr ( 13 ) ) '162
    Response.Write ( "      <TD width=""84%"" height=""25"" class=""loopborder1""> <input type=""text"" name=""title"" size=""55"" > </TD>" & Chr ( 13 ) ) '163
    Response.Write ( "    </TR>" & Chr ( 13 ) ) '164
    Response.Write ( "    <TR>" & Chr ( 13 ) ) '165
    Response.Write ( "      <TD width=""16%"" class=""loopborder1"" align=""right"">投　票：</TD>" & Chr ( 13 ) ) '166
    Response.Write ( "      <TD class=""loopborder1"">" & Chr ( 13 ) ) '167
    Response.Write ( "" & Chr ( 9 ) & "    <input name=tptype type=radio value=1 checked>" & Chr ( 13 ) ) '168
    Response.Write ( "        单选&nbsp;&nbsp;" & Chr ( 13 ) ) '169
    Response.Write ( "        <input name=tptype type=radio value=2>" & Chr ( 13 ) ) '170
    Response.Write ( "        多选 &nbsp;(每行一个投票项目,项目太少请点击<a href=""javascript:AddLabel('VoteList')"">添加项目</a>)<br>" & Chr ( 13 ) ) '171
    Response.Write ( "        <script language=""javascript"" type=""text/javascript"" src=""js/votelabel.js""></script>" & Chr ( 13 ) ) '172
    Response.Write ( "        <div id=""VoteList""></div>" & Chr ( 13 ) ) '173
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<script language=""javascript"" type=""text/javascript"">" & Chr ( 13 ) ) '174
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var MinCount=parseInt('2');//投票最小项目数" & Chr ( 13 ) ) '175
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var MaxCount=parseInt('20');//投票最大项目数" & Chr ( 13 ) ) '176
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var CurrentCount=0;" & Chr ( 13 ) ) '177
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var RealCount=0;" & Chr ( 13 ) ) '178
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "init();" & Chr ( 13 ) ) '179
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</script>" & Chr ( 13 ) ) '180
    Response.Write ( "        <font color=""#FF0000"">有效期</font> " & Chr ( 13 ) ) '181
    Response.Write ( "        <input name=""daynum"" type=""text"" id=""daynum"" size=""8"" onkeyup=""if(isNaN(this.value))this.value='7'"">" & Chr ( 13 ) ) '182
    Response.Write ( "        天(注:从发布之日起过了输入的天数后就失效)" & Chr ( 13 ) ) '183
    Response.Write ( "" & Chr ( 9 ) & "  </TD>" & Chr ( 13 ) ) '184
    Response.Write ( "    </TR>" & Chr ( 13 ) ) '185
    Response.Write ( "    <TR class=""maintbtr3""> " & Chr ( 13 ) ) '186
    Response.Write ( "      <TD class=""loopborder1""> <div align=""right"">内　容：</div></TD>" & Chr ( 13 ) ) '187
    Response.Write ( "      <TD height=300 class=""loopborder1"">" & Chr ( 13 ) ) '188
    Response.Write ( "<TEXTAREA type=""hidden"" rows=1 cols=1 name=""menu"" style=""position:absolute;left:0;visibility:hidden;""></textarea>" & Chr ( 13 ) ) '189
    Response.Write ( "<script type=""text/javascript"" src=""fteditor/editor.js""></script> " & Chr ( 13 ) ) '190
    Response.Write ( "<script type=""text/javascript"">" & Chr ( 13 ) ) '191
    Response.Write ( "var editor = new FtEditor(""editor"");" & Chr ( 13 ) ) '192
    Response.Write ( "editor.hiddenName = ""menu"";" & Chr ( 13 ) ) '193
    Response.Write ( "editor.editorWidth = ""100%"";" & Chr ( 13 ) ) '194
    Response.Write ( "editor.editorHeight = ""300px"";" & Chr ( 13 ) ) '195
    Response.Write ( "editor.show();" & Chr ( 13 ) ) '196
    Response.Write ( "</script>" & Chr ( 13 ) ) '197
    Response.Write ( "" & Chr ( 9 ) & "  </TD>" & Chr ( 13 ) ) '198
    Response.Write ( "    </TR>" & Chr ( 13 ) ) '199
    Response.Write ( "    <TR> " & Chr ( 13 ) ) '200
    Response.Write ( "      <TD width=""16%"" 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=""84%"" height=""28"" class=""loopborder1"">" & Chr ( 13 ) ) '204
    Response.Write ( "<IFRAME name=mqs marginWidth=0 marginHeight=0 src=FtbbsUpFile.aspx?filename=" ) '205
    Response.Write ( filename ) '205
    Response.Write ( " frameBorder=0 width=100% scrolling=no height=25></IFRAME>" & Chr ( 13 ) ) '205
    Response.Write ( "      </TD>" & Chr ( 13 ) ) '206
    Response.Write ( "    </TR>" & Chr ( 13 ) ) '207
    Response.Write ( "    <TR> " & Chr ( 13 ) ) '208
    Response.Write ( "      <TD width=""16%"" height=""25"" class=""loopborder1""> <div align=""right"">发布状态：</div></TD>" & Chr ( 13 ) ) '209
    Response.Write ( "      <TD width=""84%"" height=""25"" class=""loopborder1"">" & Chr ( 13 ) ) '210
    Response.Write ( "" & Chr ( 9 ) & "    <input type=radio name=ticon value=0.gif> <img src=images/0.gif width=19 height=19 > " & Chr ( 13 ) ) '211
    Response.Write ( "        <input type=radio name=ticon value=29.gif> <img src=images/29.gif width=19 height=19> " & Chr ( 13 ) ) '212
    Response.Write ( "        <input type=radio name=ticon value=30.gif> <img src=images/30.gif width=19 height=19> " & Chr ( 13 ) ) '213
    Response.Write ( "        <input type=radio name=ticon value=31.gif> <img src=images/31.gif width=19 height=19>" & Chr ( 13 ) ) '214
    Response.Write ( "        <input type=radio name=ticon value=34.gif> <img src=images/34.gif width=19 height=19> " & Chr ( 13 ) ) '215
    Response.Write ( "        <input type=radio name=ticon value=36.gif> <img src=images/36.gif width=19 height=19> " & Chr ( 13 ) ) '216
    Response.Write ( "        <input type=radio name=ticon value=37.gif> <img src=images/37.gif width=19 height=19> " & Chr ( 13 ) ) '217
    Response.Write ( "        <input type=radio name=ticon value=38.gif> <img src=images/38.gif width=19 height=19> " & Chr ( 13 ) ) '218
    Response.Write ( "        <input type=radio name=ticon value=39.gif> <img src=images/39.gif width=19 height=19> " & Chr ( 13 ) ) '219
    Response.Write ( "        <input type=radio name=ticon value=40.gif> <img src=images/40.gif width=19 height=19> " & Chr ( 13 ) ) '220
    Response.Write ( "        <input type=radio name=ticon value=41.gif> <img src=images/41.gif width=19 height=19> " & Chr ( 13 ) ) '221
    Response.Write ( "        <input type=radio name=ticon value=42.gif> <img src=images/42.gif width=19 height=19> " & Chr ( 13 ) ) '222
    Response.Write ( "        <input type=radio name=ticon value=43.gif> <img src=images/43.gif width=19 height=19> " & Chr ( 13 ) ) '223
    Response.Write ( "      </TD>" & Chr ( 13 ) ) '224
    Response.Write ( "    </TR>" & Chr ( 13 ) ) '225
    Response.Write ( "" & Chr ( 9 ) & "" ) '226
    If AspToAspX_CheckDBNull ( getcodeoff ) = 1 Then '226
    Response.Write ( vbCrLf )
        Response.Write ( "    <TR> " & Chr ( 13 ) ) '227
        Response.Write ( "      <TD width=""16%"" height=""25"" class=""loopborder1""> " & Chr ( 13 ) ) '228
        Response.Write ( "        <div align=""right"">验 证 码：</div>" & Chr ( 13 ) ) '229
        Response.Write ( "      </TD>" & Chr ( 13 ) ) '230
        Response.Write ( "      <TD width=""84%"" height=""25"" class=""loopborder1""><input name=codestr id=codestr type=text size=10 maxlength=4> " ) '231
        Response.Write ( getcode ) '231
        Response.Write ( "</TD>" & Chr ( 13 ) ) '231
        Response.Write ( "    </TR>" & Chr ( 13 ) ) '232
        Response.Write ( "" & Chr ( 9 ) & "" ) '233
    End If '233
    Response.Write ( vbCrLf )
    Response.Write ( "    <TR class=""maintbtr3""> " & Chr ( 13 ) ) '234
    Response.Write ( "      <TD height=""35"" colspan=2 align=center>" & Chr ( 13 ) ) '235
    Response.Write ( "" & Chr ( 9 ) & "    <input name=""bbs_img_display"" type=""hidden"" id=""bbs_img_display"">" & Chr ( 13 ) ) '236
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<input name=""bbs_img"" type=""hidden"" id=""bbs_img"">" & Chr ( 13 ) ) '237
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<input name=""sale"" type=""hidden"" id=""sale"">" & Chr ( 13 ) ) '238
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<input name=""CurrentMode"" type=""hidden"" id=""CurrentMode"">" & Chr ( 13 ) ) '239
    Response.Write ( "" & Chr ( 9 ) & "    <INPUT type=""hidden"" name=""FileName"" value=""" ) '240
    Response.Write ( Session ( "filename" ) ) '240
    Response.Write ( """>" & Chr ( 13 ) ) '240
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<INPUT type=""hidden"" name=""layer_1"" value=""" ) '241
    Response.Write ( BoardID_1 ) '241
    Response.Write ( """>" & Chr ( 13 ) ) '241
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<INPUT type=""hidden"" name=""layer_2"" value=""" ) '242
    Response.Write ( BoardID_2 ) '242
    Response.Write ( """>" & Chr ( 13 ) ) '242
    Response.Write ( "        <input type=""submit"" value=""发布话题"" name=""submit1"" " ) '243
    Response.Write ( postqs ) '243
    Response.Write ( " style=""height:25px;"">" & Chr ( 13 ) ) '243
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<input type=""button"" name=""Submit"" value=""恢复数据"" onClick=""FtSimpleExecute('paste');"" style=""height:25px;""> " & Chr ( 13 ) ) '244
    Response.Write ( "      </TD>" & Chr ( 13 ) ) '245
    Response.Write ( "    </TR>" & Chr ( 13 ) ) '246
    Response.Write ( "" & Chr ( 9 ) & "</form>" & Chr ( 13 ) ) '247
    Response.Write ( "  </TABLE>" & Chr ( 13 ) ) '248
    ASPX_INC_BBSTAIL_HTM.AspToAspX_Page_Init ( )
    conn.Close ( ) '251
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err: