user_manage.aspx.vb

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

            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""user_delete.aspx?id=" ) '108
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '108
                Response.Write ( "&m=3&bbsmanager=0""><font color=red>是</font></a> " & Chr ( 13 ) ) '108
                Response.Write ( "                " ) '109
            Else '109
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""user_delete.aspx?id=" ) '110
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '110
                Response.Write ( "&m=3&bbsmanager=1"">否</a> " & Chr ( 13 ) ) '110
                Response.Write ( "                " ) '111
            End If '111
            Response.Write ( vbCrLf )
            Response.Write ( "            </td>" & Chr ( 13 ) ) '112
            Response.Write ( "            <td align=""center"">" ) '113
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_email" ) .Value) ) '113
            Response.Write ( "</td>" & Chr ( 13 ) ) '113
            Response.Write ( "            <td align=""center"">" ) '114
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_enter_count" ) .Value) ) '114
            Response.Write ( "</td>" & Chr ( 13 ) ) '114
            Response.Write ( "            <td align=""center"">" ) '115
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_ip" ) .Value) ) '115
            Response.Write ( "</td >" & Chr ( 13 ) ) '115
            Response.Write ( "            <td align=""center"">" ) '116
            Response.Write ( Year ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_reg_date" ) .Value) ) ) '116
            Response.Write ( "/" ) '116
            Response.Write ( Month ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_reg_date" ) .Value) ) ) '116
            Response.Write ( "/" ) '116
            Response.Write ( Day ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_reg_date" ) .Value) ) ) '116
            Response.Write ( "</td>" & Chr ( 13 ) ) '116
            Response.Write ( "            " & Chr ( 13 ) ) '117
            Response.Write ( "          <td align=""center""><a href=""userxz.aspx?clubuser_id=" ) '118
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '118
            Response.Write ( """>勋章</a></td>" & Chr ( 13 ) ) '118
            Response.Write ( "            <td align=""center"">" & Chr ( 13 ) ) '119
            Response.Write ( "                " ) '120
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "jfmsign" ) .Value) ) = 1 Then '120
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""jfuser.aspx?id=" ) '121
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '121
                Response.Write ( "&jfm=0""><font color=red>未激活</font></a> " & Chr ( 13 ) ) '121
                Response.Write ( "                " ) '122
            Else '122
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""jfuser.aspx?id=" ) '123
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '123
                Response.Write ( "&jfm=1"">已激活</a> " & Chr ( 13 ) ) '123
                Response.Write ( "                " ) '124
            End If '124
            Response.Write ( vbCrLf )
            Response.Write ( "            </td>" & Chr ( 13 ) ) '125
            Response.Write ( "            <td align=""center"">" & Chr ( 13 ) ) '126
            Response.Write ( "                " ) '127
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bbsmanager" ) .Value) ) = 1 Then '127
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""user_delete.aspx?id=" ) '128
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '128
                Response.Write ( "&m=1&bbsmanager=0""><font color=red>是</font></a> " & Chr ( 13 ) ) '128
                Response.Write ( "                " ) '129
            Else '129
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""user_delete.aspx?id=" ) '130
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '130
                Response.Write ( "&m=1&bbsmanager=1"">否</a> " & Chr ( 13 ) ) '130
                Response.Write ( "                " ) '131
            End If '131
            Response.Write ( vbCrLf )
            Response.Write ( "            </td>" & Chr ( 13 ) ) '132
            Response.Write ( "            <td align=""center"">" & Chr ( 13 ) ) '133
            Response.Write ( "                " ) '134
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bbsadmin" ) .Value) ) = 1 Then '134
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""user_delete.aspx?id=" ) '135
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '135
                Response.Write ( "&m=4&bbsmanager=0""><font color=red>是</font></a> " & Chr ( 13 ) ) '135
                Response.Write ( "                " ) '136
            Else '136
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""user_delete.aspx?id=" ) '137
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '137
                Response.Write ( "&m=4&bbsmanager=1""  onclick=""return confirm('1.分论坛版主请到论坛类别管理里设置,版主用户名要存在且有大小写区分\n\n2.若分论坛类别中没有设该用户为某分论坛版主而只在这设的版主不生效\n\n你确定继续吗？');"">否</a> " & Chr ( 13 ) ) '137
                Response.Write ( "                " ) '138
            End If '138
            Response.Write ( vbCrLf )
            Response.Write ( "            </td>" & Chr ( 13 ) ) '139
            Response.Write ( "            <td align=""center"">" & Chr ( 13 ) ) '140
            Response.Write ( "                " ) '141
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "payuser" ) .Value) ) = 1 Then '141
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""payusersign.aspx?id=" ) '142
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '142
                Response.Write ( "&a=1&payuser=0""><font color=red>是</font></a> " & Chr ( 13 ) ) '142
                Response.Write ( "                " ) '143
            Else '143
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""payusersign.aspx?id=" ) '144
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '144
                Response.Write ( "&a=1&payuser=1"">否</a> " & Chr ( 13 ) ) '144
                Response.Write ( "                " ) '145
            End If '145
            Response.Write ( vbCrLf )
            Response.Write ( "            </td>" & Chr ( 13 ) ) '146
            Response.Write ( "            <td align=""center"">" & Chr ( 13 ) ) '147
            Response.Write ( "                " ) '148
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "payuser" ) .Value) ) = 3 Then '148
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""payusersign.aspx?id=" ) '149
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '149
                Response.Write ( "&a=3&payuser=0""><font color=red>是</font></a> " & Chr ( 13 ) ) '149
                Response.Write ( "                " ) '150
            Else '150
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""payusersign.aspx?id=" ) '151
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '151
                Response.Write ( "&a=3&payuser=3"">否</a> " & Chr ( 13 ) ) '151
                Response.Write ( "                " ) '152
            End If '152
            Response.Write ( vbCrLf )
            Response.Write ( "            </td>" & Chr ( 13 ) ) '153
            Response.Write ( "            <td align=""center"">" & Chr ( 13 ) ) '154
            Response.Write ( "                " ) '155
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "payuser" ) .Value) ) = 2 Then '155
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""payusersign.aspx?id=" ) '156
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '156
                Response.Write ( "&a=2&payuser=0""><font color=red>关</font></a> " & Chr ( 13 ) ) '156
                Response.Write ( "                " ) '157
            Else '157
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""payusersign.aspx?id=" ) '158
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '158
                Response.Write ( "&a=2&payuser=2"">开</a> " & Chr ( 13 ) ) '158
                Response.Write ( "                " ) '159
            End If '159
            Response.Write ( vbCrLf )
            Response.Write ( "            </td>" & Chr ( 13 ) ) '160
            Response.Write ( "            <td align=""center"">" & Chr ( 13 ) ) '161
            Response.Write ( "                " ) '162
            If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 2 ) ) > 0 Then '162
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""user_edit.aspx?id=" ) '163
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '163
                Response.Write ( """>修改</a> " & Chr ( 13 ) ) '163
                Response.Write ( "                " ) '164
            End If '164
            Response.Write ( vbCrLf )
            Response.Write ( "            </td>" & Chr ( 13 ) ) '165
            Response.Write ( "            <td align=""center"">" & Chr ( 13 ) ) '166
            Response.Write ( "                " ) '167
            If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) > 0 Then '167
            Response.Write ( vbCrLf )
                Response.Write ( "                <a href=""user_delete.aspx?id=" ) '168
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '168
                Response.Write ( "&m=2"">删除</a> " & Chr ( 13 ) ) '168
                Response.Write ( "                " ) '169
            End If '169
            Response.Write ( vbCrLf )
            Response.Write ( "             </td>" & Chr ( 13 ) ) '170
            Response.Write ( "          </tr>" & Chr ( 13 ) ) '171
            rs.MoveNext ( ) '173
        Next '174
        Response.Write ( vbCrLf )
        Response.Write ( "        <tr bgcolor=""#f4f4f4"" height=22 class=""f12""> " & Chr ( 13 ) ) '176
        Response.Write ( "          <td height=""25"" colspan=""16"" align=""right"">" ) '177
        Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '177
        Response.Write ( "</td>" & Chr ( 13 ) ) '177
        Response.Write ( "        </tr>" & Chr ( 13 ) ) '178
    Else '179
    Response.Write ( vbCrLf )
        Response.Write ( "        <tr bgcolor=""#f4f4f4"" height=22 class=""f12""> " & Chr ( 13 ) ) '180
        Response.Write ( "          <td height=""25"" colspan=""16"" align=""middle""><div align=""center"">没有找到任何记录</div></td>" & Chr ( 13 ) ) '181
        Response.Write ( "        </tr>" & Chr ( 13 ) ) '182
    End If '184
    rs.Close ( ) '185
    rs = Nothing '186
    Response.Write ( vbCrLf )
    Response.Write ( "</table>" & Chr ( 13 ) ) '188
    Response.Write ( "</td>" & Chr ( 13 ) ) '189
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '190
    Response.Write ( "</table>" & Chr ( 13 ) ) '191
    Response.Write ( "</body>" & Chr ( 13 ) ) '192
    Response.Write ( "</html>" & Chr ( 13 ) ) '193
    closedb ( ) '194
    Response.Write ( vbCrLf )

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