usercenter.aspx.vb

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

        Response.Write ( "                        <td>&nbsp;</td>" & Chr ( 13 ) ) '86
        Response.Write ( "                      </tr>" & Chr ( 13 ) ) '87
        Response.Write ( "                    </table></td>" & Chr ( 13 ) ) '88
        Response.Write ( "                </tr>" & Chr ( 13 ) ) '89
        Response.Write ( "                <tr> " & Chr ( 13 ) ) '90
        Response.Write ( "                  <td height=""25"" align=""center""> " & Chr ( 13 ) ) '91
        Response.Write ( "                    <div class=""opt""><A href=""photomanage.aspx"">设置形象照</A></div></td>" & Chr ( 13 ) ) '92
        Response.Write ( "                </tr>" & Chr ( 13 ) ) '93
        Response.Write ( "              </table>" & Chr ( 13 ) ) '94
        Response.Write ( "              <br>" & Chr ( 13 ) ) '95
        Response.Write ( "              <table width=""96%""  border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '96
        Response.Write ( "                <tr> " & Chr ( 13 ) ) '97
        Response.Write ( "                  <td height=""35"" align=""center""  class=new14> " & Chr ( 13 ) ) '98
        Response.Write ( "                    <div class=""opt""><strong>您的个人博客网址:　<A href=""" ) '99
        Response.Write ( url ) '99
        Response.Write ( "home.aspx?userid=" ) '99
        Response.Write ( getcookie ( "clubuser_id" ) ) '99
        Response.Write ( """>" ) '99
        Response.Write ( url ) '99
        Response.Write ( "home.aspx?userid=" ) '99
        Response.Write ( getcookie ( "clubuser_id" ) ) '99
        Response.Write ( "</A></strong></div></td>" & Chr ( 13 ) ) '99
        Response.Write ( "                </tr>" & Chr ( 13 ) ) '100
        Response.Write ( "                <tr> " & Chr ( 13 ) ) '101
        Response.Write ( "                  <td height=""35"" > " & Chr ( 13 ) ) '102
        Response.Write ( "                    <div align=""center"">" & Chr ( 13 ) ) '103
        Response.Write ( "                      <form name=""form1"" method=""post"" action="""">" & Chr ( 13 ) ) '104
        Response.Write ( "                        背景音乐: " & Chr ( 13 ) ) '105
        Response.Write ( "                        <input name=""blogmid"" type=""text"" value=""" ) '106
        Response.Write ( blog_mid ) '106
        Response.Write ( """ size=""40"">" & Chr ( 13 ) ) '106
        Response.Write ( "                        <input type=""submit"" name=""Submit"" value=""更换背景音乐"">" & Chr ( 13 ) ) '107
        Response.Write ( "                      </form>" & Chr ( 13 ) ) '108
        Response.Write ( "                    </div></td>" & Chr ( 13 ) ) '109
        Response.Write ( "                </tr>" & Chr ( 13 ) ) '110
        Response.Write ( "                <tr> " & Chr ( 13 ) ) '111
        Response.Write ( "                  <td height=""35"" align=""center""  class=new14> " & Chr ( 13 ) ) '112
        Response.Write ( "                    <div class=""opt"">个人空间中的背景音乐只支持绝对地址如：<span style=""font-size: 12px"">http://www.ftbbs.cn/xxx.wma</span></div></td>" & Chr ( 13 ) ) '113
        Response.Write ( "                </tr>" & Chr ( 13 ) ) '114
        Response.Write ( "                <tr> " & Chr ( 13 ) ) '115
        Response.Write ( "                  <td height=""35"" > " & Chr ( 13 ) ) '116
        Response.Write ( "                    <div align=""center""><SPAN " & Chr ( 13 ) ) '117
        Response.Write ( "style=""FONT-WEIGHT: normal; FONT-SIZE: 12px"">为便于记忆，请将您的主页网址填入QQ或MSN的个人资料中。</SPAN></div></td>" & Chr ( 13 ) ) '118
        Response.Write ( "                </tr>" & Chr ( 13 ) ) '119
        Response.Write ( "              </table>" & Chr ( 13 ) ) '120
        Response.Write ( "              <br>" & Chr ( 13 ) ) '121
        sql = "select count(id) as k from " & ft & "sms where accepter='" & getcookie ( "name" ) & "' and IsNew=0" '123
        rs1 = conn.Execute ( sql ) '124
        smsnum = AspToAspX_CheckDBNull(rs1.Fields ( "k" ) .Value) '125
        rs1.Close ( ) '126
        Response.Write ( vbCrLf )
        Response.Write ( "              <table width=""96%""  border=""0"" cellpadding=""1"" cellspacing=""1"" >" & Chr ( 13 ) ) '128
        Response.Write ( "                <tr> " & Chr ( 13 ) ) '129
        Response.Write ( "                  <td width=""12%"" height=""30"" class=new14>" & Chr ( 13 ) ) '130
        Response.Write ( "<div align=""left"">收件箱</div></td>" & Chr ( 13 ) ) '131
        Response.Write ( "                  <td width=""88%"" class=new14><div class=""opt"">你收件箱有 <font color=red>" ) '132
        Response.Write ( smsnum ) '132
        Response.Write ( "</font> " & Chr ( 13 ) ) '132
        Response.Write ( "                      条信息 (<a href=""blogsms.aspx"">查看信息</a>)</div></td>" & Chr ( 13 ) ) '133
        Response.Write ( "                </tr>" & Chr ( 13 ) ) '134
        Response.Write ( "                <tr> " & Chr ( 13 ) ) '135
        Response.Write ( "                  <td height=""30"" class=new14>" & Chr ( 13 ) ) '136
        Response.Write ( "<div align=""left"">人气指数</div></td>" & Chr ( 13 ) ) '137
        Response.Write ( "                  <td class=new14> " & Chr ( 13 ) ) '138
        Response.Write ( "                    " ) '139
    If IsDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "homepagehits" ) .Value) ) Then
Response.Write ( 0 )
Else
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "homepagehits" ) .Value) )
End If
    '139
    Response.Write ( vbCrLf )
        Response.Write ( "                  </td>" & Chr ( 13 ) ) '140
        Response.Write ( "                </tr>" & Chr ( 13 ) ) '141
        Response.Write ( "                <!--<tr bgcolor=""E5ECF8""> " & Chr ( 13 ) ) '142
        Response.Write ( "                  <td height=""60"" bgcolor=""E5ECF8"" class=new14><div align=""center"">空间信息</div></td>" & Chr ( 13 ) ) '143
        Response.Write ( "                  <td bgcolor=""E5ECF8"" class=new14>总共空间大小: " & Chr ( 13 ) ) '144
        Response.Write ( "                    " ) '145
    If IsDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "spacesize" ) .Value) ) Then
Response.Write ( 50 )
Else
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "spacesize" ) .Value) )
End If
    '145
    Response.Write ( vbCrLf )
        Response.Write ( "                    KB<br>" & Chr ( 13 ) ) '146
        Response.Write ( "                    您已经使用 " ) '147
        Response.Write ( nspace ) '147
        Response.Write ( " KB 剩余 <font color=""#FF0000"">" ) '147
        Response.Write ( yspace ) '147
        Response.Write ( "</font> " & Chr ( 13 ) ) '147
        Response.Write ( "                    KB<br> </td>" & Chr ( 13 ) ) '148
        Response.Write ( "                </tr>-->" & Chr ( 13 ) ) '149
        Response.Write ( "              </table>" & Chr ( 13 ) ) '150
        Response.Write ( "              <br>" & Chr ( 13 ) ) '151
        Response.Write ( "              <table width=""96%""  border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '152
        Sql = "SELECT top 10 * FROM " & ft & "BBS_Cate," & ft & "bbstitle where " & ft & "BBS_Cate.BBS_Cate_ID = " & ft & "bbstitle.BoardID_2 and " & ft & "bbstitle.deleted=0 and " & ft & "bbstitle.huati=1 order by " & ft & "bbstitle.redate desc" '154
        rs = New ADODB.Recordset ( ) '155
        rs.Open ( Sql , conn , 1 , 1 ) '156
        Do While Not rs.EOF '157
            id = AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) '158
            title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '159
            boardid_1 = AspToAspX_CheckDBNull(rs.Fields ( "boardid_1" ) .Value) '160
            boardid_2 = AspToAspX_CheckDBNull(rs.Fields ( "boardid_2" ) .Value) '161
            BBS_Cate_Name = AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) '162
            htmfilename = AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) '163
            tk1 = "default.aspx?a=" & boardid_1 & "&b=" & boardid_2 '164
            Response.Write ( vbCrLf )
            Response.Write ( "                <tr> " & Chr ( 13 ) ) '166
            Response.Write ( "                  <td height=""25""  align=""left""><LI>" & Chr ( 13 ) ) '167
            Response.Write ( "                      <div class=""opt""><a class=new14 href=""" ) '168
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '168
            Response.Write ( """ target=""_blank"">论坛热贴：" ) '168
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) '168
            Response.Write ( "</a> " & Chr ( 13 ) ) '168
            Response.Write ( "                        [<a class=new14 href=""default.aspx?a=" ) '169
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "boardid_1" ) .Value) ) '169
            Response.Write ( "&b=" ) '169
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "boardid_2" ) .Value) ) '169
            Response.Write ( """>进入论坛</a>]</div>" & Chr ( 13 ) ) '169
            Response.Write ( "                    </LI>" & Chr ( 13 ) ) '170
            Response.Write ( "                  </td>" & Chr ( 13 ) ) '171
            Response.Write ( "                </tr>" & Chr ( 13 ) ) '172
            Response.Write ( "                " ) '173
            rs.MoveNext ( ) '174
        Loop '175
        rs.Close ( ) '176
        rs = Nothing '177
        Response.Write ( vbCrLf )
        Response.Write ( "              </table>" & Chr ( 13 ) ) '179
        Response.Write ( "              <table width=""96%""  border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '180
        Response.Write ( "                <tr> " & Chr ( 13 ) ) '181
        Response.Write ( "                  <td width=""16%"" height=""30"" ><div align=""left"">随机推荐博客</div></td>" & Chr ( 13 ) ) '182
        Response.Write ( "                  <td width=""84%"" height=""30"" > " & Chr ( 13 ) ) '183
        Response.Write ( "                    <div align=""right""> &nbsp; </div></td>" & Chr ( 13 ) ) '184
        Response.Write ( "                </tr>" & Chr ( 13 ) ) '185
        Response.Write ( "                <tr valign=""top""> " & Chr ( 13 ) ) '186
        Response.Write ( "                  <td height=""120"" colspan=""2""> " & Chr ( 13 ) ) '187
        Response.Write ( "                    <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '188
        Response.Write ( "                      <tr>" & Chr ( 13 ) ) '189
        sql = "select top 2 clubuser_id,clubuser_name,userimg,homepagetitle from " & ft & "clubuser where bokeer=1" '191
        rs = New ADODB.Recordset ( ) '192
        rs.Open ( sql , conn , 1 , 1 ) '193
        If Not rs.EOF Then '194
            Do While Not rs.EOF '195
                If IsDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) Then '196
                    headimg = "blogimages/nophoto.gif" '197
                Else '198
                    headimg = "userheadimg/" & AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) '199
                End If '200
                Response.Write ( vbCrLf )
                Response.Write ( "                        <td> " & Chr ( 13 ) ) '202
                Response.Write ( "                          <table width=""100%""  border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '203
                Response.Write ( "                            <tr> " & Chr ( 13 ) ) '204
                Response.Write ( "                              <td width=""32%"" rowspan=""2""><div align=""center""><img src=""" ) '205
                Response.Write ( headimg ) '205
                Response.Write ( """ width=""84"" height=""84""></div><br></td>" & Chr ( 13 ) ) '205
                Response.Write ( "                              <td width=""68%"" height=""23""><div class=""opt""><a href=""home.aspx?userid=" ) '206
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '206
                Response.Write ( """ target=""_blank"">" ) '206
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '206
                Response.Write ( "</a></div></td>" & Chr ( 13 ) ) '206
                Response.Write ( "                            </tr>" & Chr ( 13 ) ) '207
                Response.Write ( "                            <tr> " & Chr ( 13 ) ) '208
                Response.Write ( "                              <td valign=""top"">" ) '209
        If IsDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "homepagetitle" ) .Value) ) Then
