📄 bmuser_manage.aspx.vb
字号:
' ***************************************************
' * 本程序由AspToAspX风火轮0.99转换生成 *
' * http://Www.AspToAspX.Cn *
' * Q Q : 139227536 *
' * QQ群: 17152722 *
' * MSN : gzliangjianhua@hotmail.com *
' * EMail AspToDll@vip.163.com *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState
Public Class _USER_BMUSER_MANAGE
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public sql,seachstr,login_sort
Public rs As ADODB.Recordset
Public i
Public tyname1
Public tyvalue1
Public tyname2
Public tyvalue2
Public wzrep
Public wzpage
Public wzpagecount
Public wzcount
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public ASPX_CONN As _CONN
Public ASPX_ADMIN_CHECK_MASTER As _ADMIN_CHECK_MASTER
Public ASPX_INC_PUBLICFUN As _INC_PUBLICFUN
#Region "..."
Public Sub AspToAspX_InitIncludeFiles()
ASPX_CONN = New _CONN()
ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_CONN.AspToAspX_InitIncludeFiles()
ASPX_ADMIN_CHECK_MASTER = New _ADMIN_CHECK_MASTER()
ASPX_ADMIN_CHECK_MASTER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_ADMIN_CHECK_MASTER.AspToAspX_InitIncludeFiles()
ASPX_INC_PUBLICFUN = New _INC_PUBLICFUN()
ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_PUBLICFUN.AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = Nothing
ASPX_ADMIN_CHECK_MASTER.AspToAspX_UnloadIncludeFiles()
ASPX_ADMIN_CHECK_MASTER = Nothing
ASPX_INC_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
ASPX_INC_PUBLICFUN = Nothing
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
AspToAspXGlobal.Application = Application
AspToAspXGlobal.Server = Server
AspToAspXGlobal.Response = Response
AspToAspXGlobal.Request = Request
AspToAspXGlobal.Session = Session
AspToAspX_Host_Class_Object = Me
AspToAspX_InitIncludeFiles()
AspToAspX_Page_Init()
End Sub
Public Sub AspToAspX_Page_Init()
On Error GoTo _AspToAspX_Err
ASPX_CONN.AspToAspX_Page_Init ( )
ASPX_ADMIN_CHECK_MASTER.AspToAspX_Page_Init ( )
ASPX_INC_PUBLICFUN.AspToAspX_Page_Init ( )
Response.Write ( "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">" & Chr ( 13 ) ) '4
Response.Write ( "<html>" & Chr ( 13 ) ) '5
Response.Write ( "<head>" & Chr ( 13 ) ) '6
Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '7
Response.Write ( "<link rel=""stylesheet"" href=""../css/xmwuye.css"">" & Chr ( 13 ) ) '8
Response.Write ( "</head>" & Chr ( 13 ) ) '9
seachstr = AspToAspX_CheckIsNothing ( Request.Form ( "seachstr" ) ) '13
tyname1 = "seachstr" '14
tyvalue1 = seachstr '15
tyname2 = "kind" '16
tyvalue2 = Request ( "kind" ) '17
If AspToAspX_CheckDBNull ( seachstr ) < > EmptyString.Value Then '18
sql = "select * from " & ft & "ftbbs_bmtb where " & Request ( "kind" ) & " like '%" & seachstr & "%' order by id desc" '19
Else '20
sql = "select * from " & ft & "ftbbs_bmtb order by id desc" '21
End If '22
rs = New ADODB.Recordset ( ) '23
rs.Open ( sql , conn , 3 , 1 ) '24
Response.Write ( vbCrLf )
Response.Write ( "<body leftmargin=""0"" topmargin=""5"">" & Chr ( 13 ) ) '26
Response.Write ( "<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '27
Response.Write ( " <form name=""form1"" method=""post"" action="""">" & Chr ( 13 ) ) '28
Response.Write ( " <tr bgcolor=""#d6dff7""> " & Chr ( 13 ) ) '29
Response.Write ( " " & Chr ( 13 ) ) '30
Response.Write ( " <td height=""30"" align=""right"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '31
Response.Write ( "<div align=""center"">搜索用户： " & Chr ( 13 ) ) '32
Response.Write ( " <input name=""seachstr"" type=""text"" id=""seachstr"" size=""20"">" & Chr ( 13 ) ) '33
Response.Write ( " <select name=""kind"">" & Chr ( 13 ) ) '34
Response.Write ( " <option value=""username"" >用户名</option>" & Chr ( 13 ) ) '35
Response.Write ( " <option value=""tel"">电话</option>" & Chr ( 13 ) ) '36
Response.Write ( " </select>" & Chr ( 13 ) ) '37
Response.Write ( " <input type=""submit"" name=""Submit"" value="" 搜 索 "">" & Chr ( 13 ) ) '38
Response.Write ( " </div></td>" & Chr ( 13 ) ) '39
Response.Write ( " </tr>" & Chr ( 13 ) ) '40
Response.Write ( " </form>" & Chr ( 13 ) ) '41
Response.Write ( " </table>" & Chr ( 13 ) ) '42
Response.Write ( "<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '43
Response.Write ( " <tr>" & Chr ( 13 ) ) '44
Response.Write ( " <td width=""100%""> " & Chr ( 13 ) ) '45
Response.Write ( " <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""1"" bordercolorlight=""#000000"" bordercolordark=""#FFFFFF"" bgcolor=""#f1f1f1"">" & Chr ( 13 ) ) '46
Response.Write ( " <tr bgcolor=""#f4f4f4"" height=22> " & Chr ( 13 ) ) '47
Response.Write ( " <td width=""4%"" height=""25"" align=""center""><strong>ID号</strong></td>" & Chr ( 13 ) ) '48
Response.Write ( " <td width=""8%"" height=""25"" align=""center""><strong>用户名</strong></td>" & Chr ( 13 ) ) '49
Response.Write ( " <td width=""8%"" align=""center""><strong>电话</strong></td>" & Chr ( 13 ) ) '50
Response.Write ( " <td width=""5%"" align=""center""><strong>性别</strong></td>" & Chr ( 13 ) ) '51
Response.Write ( " <td width=""4%"" align=""center""><strong>年龄</strong></td>" & Chr ( 13 ) ) '52
Response.Write ( " <td width=""8%"" align=""center""><strong>职业</strong></td>" & Chr ( 13 ) ) '53
Response.Write ( " <td width=""7%"" align=""center""><strong>学历</strong></td>" & Chr ( 13 ) ) '54
Response.Write ( " <td width=""10%"" align=""center""><strong>来自</strong></td>" & Chr ( 13 ) ) '55
Response.Write ( " <td width=""6%"" align=""center""><strong>QQ号</strong></td>" & Chr ( 13 ) ) '56
Response.Write ( " <td width=""9%"" align=""center""><strong>备注</strong></td>" & Chr ( 13 ) ) '57
Response.Write ( " <td width=""9%"" align=""center""><strong>报名时间</strong></td>" & Chr ( 13 ) ) '58
Response.Write ( " <td width=""5%"" align=""center""><strong>标志</strong></td>" & Chr ( 13 ) ) '59
Response.Write ( " <td width=""5%"" align=""center""><strong>修改</strong></td>" & Chr ( 13 ) ) '60
Response.Write ( " <td width=""5%"" align=""center""><strong>删除</strong></td>" & Chr ( 13 ) ) '61
Response.Write ( " </tr>" & Chr ( 13 ) ) '62
If Not rs.EOF Then '64
wzrep = 30 '65
wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '66
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'67
rs.PageSize = wzrep '68
rs.AbsolutePage = wzpage '69
wzpagecount = rs.PageCount '70
wzcount = rs.RecordCount '71
For i = 0 To Val ( wzrep ) - 1 '72
If rs.EOF Then
Exit For
End If
'73
Response.Write ( vbCrLf )
Response.Write ( " <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '75
Response.Write ( " <td height=22 align=""center""><FONT COLOR=""blue"">" ) '76
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '76
Response.Write ( "</font></td>" & Chr ( 13 ) ) '76
Response.Write ( " <td align=""center"">" ) '77
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "username" ) .Value) ) '77
Response.Write ( "</td>" & Chr ( 13 ) ) '77
Response.Write ( " <td align=""center"">" ) '78
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "tel" ) .Value) ) '78
Response.Write ( "</td>" & Chr ( 13 ) ) '78
Response.Write ( " <td align=""center"">" ) '79
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "sex" ) .Value) ) '79
Response.Write ( "</td>" & Chr ( 13 ) ) '79
Response.Write ( " <td align=""center"">" ) '80
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "age" ) .Value) ) '80
Response.Write ( "</td>" & Chr ( 13 ) ) '80
Response.Write ( " <td align=""center"">" ) '81
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "job" ) .Value) ) '81
Response.Write ( "</td>" & Chr ( 13 ) ) '81
Response.Write ( " <td align=""center"">" ) '82
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "edu" ) .Value) ) '82
Response.Write ( "</td >" & Chr ( 13 ) ) '82
Response.Write ( " <td align=""center"">" ) '83
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "address" ) .Value) ) '83
Response.Write ( "</td>" & Chr ( 13 ) ) '83
Response.Write ( " <td align=""center"">" ) '84
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "qq" ) .Value) ) '84
Response.Write ( "</td>" & Chr ( 13 ) ) '84
Response.Write ( " <td align=""center"">" ) '85
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "mynote" ) .Value) ) '85
Response.Write ( "</td>" & Chr ( 13 ) ) '85
Response.Write ( " <td align=""center"">" ) '86
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "indate" ) .Value) ) '86
Response.Write ( "</td>" & Chr ( 13 ) ) '86
Response.Write ( " <td align=""center""> " & Chr ( 13 ) ) '87
Response.Write ( " " ) '88
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "flag" ) .Value) ) = 1 Then '88
Response.Write ( vbCrLf )
Response.Write ( " <a href=""ftbbsdel.aspx?id=" ) '89
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '89
Response.Write ( "&tb=ftbbs_bmtb&flag=0""><font color=red>隐</font></a> " & Chr ( 13 ) ) '89
Response.Write ( " " ) '90
Else '90
Response.Write ( vbCrLf )
Response.Write ( " <a href=""ftbbsdel.aspx?id=" ) '91
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '91
Response.Write ( "&tb=ftbbs_bmtb&flag=1"">显</a> " & Chr ( 13 ) ) '91
Response.Write ( " " ) '92
End If '92
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '93
Response.Write ( " <td align=""center""> " & Chr ( 13 ) ) '94
Response.Write ( " " ) '95
If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 2 ) ) > 0 Then '95
Response.Write ( vbCrLf )
Response.Write ( " <a href=""bmuser_edit.aspx?id=" ) '96
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '96
Response.Write ( """>修改</a> " & Chr ( 13 ) ) '96
Response.Write ( " " ) '97
End If '97
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '98
Response.Write ( " <td align=""center""> " & Chr ( 13 ) ) '99
Response.Write ( " " ) '100
If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) > 0 Then '100
Response.Write ( vbCrLf )
Response.Write ( " <a href=""ftbbsdel.aspx?id=" ) '101
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '101
Response.Write ( "&tb=ftbbs_bmtb&flag=3"">删除</a> " & Chr ( 13 ) ) '101
Response.Write ( " " ) '102
End If '102
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '103
Response.Write ( " </tr>" & Chr ( 13 ) ) '104
Response.Write ( " " ) '105
rs.MoveNext ( ) '106
Next '107
rs.Close ( ) '108
rs = Nothing '109
Response.Write ( vbCrLf )
Response.Write ( " <tr bgcolor=""#f4f4f4"" height=22> " & Chr ( 13 ) ) '111
Response.Write ( " <td height=""25"" colspan=""17"" align=""right""> 共<font color=red>" ) '112
Response.Write ( wzcount ) '112
Response.Write ( "</font>个用户<font color=red>" ) '112
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -