index.aspx.vb

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

                    qssqlstr1 = qssqlstr1 & qssqlstrx '78
                Next '79
                qssqlstr1 = "" & qssqlstr1 '80
            Else '81
                qssqlstr1 = "Boardid_1<>'" & AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) & "' and Boardid_2<>'" & AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) & "'" '82
            End If '83
            strqs = qssqlstr1 & " and " '84
        End If '85
        qsrs.Close ( ) '86
        sql = "select top 5 * from " & ft & "bbstitle," & ft & "ftbbs_upload where " & ft & "bbstitle.htmfilename=" & ft & "ftbbs_upload.upload_htm and " & ft & "bbstitle.deleted=0 and " & ft & "ftbbs_upload.sign=3 and " & ft & "ftbbs_upload.bbs_blog_type=0 and (" & ft & "ftbbs_upload.upload_ext='jpg' or " & ft & "ftbbs_upload.upload_ext='gif') order by " & ft & "bbstitle.id desc" '88
        rs = New ADODB.Recordset ( ) '89
        rs.Open ( sql , conn , 3 , 1 ) '90
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<base target=""_blank"" />" & Chr ( 13 ) ) '92
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--主栏目1开始-->" & Chr ( 13 ) ) '93
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""width780"" id=""MainBody"">" & Chr ( 13 ) ) '94
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MbLeft"">" & Chr ( 13 ) ) '95
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div id=""slideimg"">" & Chr ( 13 ) ) '96
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<script type=""text/javascript"" language=""javascript"">" & Chr ( 13 ) ) '97
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '98
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var xsTextBar = 1; //是否显示文字链接，1为显示，0为不显示" & Chr ( 13 ) ) '99
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var xsPlayBtn = 0; //是否显示播放按钮，1显示，0为不显示" & Chr ( 13 ) ) '100
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var xsImgSize = new Array(214,235); //幻灯图片的尺寸，格式为" & Chr ( - 24144 ) & "宽度,高度" & Chr ( - 24143 ) & "" & Chr ( 13 ) ) '101
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var xsImgs = new Array();" & Chr ( 13 ) ) '102
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var xsImgLinks = new Array();" & Chr ( 13 ) ) '103
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var xsImgTexts = new Array();" & Chr ( 13 ) ) '104
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '105
        i = 0 '106
        If Not rs.EOF Then '107
            Do While Not rs.EOF '108
            If AspToAspX_CheckDBNull ( i ) > 4 Then
Exit Do
End If
    '109
                Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "xsImgs[" ) '111
                Response.Write ( i ) '111
                Response.Write ( "] = """ ) '111
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_pic" ) .Value) ) '111
                Response.Write ( """;" & Chr ( 13 ) ) '111
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "xsImgLinks[" ) '112
                Response.Write ( i ) '112
                Response.Write ( "] = """ ) '112
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_htm" ) .Value) ) '112
                Response.Write ( """;" & Chr ( 13 ) ) '112
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "xsImgTexts[" ) '113
                Response.Write ( i ) '113
                Response.Write ( "] = """ ) '113
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) '113
                Response.Write ( """;" & Chr ( 13 ) ) '113
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '114
                i = i + 1 '115
                rs.MoveNext ( ) '116
            Loop '117
            rs.Close ( ) '118
        End If '119
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "//-->" & Chr ( 13 ) ) '121
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</script>" & Chr ( 13 ) ) '122
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<script language=""javascript"" type=""text/javascript"" src=""js/slide.js""></script>" & Chr ( 13 ) ) '123
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '124
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div id=""TodayStar"" class=""TodayStar"">" & Chr ( 13 ) ) '125
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><img alt="""" src=""blogimages/star.gif"" width=""32"" height=""23"" align=""middle"" />最新公告</h1>" & Chr ( 13 ) ) '126
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""TodayStarPicBlock"">" & Chr ( 13 ) ) '127
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '128
        sql = "select top 5 title,htmfilename,titlecolor from " & ft & "bbstitle where boardsign=1 order by id desc" '129
        rs = New ADODB.Recordset ( ) '130
        rs.Open ( sql , conn , 3 , 1 ) '131
        i = 0 '132
        Do While Not rs.EOF '133
        If AspToAspX_CheckDBNull ( i ) > = 5 Then
Exit Do
End If
    '134
            title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '135
            titlecolor = AspToAspX_CheckDBNull(rs.Fields ( "titlecolor" ) .Value) '136
            If AspToAspX_CheckDBNull ( titlecolor ) < > EmptyString.Value Then '137
                title = "<font color=" & titlecolor & ">" & title & "</font>" '138
            End If '139
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div><a href=""" ) '141
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '141
            Response.Write ( """ title=""" ) '141
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) '141
            Response.Write ( """>" ) '141
            Response.Write ( i + 1 ) '141
            Response.Write ( "." ) '141
            Response.Write ( title ) '141
            Response.Write ( "</a></div>" & Chr ( 13 ) ) '141
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '142
            i = i + 1 '143
            rs.MoveNext ( ) '144
        Loop '145
        rs.Close ( ) '146
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '148
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '149
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '150
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MbCenter"">" & Chr ( 13 ) ) '151
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--站内搜索开始-->" & Chr ( 13 ) ) '152
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""SearchForm"">" & Chr ( 13 ) ) '153
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<form method=""post"" action=""default.aspx"" style=""display: inline;"" target=""_self"">" & Chr ( 13 ) ) '154
        Response.Write ( "        <input name=""searchcontent"" type=""text"" size=""36"" />" & Chr ( 13 ) ) '155
        Response.Write ( "        <select name=""searchkind"" style=""background-color:#ffffff;FONT-FAMILY: Arial; FONT-SIZE: 9pt; FONT-STYLE: normal; WIDTH: 65px"">" & Chr ( 13 ) ) '156
        Response.Write ( "                  <option value=""title"" selected>按主题</option>" & Chr ( 13 ) ) '157
        Response.Write ( "                  <option value=""user_id"" >按作者</option>" & Chr ( 13 ) ) '158
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""menu"" >按内容</option>" & Chr ( 13 ) ) '159
        Response.Write ( "                </select>" & Chr ( 13 ) ) '160
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</span>" & Chr ( 13 ) ) '161
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</span>" & Chr ( 13 ) ) '162
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button name=""loginsubmit"" type=""submit"" value=""true""><span class=""search"">Search</span></button>" & Chr ( 13 ) ) '163
        Response.Write ( "      </form>" & Chr ( 13 ) ) '164
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '165
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--站内搜索结束-->" & Chr ( 13 ) ) '166
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--最新发表开始-->" & Chr ( 13 ) ) '167
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""TitleMore"">" & Chr ( 13 ) ) '168
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""left""><img src=""blogimages/green_arrow.gif"" align=""middle"" />" & Chr ( 13 ) ) '169
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " <a class=""menu"" href=""default.aspx"" target=""_self"" title=""查看更多"">最新贴子</a></div>" & Chr ( 13 ) ) '170
        Response.Write ( "                 <div class=""right""><a class=""menu"" href=""default.aspx"" target=""_self"" title=""更多"">更多</a></div>" & Chr ( 13 ) ) '171
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '172
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NewlyPost"">" & Chr ( 13 ) ) '173
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NewlyPostList"">" & Chr ( 13 ) ) '174
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '175
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '176
        sql = "select top 15 id,title,htmfilename,dateh,redate,titlecolor from " & ft & "bbstitle where deleted=0 order by redate desc" '177
        rs = New ADODB.Recordset ( ) '178
        rs.Open ( sql , conn , 3 , 1 ) '179
        m = 0 '180
        Do While Not rs.EOF '181
        If AspToAspX_CheckDBNull ( m ) > = 15 Then
Exit Do
End If
    '182
            title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '183
            titlecolor = AspToAspX_CheckDBNull(rs.Fields ( "titlecolor" ) .Value) '184
            If AspToAspX_CheckDBNull ( titlecolor ) < > EmptyString.Value Then '185
                title = "<font color=" & titlecolor & ">" & title & "</font>" '186
            End If '187
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li class=""topth""><em>" ) '189
            Response.Write ( formatdate ( AspToAspX_CheckDBNull(rs.Fields ( "redate" ) .Value) ) ) '189
            Response.Write ( "</em>·<a title=""" ) '189
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) '189
            Response.Write ( """ href=""" ) '189
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '189
            Response.Write ( """ target=""_blank"">" ) '189
            Response.Write ( title ) '189
            Response.Write ( "</a></li>" & Chr ( 13 ) ) '189
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '190
            m = m + 1 '191
            rs.MoveNext ( ) '192
        Loop '193
        rs.Close ( ) '194
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '196
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '197
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '198
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--最新发表结束-->" & Chr ( 13 ) ) '199
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '200
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MbRight"">" & Chr ( 13 ) ) '201
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div id=""MemberLogin"" class=""MemberLogin"">" & Chr ( 13 ) ) '202
        If AspToAspX_CheckDBNull ( getcookie ( "name" ) ) = EmptyString.Value Then '204
            FTBBS_HTML_MB ( ft ) '205
            getcodeoff = Application ( "FTBBSMB" ) ( 30 , 0 ) '206
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<form method=""post"" action=""userlogin.aspx?flag=Y"" target=""_top"" style=""display: inline;"">" & Chr ( 13 ) ) '208
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""height: 22px;""></div>" & Chr ( 13 ) ) '209
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MemberName"">" & Chr ( 13 ) ) '210
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span>用户名</span>&nbsp;&nbsp;&nbsp;&nbsp;<input name=""bbsuser"" type=""text"" size=""8"" style=""width:90px"" />" & Chr ( 13 ) ) '211
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '212
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MemberPassword"">" & Chr ( 13 ) ) '213
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span>密　码</span>&nbsp;&nbsp;&nbsp;&nbsp;<input name=""password"" type=""password"" size=""8"" style=""width:90px"" />" & Chr ( 13 ) ) '214
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '215
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '216
            If AspToAspX_CheckDBNull ( getcodeoff ) = 1 And AspToAspX_CheckDBNull ( Session ( "errorlogin" ) ) > = 3 Then '216
            Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ValidateCode"">" & Chr ( 13 ) ) '217
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span>验证码</span>&nbsp;&nbsp;&nbsp;&nbsp;<input name=""codestr"" type=""text"" size=""3"" />&nbsp;" ) '218
                Response.Write ( getcode ) '218
                Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '219
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '220
            End If '220
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MemberOptions"">" & Chr ( 13 ) ) '221
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span>保　存</span>&nbsp;&nbsp;&nbsp;<span class=""outbdr2""><span>" & Chr ( 13 ) ) '222
            Response.Write ( "          <select name=""ckies"" id=""ckies"" style=""width:91px"">" & Chr ( 13 ) ) '223
            Response.Write ( "            <option value=""0"" selected=""selected"">不保存</option>" & Chr ( 13 ) ) '224