bkindex.aspx.vb

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

    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "cliImg = ci;" & Chr ( 13 ) ) '114
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "cliImgSrc = ci.src;" & Chr ( 13 ) ) '115
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "ci.src = numimg[n];" & Chr ( 13 ) ) '116
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "} else if(cliImg != ci) {" & Chr ( 13 ) ) '117
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "cliImg.src = cliImgSrc;" & Chr ( 13 ) ) '118
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "cliImg = ci;" & Chr ( 13 ) ) '119
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "cliImgSrc = ci.src;" & Chr ( 13 ) ) '120
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "ci.src = numimg[n];" & Chr ( 13 ) ) '121
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '122
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '123
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "window.onload = rotateStart;" & Chr ( 13 ) ) '124
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "//-->" & Chr ( 13 ) ) '125
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</script>" & Chr ( 13 ) ) '126
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<base target=""_blank"" />" & Chr ( 13 ) ) '127
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--主栏目1开始-->" & Chr ( 13 ) ) '128
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""width780"" id=""MainBody"">" & Chr ( 13 ) ) '129
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MbLeft"">" & Chr ( 13 ) ) '130
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""TodayRecommend""><a onFocus=""this.blur()"" href=""#"" target=""_top"" id=""RollUrl"" name=""RollUrl""><img alt=""""  src=""blogimages/000.gif"" name=""RollImg"" width=""208"" height=""225"" border=""0"" style1=""filter: blendTrans(duration=1);"" /></a></div>" & Chr ( 13 ) ) '131
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""PicButton""><img alt="""" src=""blogimages/new1.gif"" /><img alt="""" onClick=""chki(this,0);"" src=""blogimages/01.gif"" border=""0"" id=""num_img0"" /><img alt="""" onClick=""chki(this,1);"" src=""blogimages/02.gif"" border=""0"" id=""num_img1"" /><img alt="""" onClick=""chki(this,2)"" src=""blogimages/03.gif"" border=""0"" id=""num_img2"" /><img alt="""" onClick=""chki(this,3);"" src=""blogimages/04.gif"" border=""0"" id=""num_img3"" /><img alt="""" onClick=""chki(this,4);"" src=""blogimages/05.gif"" border=""0"" id=""num_img4"" /></div>" & Chr ( 13 ) ) '132
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div id=""TodayStar"" class=""TodayStar"">" & Chr ( 13 ) ) '133
    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 ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""TodayStarPicBlock"">" & Chr ( 13 ) ) '134
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '135
    sql = "select top 2 clubuser_id,clubuser_name,userimg from " & ft & "clubuser where bokeer=1 order by clubuser_id desc" '136
    rs = New ADODB.Recordset ( ) '137
    rs.Open ( sql , conn , 3 , 1 ) '138
    Do While Not rs.EOF '139
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""TodayStarPic"">" & Chr ( 13 ) ) '141
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""home.aspx?userid=" ) '142
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '142
        Response.Write ( """><img alt="""" src=""userheadimg/" ) '142
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) '142
        Response.Write ( """ width=""89"" height=""75"" border=""0"" /></a><div><a href=""home.aspx?userid=" ) '142
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '142
        Response.Write ( """>" ) '142
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '142
        Response.Write ( "</a></div>" & Chr ( 13 ) ) '142
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '143
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '144
        rs.MoveNext ( ) '145
    Loop '146
    rs.Close ( ) '147
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '149
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '150
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '151
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MbCenter"">" & Chr ( 13 ) ) '152
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--站内搜索开始-->" & Chr ( 13 ) ) '153
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""SearchForm"">" & Chr ( 13 ) ) '154
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<form method=""post"" action=""blogsearch.aspx"" onSubmit=""this.action = 'blogsearch.'+(parseInt(this.stype.options[this.stype.selectedIndex].value)+1)+'.aspx'"" style=""display: inline;"" target=""_self"">" & Chr ( 13 ) ) '155
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<input name=""searchword"" type=""text"" size=""18"" /><input type=""radio"" name=""fieldstr"" value=""blogtitle"" checked=""true"">标题<input type=""radio"" name=""fieldstr"" value=""blogcontent"">内容" & Chr ( 13 ) ) '156
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""outbdr"">" & Chr ( 13 ) ) '157
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span>" & Chr ( 13 ) ) '158
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<select name=""stype"">" & Chr ( 13 ) ) '159
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<option value=""0"">文章</option>" & Chr ( 13 ) ) '160
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<option value=""1"">相册</option>" & Chr ( 13 ) ) '161
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</select>" & Chr ( 13 ) ) '162
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</span>" & Chr ( 13 ) ) '163
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</span>" & Chr ( 13 ) ) '164
    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 ) ) '165
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</form>" & Chr ( 13 ) ) '166
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '167
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--站内搜索结束-->" & Chr ( 13 ) ) '168
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--最新发表开始-->" & Chr ( 13 ) ) '169
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NewlyPost"">" & Chr ( 13 ) ) '170
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h3><img alt="""" src=""blogimages/green_arrow.gif"" align=""middle"" />最新发表</h3>" & Chr ( 13 ) ) '171
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NewlyPostList"">" & Chr ( 13 ) ) '172
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '173
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '174
    sql = "select top 15 id,blogtitle,blogtypeid,userid,writedate from " & ft & "ftblog order by id desc" '175
    rs = New ADODB.Recordset ( ) '176
    rs.Open ( sql , conn , 3 , 1 ) '177
    Do While Not rs.EOF '178
        title = AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) '179
        If AspToAspX_Len ( title ) > 19 Then '180
            title = left ( title , 18 ) & "..." '181
        End If '182
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li class=""topth""><em>" ) '184
        Response.Write ( formatdate ( AspToAspX_CheckDBNull(rs.Fields ( "writedate" ) .Value) ) ) '184
        Response.Write ( "</em>·<a title=""" ) '184
        Response.Write ( title ) '184
        Response.Write ( """ href=""myblog.aspx?id=" ) '184
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '184
        Response.Write ( "&userid=" ) '184
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '184
        Response.Write ( "&blogtypeid=" ) '184
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtypeid" ) .Value) ) '184
        Response.Write ( """ target=""_blank"">" ) '184
        Response.Write ( title ) '184
        Response.Write ( "</a></li>" & Chr ( 13 ) ) '184
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '185
        rs.MoveNext ( ) '186
    Loop '187
    rs.Close ( ) '188
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '190
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '191
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '192
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--最新发表结束-->" & Chr ( 13 ) ) '193
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '194
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MbRight"">" & Chr ( 13 ) ) '195
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div id=""MemberLogin"" class=""MemberLogin"">" & Chr ( 13 ) ) '196
    If AspToAspX_CheckDBNull ( getcookie ( "name" ) ) = EmptyString.Value Then '197
    Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<form method=""post"" action=""bloglogin.aspx"" target=""_top"" style=""display: inline;"">" & Chr ( 13 ) ) '198
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""height: 22px;""></div>" & Chr ( 13 ) ) '199
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MemberName"">" & Chr ( 13 ) ) '200
        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 ) ) '201
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '202
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MemberPassword"">" & Chr ( 13 ) ) '203
        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 ) ) '204
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '205
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '206
        If AspToAspX_CheckDBNull ( Session ( "errorlogin" ) ) > = 3 Then '206
        Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ValidateCode"">" & Chr ( 13 ) ) '207
            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;" ) '208
            Response.Write ( getcode ) '208
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '209
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '210
        End If '210
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MemberOptions"">" & Chr ( 13 ) ) '211
        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 ) ) '212
        Response.Write ( "          <select name=""ckies"" id=""ckies"" style=""width:91px"">" & Chr ( 13 ) ) '213
        Response.Write ( "            <option value=""0"" selected=""selected"">不保存</option>" & Chr ( 13 ) ) '214
        Response.Write ( "            <option value=""1"">保存一天</option>" & Chr ( 13 ) ) '215
        Response.Write ( "            <option value=""30"">保存一月</option>" & Chr ( 13 ) ) '216
        Response.Write ( "            <option value=""365"">保存一年</option>" & Chr ( 13 ) ) '217
        Response.Write ( "          </select></span></span>" & Chr ( 13 ) ) '218
        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 ) & "<div style=""height: 6px;""></div>" & Chr ( 13 ) ) '220
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""LoginButton"">" & Chr ( 13 ) ) '221
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""submit"" value=""true"" style=""width: 40px;"">登录</button>&nbsp;&nbsp;" & Chr ( 13 ) ) '222
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""button"" value=""true"" onClick=""javascript:window.location.href='default.aspx?n=regist'"" style=""width: 90px;"">开通我的空间</button>" & Chr ( 13 ) ) '223
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '224
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</form>" & Chr ( 13 ) ) '225
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '226
    Else '228
        sql = "SELECT top 1 clubuser_id,clubuser_name,jingyuan,postnum,clubuser_reg_date,clubuser_enter_count,bokeer FROM " & ft & "clubuser where clubuser_name='" & getcookie ( "name" ) & "'" '229
        rsx = New ADODB.Recordset ( ) '230
        rsx.Open ( sql , conn , 1 , 1 ) '231
        userid = AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_id" ) .Value) '232
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""height: 22px;""></div>" & Chr ( 13 ) ) '234
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style="" margin:0px; padding:0px 0px 0px 15px; line-height:18px; height:98px;"">" & Chr ( 13 ) ) '235
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "欢迎" ) '236
        Response.Write ( getcookie ( "name" ) ) '236
        Response.Write ( "的到来 <br />" & Chr ( 13 ) ) '236
        Response.Write ( "      用户积分：" ) '237
        Response.Write ( AspToAspX_CheckDBNull(rsx.Fields ( "jingyuan" ) .Value) ) '237
        Response.Write ( " <br />" & Chr ( 13 ) ) '237
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "发贴数量：" ) '238
        Response.Write ( AspToAspX_CheckDBNull(rsx.Fields ( "postnum" ) .Value) ) '238
        Response.Write ( " <br />" & Chr ( 13 ) ) '238
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "登录次数：" ) '239
        Response.Write ( AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_enter_count" ) .Value) ) '239
        Response.Write ( " <br />" & Chr ( 13 ) ) '239
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "注册时间：" ) '240
        Response.Write ( formatdatetime ( AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_reg_date" ) .Value) , 2 ) ) '240
        Response.Write ( " " & Chr ( 13 ) ) '240
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '241
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""height: 1px;""></div>" & Chr ( 13 ) ) '242
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""LoginButton"">" & Chr ( 13 ) ) '243
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""button"" value=""true"" onClick=""javascript:window.location.href='default.aspx?n=userinfo'"" style=""width: 40px;"">修改</button>&nbsp;&nbsp;" & Chr ( 13 ) ) '244
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '245
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsx.Fields ( "bokeer" ) .Value) ) = 1 Then '245
        Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""button"" value=""true"" onClick=""javascript:window.location.href='usercenter.aspx?userid=" ) '246
            Response.Write ( userid ) '246
            Response.Write ( "'"" style=""width: 90px;"">进入我的空间</button>" & Chr ( 13 ) ) '246
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '247
        Else '247
        Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""button"" value=""true"" onClick=""javascript:window.location.href='isboker.aspx'"" style=""width: 90px;"">激活我的空间</button>" & Chr ( 13 ) ) '248
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "    " ) '249
        End If '249
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '250
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '251
        rsx.Close ( ) '253
    End If '254
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""HotSpace"">" & Chr ( 13 ) ) '256
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h3>个人空间排行</h3>" & Chr ( 13 ) ) '257
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '258
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '259
    sql = "select top 10 clubuser_id,clubuser_name from " & ft & "clubuser where bokeer=1 order by homepagehits desc" '260
    rs = New ADODB.Recordset ( ) '261
    rs.Open ( sql , conn , 3 , 1 ) '262
    m = 0 '263
    Do While Not rs.EOF '264
    If AspToAspX_CheckDBNull ( m ) > = 10 Then
Exit Do
End If
    '265
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li><img alt="""" src=""images/ftbbs_img_" ) '267
        Response.Write ( m + 1 ) '267
        Response.Write ( ".gif"" /> <a title=""" ) '267
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '267
        Response.Write ( "的个人空间"" href=""home.aspx?userid=" ) '267
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '267
        Response.Write ( """>" ) '267