Response.Write ( "这家伙很懒什么没有填写" )
Else
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "homepagetitle" ) .Value) )
End If
    '209
            Response.Write ( "</td>" & Chr ( 13 ) ) '209
            Response.Write ( "                            </tr>" & Chr ( 13 ) ) '210
            Response.Write ( "                          </table>" & Chr ( 13 ) ) '211
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '212
            rs.MoveNext ( ) '214
        Loop '215
    End If '216
    rs.Close ( ) '217
    rs = Nothing '218
    Response.Write ( vbCrLf )
    Response.Write ( "                      </tr>" & Chr ( 13 ) ) '220
    Response.Write ( "                    </table></td>" & Chr ( 13 ) ) '221
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '222
    Response.Write ( "              </table>" & Chr ( 13 ) ) '223
    Response.Write ( "            </div>" & Chr ( 13 ) ) '224
    Response.Write ( "</td>" & Chr ( 13 ) ) '225
    Response.Write ( "</tr></table>" & Chr ( 13 ) ) '226
    Response.Write ( "</div>" & Chr ( 13 ) ) '227
    Response.Write ( "</div>" & Chr ( 13 ) ) '228
    Response.Write ( "<br><center>" & Chr ( 13 ) ) '229
    Response.Write ( "    " ) '230
    ASPX_TAIL.AspToAspX_Page_Init ( )
    Response.Write ( "  </center>" & Chr ( 13 ) ) '231
    Response.Write ( "</center>" & Chr ( 13 ) ) '232
    Response.Write ( "</body>" & Chr ( 13 ) ) '233
    Response.Write ( "</html>" & Chr ( 13 ) ) '234
    closedb ( ) '235
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("usercenter_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
    Public Property conn
        Get
            conn = ASPX_CONN.conn
        End Get
        Set(ByVal value)
            ASPX_CONN.conn = value
        End Set
    End Property
    Public Property qs
        Get
            qs = ASPX_CONN.qs
        End Get
        Set(ByVal value)
            ASPX_CONN.qs = value
        End Set
    End Property
    Public Property errc
        Get
            errc = ASPX_CONN.errc
        End Get
        Set(ByVal value)
            ASPX_CONN.errc = value
        End Set
    End Property
    Public Property iii
        Get
            iii = ASPX_CONN.iii
        End Get
        Set(ByVal value)
            ASPX_CONN.iii = value
        End Set
    End Property
    Public Property nothis
        Get
            nothis = ASPX_CONN.nothis
        End Get
        Set(ByVal value)
            ASPX_CONN.nothis = value
        End Set
    End Property
    Public Sub makeftbbstree(ByRef  ft )
        ASPX_CONN.makeftbbstree( ft )