📄 bbs_arrest.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 _BBSADMIN_BBS_ARREST
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public i
Public searchcontent
Public searchkind
Public tyname1
Public tyname2
Public root
Public pagestr
Public AspToAspX_Str
Public rs As ADODB.Recordset
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_PAGEFUN As _PAGEFUN
#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_PAGEFUN = New _PAGEFUN()
ASPX_PAGEFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_PAGEFUN.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_PAGEFUN.AspToAspX_UnloadIncludeFiles()
ASPX_PAGEFUN = 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_PAGEFUN.AspToAspX_Page_Init ( )
searchcontent = trim ( Request ( "searchcontent" ) ) '5
searchkind = Request ( "searchkind" ) '6
tyname1 = "searchcontent" '7
tyname2 = "searchkind" '8
root = "../" '9
If AspToAspX_CheckDBNull ( searchcontent ) < > EmptyString.Value Then '10
pagestr = "&" & tyname1 & "=" & searchcontent & "&" & tyname2 & "=" & searchkind '11
Else '12
pagestr = "" '13
End If '14
If AspToAspX_CheckDBNull ( searchkind ) = EmptyString.Value Then '15
AspToAspX_Str = "select * from " & ft & "bbs_arrest order by id desc" '16
Else '17
AspToAspX_Str = "select * from " & ft & "bbs_arrest where kind='" & searchkind & "' and content like '%" & searchcontent & "%' order by id desc" '18
End If '19
rs = New ADODB.Recordset ( ) '20
rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '21
Response.Write ( vbCrLf )
Response.Write ( "<html>" & Chr ( 13 ) ) '23
Response.Write ( "<head>" & Chr ( 13 ) ) '24
Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '25
Response.Write ( "<title>无标题文档</title>" & Chr ( 13 ) ) '26
Response.Write ( "<link href=""../css/main01.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '27
Response.Write ( "</head>" & Chr ( 13 ) ) '28
Response.Write ( "<body bgcolor=""#FFFFFF"" text=""#000000"">" & Chr ( 13 ) ) '29
Response.Write ( "<table width=""99%"" border=""0"" align=""center"">" & Chr ( 13 ) ) '30
Response.Write ( " <TR align=center class=""f12"">" & Chr ( 13 ) ) '31
Response.Write ( "<FORM METHOD=POST ACTION=""" ) '32
Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '32
Response.Write ( """ >" & Chr ( 13 ) ) '32
Response.Write ( "" & Chr ( 9 ) & " <TD> " & Chr ( 13 ) ) '33
Response.Write ( " <INPUT TYPE=""text"" NAME=""searchcontent"" size=20>" & Chr ( 13 ) ) '34
Response.Write ( " <select name=""searchkind"">" & Chr ( 13 ) ) '35
Response.Write ( " <option value=""Keyword"">关键字</option>" & Chr ( 13 ) ) '36
Response.Write ( " <option value=""IP"">IP地址</option>" & Chr ( 13 ) ) '37
Response.Write ( " </select>" & Chr ( 13 ) ) '38
Response.Write ( " <INPUT TYPE=""submit"" value=""搜索"" name="""">" & Chr ( 9 ) & "<A HREF=""bbs_arrest_ope.aspx?ope=add"">[添加内容]</A></TD>" & Chr ( 13 ) ) '39
Response.Write ( "</FORM>" & Chr ( 13 ) ) '40
Response.Write ( "</TR>" & Chr ( 13 ) ) '41
Response.Write ( "</TABLE>" & Chr ( 13 ) ) '42
Response.Write ( "<table width=""99%"" border=""0"" bgcolor=""#f1f1f1"" cellspacing=""1"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '43
Response.Write ( " <tr bgcolor=""#f5f5f5"" align=center class=""f12""> " & Chr ( 13 ) ) '44
Response.Write ( " <td width=""10%"" height=""25"">编号</td>" & Chr ( 13 ) ) '45
Response.Write ( " <td width=""20%"">类别</td>" & Chr ( 13 ) ) '46
Response.Write ( " <td width=""20%"">内容</td>" & Chr ( 13 ) ) '47
Response.Write ( " <td width=""30%"">日期</td>" & Chr ( 13 ) ) '48
Response.Write ( " <td width=""10%"">修改</td>" & Chr ( 13 ) ) '49
Response.Write ( " <td width=""10%"">删除</td>" & Chr ( 13 ) ) '50
Response.Write ( " </tr>" & Chr ( 13 ) ) '51
If Not rs.EOF Then '53
wzrep = 30 '54
wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '55
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'56
rs.PageSize = wzrep '57
rs.AbsolutePage = wzpage '58
wzpagecount = rs.PageCount '59
wzcount = rs.RecordCount '60
For i = 0 To Val ( wzrep ) - 1 '61
If rs.EOF Then
Exit For
End If
'62
Response.Write ( vbCrLf )
Response.Write ( " <tr bgcolor=""#FFFFFF"" align=center class=""f12""> " & Chr ( 13 ) ) '64
Response.Write ( " <td height=""20"">" ) '65
Response.Write ( i ) '65
Response.Write ( "</td>" & Chr ( 13 ) ) '65
Response.Write ( " <td>" ) '66
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "kind" ) .Value) ) '66
Response.Write ( "</td>" & Chr ( 13 ) ) '66
Response.Write ( " <td>" ) '67
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "content" ) .Value) ) '67
Response.Write ( "</td>" & Chr ( 13 ) ) '67
Response.Write ( " <td>" ) '68
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "indbdate" ) .Value) ) '68
Response.Write ( "</td>" & Chr ( 13 ) ) '68
Response.Write ( " <td><A HREF=""bbs_arrest_ope.aspx?ope=mod&id=" ) '69
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '69
Response.Write ( """>[修改]</A></td>" & Chr ( 13 ) ) '69
Response.Write ( " <td><A HREF=""bbs_arrest_ope_act.aspx?ope=del&id=" ) '70
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '70
Response.Write ( """>[删除]</A></td>" & Chr ( 13 ) ) '70
Response.Write ( " </tr>" & Chr ( 13 ) ) '71
rs.MoveNext ( ) '73
Next '74
rs.Close ( ) '75
Response.Write ( vbCrLf )
Response.Write ( " <tr align=center bgcolor=""#FFFFFF"" class=""f12""> " & Chr ( 13 ) ) '77
Response.Write ( " <td height=""28"" colspan=""14""> <div align=""left"">" ) '78
Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '78
Response.Write ( "</div></td>" & Chr ( 13 ) ) '78
Response.Write ( " </tr>" & Chr ( 13 ) ) '79
Response.Write ( " " ) '80
Else '80
Response.Write ( vbCrLf )
Response.Write ( " <tr bgcolor=""#F2F9F9""> " & Chr ( 13 ) ) '81
Response.Write ( " <td height=""25"" colspan=14 class=""f12""> " & Chr ( 13 ) ) '82
Response.Write ( " <div align=center> 找不到纪录！ </div>" & Chr ( 13 ) ) '83
Response.Write ( " </td>" & Chr ( 13 ) ) '84
Response.Write ( " </tr>" & Chr ( 13 ) ) '85
Response.Write ( " " ) '86
End If '86
Response.Write ( vbCrLf )
Response.Write ( "</table>" & Chr ( 13 ) ) '87
Response.Write ( "</body>" & Chr ( 13 ) ) '88
Response.Write ( "</html>" & Chr ( 13 ) ) '89
rs = Nothing '91
conn.Close ( ) '92
conn = Nothing '93
Response.Write ( vbCrLf )
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("bbs_arrest_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 )
End Sub
Public Sub CloseDb
ASPX_CONN.CloseDb
End Sub
Public Sub SaveToFile( ByVal strBody,ByVal File )
ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
End Sub
Public Function Checkstr(ByRef AspToAspX_Str )
Return ASPX_CONN.Checkstr( AspToAspX_Str )
End Function
Public Function CheckCharStr(ByRef usernamepsw,ByRef flag )
Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
End Function
Public Function ftbbs_msg(ByRef msg,ByRef reurl )
Return ASPX_CONN.ftbbs_msg( msg,reurl )
End Function
Public Function login_msg(ByRef msg,ByRef reurl )
Return ASPX_CONN.login_msg( msg,reurl )
End Function
Public Function FTBBS_HTML_MB(ByRef ft )
Return ASPX_CONN.FTBBS_HTML_MB( ft )
End Function
Public Function FTBBS_BZ_NAME(ByRef BoardID_1,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
End Function
Public Function FTBBS_BZ_NAME2(ByRef BoardID_1,ByRef BoardID_2,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
End Function
Public Function makefilename(ByRef fname )
Return ASPX_CONN.makefilename( fname )
End Function
Public Function GetExtendName(ByRef FileName )
Return ASPX_CONN.GetExtendName( FileName )
End Function
Public Function IsObjInstalled(ByRef strClassString )
Return ASPX_CONN.IsObjInstalled( strClassString )
End Function
Public Function ChkMapPath( ByVal strPath )
Return ASPX_CONN.ChkMapPath( strPath )
End Function
Public Function userlogin(ByRef ft )
Return ASPX_CONN.userlogin( ft )
End Function
Public Function headhtml
Return ASPX_CONN.headhtml
End Function
Public Function GetOpInfo(ByRef AspToAspX_Str,ByRef Flag )
Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
End Function
Public Function getcode
Return ASPX_CONN.getcode
End Function
Public Function codepass
Return ASPX_CONN.codepass
End Function
Public Function Ftbbs_Time
Return ASPX_CONN.Ftbbs_Time
End Function
Public Function ft_home(ByRef defaulthome )
Return ASPX_CONN.ft_home( defaulthome )
End Function
Public Function chkpost
Return ASPX_CONN.chkpost
End Function
Public Function CodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.CodeCookie( AspToAspX_Str )
End Function
Public Function DecodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
End Function
Public Function setcookie(ByRef cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
End Function
Public Function getcookie(ByRef ckname )
Return ASPX_CONN.getcookie( ckname )
End Function
Public Function clearcookie(ByRef cookdomain,ByRef cookneme )
Return ASPX_CONN.clearcookie( cookdomain,cookneme )
End Function
Public Function LoadFile( ByVal File )
Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
End Function
Public Function adminlogin(ByRef ft )
Return ASPX_ADMIN_CHECK_MASTER.adminlogin( ft )
End Function
Public Function pageclass(ByRef totalpage,ByRef wzcount,ByRef wzrep,ByRef pagestr,ByRef root )
Return ASPX_PAGEFUN.pageclass( totalpage,wzcount,wzrep,pagestr,root )
End Function
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -