ftbbsmyinfo.aspx.vb

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

    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '108
    Response.Write ( "          <td width=""23%"" height=""23""><div align=""left"">用 户 名：</div></td>" & Chr ( 13 ) ) '109
    Response.Write ( "          <td width=""77%""> " & Chr ( 13 ) ) '110
    Response.Write ( "            " ) '111
    Response.Write ( clubuser_name ) '111
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '112
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '113
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '114
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '115
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '116
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '117
    Response.Write ( "          <td width=""23%"" height=""23""><div align=""left"">用户级别：</div></td>" & Chr ( 13 ) ) '118
    Response.Write ( "          <td width=""77%""> " & Chr ( 13 ) ) '119
    Response.Write ( "            " ) '120
    If AspToAspX_CheckDBNull ( payuser ) = 1 Then '120
        Response.Write ( "<font color=red>认证会员</font>" ) '121
    Else '122
        Response.Write ( "<font color=green>普通会员</font>" ) '123
    End If '124
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '125
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '126
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '127
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '128
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '129
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '130
    Response.Write ( "          <td height=""23""><div align=""left"">性 &nbsp;&nbsp;&nbsp;别：</div></td>" & Chr ( 13 ) ) '131
    Response.Write ( "          <td> " & Chr ( 13 ) ) '132
    Response.Write ( "            " ) '133
    Response.Write ( clubuser_sex ) '133
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '134
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '135
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '136
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '137
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '138
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '139
    Response.Write ( "          <td width=""23%"" height=""23""><div align=""left"">用户头衔：</div></td>" & Chr ( 13 ) ) '140
    Response.Write ( "          <td width=""77%""> " & Chr ( 13 ) ) '141
    Response.Write ( "            " ) '142
    Response.Write ( touxian ) '142
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '143
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '144
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '145
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '146
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '147
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '148
    Response.Write ( "          <td width=""23%"" height=""23""><div align=""left"">用户等级：</div></td>" & Chr ( 13 ) ) '149
    Response.Write ( "          <td width=""77%""> " & Chr ( 13 ) ) '150
    Response.Write ( "            " ) '151
    Response.Write ( jibie ) '151
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '152
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '153
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '154
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '155
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '156
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '157
    Response.Write ( "          <td width=""23%"" height=""23""><div align=""left"">用户金钱：</div></td>" & Chr ( 13 ) ) '158
    Response.Write ( "          <td width=""77%""> " & Chr ( 13 ) ) '159
    Response.Write ( "            " ) '160
    Response.Write ( clubuser_money ) '160
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '161
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '162
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '163
    Response.Write ( "          <td colspan=2 height=1 background=""../images/dot.gif""></td>" & Chr ( 13 ) ) '164
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '165
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '166
    Response.Write ( "          <td width=""23%"" height=""23""><div align=""left"">用户体力：</div></td>" & Chr ( 13 ) ) '167
    Response.Write ( "          <td width=""77%""> " & Chr ( 13 ) ) '168
    Response.Write ( "            " ) '169
    Response.Write ( tili ) '169
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '170
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '171
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '172
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '173
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '174
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '175
    Response.Write ( "          <td width=""23%"" height=""23""><div align=""left"">用户积分：</div></td>" & Chr ( 13 ) ) '176
    Response.Write ( "          <td width=""77%""> " & Chr ( 13 ) ) '177
    Response.Write ( "            " ) '178
    Response.Write ( jingyuan ) '178
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '179
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '180
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '181
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '182
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '183
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '184
    Response.Write ( "          <td height=""23""><div align=""left"">邮 &nbsp;&nbsp;&nbsp;箱：</div></td>" & Chr ( 13 ) ) '185
    Response.Write ( "          <td> " & Chr ( 13 ) ) '186
    Response.Write ( "            " ) '187
    Response.Write ( clubuser_email ) '187
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '188
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '189
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '190
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '191
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '192
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '193
    Response.Write ( "          <td height=""23""><div align=""left"">婚姻状态：</div></td>" & Chr ( 13 ) ) '194
    Response.Write ( "          <td> " & Chr ( 13 ) ) '195
    Response.Write ( "            " ) '196
    Response.Write ( clubuser_marriage ) '196
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '197
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '198
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '199
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '200
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '201
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '202
    Response.Write ( "          <td height=""23""><div align=""left"">个人博客：</div></td>" & Chr ( 13 ) ) '203
    Response.Write ( "          <td><a href=""home.aspx?userid=" ) '204
    Response.Write ( clubuser_id ) '204
    Response.Write ( """ target=""_blank"">点击进入 " & Chr ( 13 ) ) '204
    Response.Write ( "            " ) '205
    Response.Write ( clubuser_name ) '205
    Response.Write ( vbCrLf )
    Response.Write ( "            的个人空间</a></td>" & Chr ( 13 ) ) '206
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '207
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '208
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '209
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '210
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '211
    Response.Write ( "          <td height=""23""><div align=""left"">个人相册：</div></td>" & Chr ( 13 ) ) '212
    Response.Write ( "          <td><a href=""myphoto.aspx?userid=" ) '213
    Response.Write ( clubuser_id ) '213
    Response.Write ( """ target=""_blank"">点击查看 " & Chr ( 13 ) ) '213
    Response.Write ( "            " ) '214
    Response.Write ( clubuser_name ) '214
    Response.Write ( vbCrLf )
    Response.Write ( "            的个人相册</a></td>" & Chr ( 13 ) ) '215
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '216
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '217
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '218
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '219
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '220
    Response.Write ( "          <td height=""23""><div align=""left"">所属地址：</div></td>" & Chr ( 13 ) ) '221
    Response.Write ( "          <td> " & Chr ( 13 ) ) '222
    Response.Write ( "            " ) '223
    Response.Write ( clubuser_address ) '223
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '224
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '225
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '226
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '227
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '228
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '229
    Response.Write ( "          <td height=""23""><div align=""left"">注册时间：</div></td>" & Chr ( 13 ) ) '230
    Response.Write ( "          <td> " & Chr ( 13 ) ) '231
    Response.Write ( "            " ) '232
    Response.Write ( clubuser_reg_date ) '232
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '233
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '234
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '235
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '236
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '237
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '238
    Response.Write ( "          <td height=""23""><div align=""left"">登录次数：</div></td>" & Chr ( 13 ) ) '239
    Response.Write ( "          <td> " & Chr ( 13 ) ) '240
    Response.Write ( "            " ) '241
    Response.Write ( clubuser_enter_count ) '241
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '242
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '243
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '244
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '245
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '246
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '247
    Response.Write ( "          <td height=""23""><div align=""left"">发 贴 数：</div></td>" & Chr ( 13 ) ) '248
    Response.Write ( "          <td> " & Chr ( 13 ) ) '249
    Response.Write ( "            " ) '250
    Response.Write ( postnum ) '250
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '251
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '252
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '253
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '254
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '255
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '256
    Response.Write ( "          <td height=""23""><div align=""left"">上次登录：</div></td>" & Chr ( 13 ) ) '257
    Response.Write ( "          <td> " & Chr ( 13 ) ) '258
    Response.Write ( "            " ) '259
    Response.Write ( clubuser_lasttime ) '259
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '260
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '261
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '262
    Response.Write ( "          <td colspan=2 height=1 background=""images/dot.gif""></td>" & Chr ( 13 ) ) '263
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '264
    Response.Write ( "        <tr class=""f12""> " & Chr ( 13 ) ) '265
    Response.Write ( "          <td height=""23""><div align=""left"">个性签名：</div></td>" & Chr ( 13 ) ) '266
    Response.Write ( "          <td> " & Chr ( 13 ) ) '267
    Response.Write ( "            " ) '268
    Response.Write ( signname ) '268
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '269
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '270
    Response.Write ( "      </table></td>" & Chr ( 13 ) ) '271
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '272
    Response.Write ( "</table>" & Chr ( 13 ) ) '273
    ASPX_INC_BBSTAIL_HTM.AspToAspX_Page_Init ( )
    CloseDb ( ) '275
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("ftbbsmyinfo_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