📄 index.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_INDEX
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public Layer
Public Layer_name
Public BBS_Cate_PID
Public BBS_Cate_Name
Public searchcontent
Public sql
Public rs As ADODB.Recordset
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
#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()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = Nothing
ASPX_ADMIN_CHECK_MASTER.AspToAspX_UnloadIncludeFiles()
ASPX_ADMIN_CHECK_MASTER = 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 ( )
Layer = Request ( "Layer" ) '4
If AspToAspX_CheckDBNull ( Layer ) = "0" Then '5
Layer_name = "一级类别" '6
BBS_Cate_PID = 0 '7
ElseIf AspToAspX_CheckDBNull ( Layer ) = "1"Then '8
Layer_name = "二级类别" '9
BBS_Cate_PID = Request ( "BBS_Cate_PID" ) '10
BBS_Cate_Name = Request ( "BBS_Cate_Name" ) '11
End If '12
Response.Write ( vbCrLf )
Response.Write ( "<html>" & Chr ( 13 ) ) '14
Response.Write ( "<head>" & Chr ( 13 ) ) '15
Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '16
Response.Write ( "<title>" ) '17
Response.Write ( Layer_name ) '17
Response.Write ( "分类管理</title>" & Chr ( 13 ) ) '17
Response.Write ( "<link href=""../css/xmwuye.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '18
Response.Write ( "</head>" & Chr ( 13 ) ) '19
Response.Write ( "<body bgcolor=""#FFFFFF"" text=""#000000"">" & Chr ( 13 ) ) '20
Response.Write ( "<TABLE align=center>" & Chr ( 13 ) ) '21
Response.Write ( "<TR>" & Chr ( 13 ) ) '22
Response.Write ( "" & Chr ( 9 ) & "<TD><B>论坛分类管理</B></TD>" & Chr ( 13 ) ) '23
Response.Write ( "</TR>" & Chr ( 13 ) ) '24
Response.Write ( "</TABLE>" & Chr ( 13 ) ) '25
Response.Write ( " " & Chr ( 13 ) ) '26
Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellspacing=""1"" cellpadding=""2"" bgcolor=""#999999"">" & Chr ( 13 ) ) '27
Response.Write ( " <form name=""form1"" method=""post"" action=""Category_add.aspx"" onsubmit=""return CheckForm(this)"">" & Chr ( 13 ) ) '28
Response.Write ( " <tr bgcolor=""#CCCCCC""> " & Chr ( 13 ) ) '29
Response.Write ( " <td height=""25"" colspan=""2""> " & Chr ( 13 ) ) '30
Response.Write ( " <div align=""center""><b>[" ) '31
Response.Write ( BBS_Cate_Name ) '31
Response.Write ( "-] " ) '31
Response.Write ( Layer_name ) '31
Response.Write ( "</b></div>" & Chr ( 13 ) ) '31
Response.Write ( " </td>" & Chr ( 13 ) ) '32
Response.Write ( " </tr>" & Chr ( 13 ) ) '33
Response.Write ( " <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '34
Response.Write ( " <td width=19%><div align=""right"">" ) '35
Response.Write ( Layer_name ) '35
Response.Write ( "名称：</div></td>" & Chr ( 13 ) ) '35
Response.Write ( " <td width=""81%""> " & Chr ( 13 ) ) '36
Response.Write ( " <input type=""text"" name=""BBS_Cate_Name"" size=""40"">" & Chr ( 13 ) ) '37
Response.Write ( " </td>" & Chr ( 13 ) ) '38
Response.Write ( " </tr>" & Chr ( 13 ) ) '39
Response.Write ( " <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '40
Response.Write ( " <td><div align=""right"">" ) '41
Response.Write ( Layer_name ) '41
Response.Write ( "版主：</div></td>" & Chr ( 13 ) ) '41
Response.Write ( " <td> " & Chr ( 13 ) ) '42
Response.Write ( " <input type=""text"" name=""BBS_Cate_Manager_Name"" size=""40"">" & Chr ( 13 ) ) '43
Response.Write ( " 多个版主用"|"分开 </td>" & Chr ( 13 ) ) '44
Response.Write ( " </tr>" & Chr ( 13 ) ) '45
Response.Write ( " <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '46
Response.Write ( " <td>" & Chr ( 13 ) ) '47
Response.Write ( " <div align=""right"">" ) '48
Response.Write ( "论坛版主email：</div></td>" & Chr ( 13 ) ) '48
Response.Write ( " <td> " & Chr ( 13 ) ) '49
Response.Write ( " <input name=""BBS_Cate_Manager_Email"" type=""text"" size=""40"">" & Chr ( 13 ) ) '50
Response.Write ( " </td>" & Chr ( 13 ) ) '51
Response.Write ( " </tr>" & Chr ( 13 ) ) '52
Response.Write ( "" & Chr ( 9 ) & "" ) '53
Response.Write ( " <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '54
Response.Write ( " <td>" & Chr ( 13 ) ) '55
Response.Write ( " <div align=""right"">" ) '56
Response.Write ( "论坛版块说明：</div></td>" & Chr ( 13 ) ) '56
Response.Write ( " <td> " & Chr ( 13 ) ) '57
Response.Write ( " <textarea name=""BBS_Cate_Note"" cols=""60"" rows=""8""></textarea>" & Chr ( 13 ) ) '58
Response.Write ( " 支持UBB代码 </td>" & Chr ( 13 ) ) '59
Response.Write ( " </tr>" & Chr ( 13 ) ) '60
Response.Write ( "" & Chr ( 9 ) & "" ) '61
Response.Write ( " <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '62
Response.Write ( " <td><div align=""right"">论坛权限：</div></td>" & Chr ( 13 ) ) '63
Response.Write ( " <td><input name=""fangwenqs"" type=""radio"" value=""0"" checked>" & Chr ( 13 ) ) '64
Response.Write ( " 所有用户都可以访问" & Chr ( 13 ) ) '65
Response.Write ( " <input type=""radio"" name=""fangwenqs"" value=""1"">" & Chr ( 13 ) ) '66
Response.Write ( " 只有注册用户才能访问<br>" & Chr ( 13 ) ) '67
Response.Write ( " <input type=""radio"" name=""fangwenqs"" value=""2"">" & Chr ( 13 ) ) '68
Response.Write ( " 认证用户才可以访问 " & Chr ( 13 ) ) '69
Response.Write ( " <input type=""radio"" name=""fangwenqs"" value=""3"">" & Chr ( 13 ) ) '70
Response.Write ( " 版主管理员才可以访问<br>" & Chr ( 13 ) ) '71
Response.Write ( " <input type=""radio"" name=""fangwenqs"" value=""4"">" & Chr ( 13 ) ) '72
Response.Write ( " 版主管理员可发贴回贴其他用户只可回贴<br> <input type=""radio"" name=""fangwenqs"" value=""5"">" & Chr ( 13 ) ) '73
Response.Write ( " 版主管理员可发贴回贴其他用户只可看贴 </td>" & Chr ( 13 ) ) '74
Response.Write ( " </tr>" & Chr ( 13 ) ) '75
Response.Write ( " <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '76
Response.Write ( " <td><div align=""right"">树型状态：</div></td>" & Chr ( 13 ) ) '77
Response.Write ( " <td> <input type=""radio"" name=""tree"" value=""1"" checked>" & Chr ( 13 ) ) '78
Response.Write ( " 默认展开 " & Chr ( 13 ) ) '79
Response.Write ( " <input type=""radio"" name=""tree"" value=""0"">" & Chr ( 13 ) ) '80
Response.Write ( " 默认收缩</td>" & Chr ( 13 ) ) '81
Response.Write ( " </tr>" & Chr ( 13 ) ) '82
Response.Write ( "" & Chr ( 9 ) & "" ) '83
If AspToAspX_CheckDBNull ( layer ) = 1 Then '83
Response.Write ( vbCrLf )
Response.Write ( " <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '84
Response.Write ( " <td>" & Chr ( 13 ) ) '85
Response.Write ( " <div align=""right"">版块版规：</div></td>" & Chr ( 13 ) ) '86
Response.Write ( " <td> " & Chr ( 13 ) ) '87
Response.Write ( " <TEXTAREA type=""hidden"" cols=""60"" rows=""8"" name=""menu""></textarea>" & Chr ( 13 ) ) '88
Response.Write ( " 支持UBB代码 </td>" & Chr ( 13 ) ) '89
Response.Write ( " </tr>" & Chr ( 13 ) ) '90
Response.Write ( "" & Chr ( 9 ) & "" ) '91
End If '91
Response.Write ( vbCrLf )
Response.Write ( "" & Chr ( 9 ) & "<tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '92
Response.Write ( " <td colspan=""2""> " & Chr ( 13 ) ) '93
Response.Write ( " <div align=""center"">" & Chr ( 13 ) ) '94
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<INPUT TYPE=""hidden"" name=""BBS_Cate_PID"" value=""" ) '95
Response.Write ( BBS_Cate_PID ) '95
Response.Write ( """>" & Chr ( 13 ) ) '95
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<INPUT TYPE=""hidden"" name=""Layer"" value=""" ) '96
Response.Write ( Layer ) '96
Response.Write ( """>" & Chr ( 13 ) ) '96
Response.Write ( " <input type=""submit"" name=""B1"" value=""添加"" " ) '97
If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 1 ) ) < = 0 Then '97
Response.Write ( "disabled" ) '97
End If '97
Response.Write ( ">" & Chr ( 13 ) ) '97
Response.Write ( " <input type=""reset"" name=""Submit2"" value=""取消"">" & Chr ( 13 ) ) '98
Response.Write ( " </div>" & Chr ( 13 ) ) '99
Response.Write ( " </td>" & Chr ( 13 ) ) '100
Response.Write ( " </tr>" & Chr ( 13 ) ) '101
Response.Write ( "" & Chr ( 9 ) & "</form>" & Chr ( 13 ) ) '102
Response.Write ( " </table>" & Chr ( 13 ) ) '103
Response.Write ( "<table width=""80%"" border=""0"" align=""center"" cellspacing=""3"" cellpadding=""3"">" & Chr ( 13 ) ) '104
Response.Write ( "<FORM METHOD=POST ACTION=""index.aspx"">" & Chr ( 13 ) ) '105
Response.Write ( "<TR >" & Chr ( 13 ) ) '106
Response.Write ( "" & Chr ( 9 ) & "<TD align=""right""><B>[" ) '107
Response.Write ( BBS_Cate_Name ) '107
Response.Write ( "-]</B>论坛名称：</TD>" & Chr ( 13 ) ) '107
Response.Write ( "" & Chr ( 9 ) & "<TD align=""left"">" & Chr ( 13 ) ) '108
Response.Write ( "" & Chr ( 9 ) & "<INPUT TYPE=""text"" NAME=""searchcontent"">" & Chr ( 13 ) ) '109
Response.Write ( "" & Chr ( 9 ) & "<INPUT TYPE=""hidden"" name=""BBS_Cate_PID"" value=""" ) '110
Response.Write ( BBS_Cate_PID ) '110
Response.Write ( """>" & Chr ( 13 ) ) '110
Response.Write ( "" & Chr ( 9 ) & "<INPUT TYPE=""hidden"" name=""Layer"" value=""" ) '111
Response.Write ( Layer ) '111
Response.Write ( """>" & Chr ( 13 ) ) '111
Response.Write ( "" & Chr ( 9 ) & "<INPUT TYPE=""hidden"" name=""BBS_Cate_Name"" value=""" ) '112
Response.Write ( BBS_Cate_Name ) '112
Response.Write ( """>" & Chr ( 13 ) ) '112
Response.Write ( "" & Chr ( 9 ) & "<INPUT TYPE=""submit"" value=""搜索"">" & Chr ( 13 ) ) '113
Response.Write ( "" & Chr ( 9 ) & "</TD>" & Chr ( 13 ) ) '114
Response.Write ( "</TR>" & Chr ( 13 ) ) '115
Response.Write ( "</FORM>" & Chr ( 13 ) ) '116
Response.Write ( "</TABLE>" & Chr ( 13 ) ) '117
Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellspacing=""3"" cellpadding=""3"">" & Chr ( 13 ) ) '118
Response.Write ( " <tr>" & Chr ( 13 ) ) '119
Response.Write ( " <td> " & Chr ( 13 ) ) '120
Response.Write ( " " ) '121
If AspToAspX_CheckDBNull ( Layer ) = 0 Then '121
Response.Write ( vbCrLf )
Response.Write ( " <a href=""../admin/main.aspx"">管理首页</a>>>一级类别 " & Chr ( 13 ) ) '122
Response.Write ( " " ) '123
End If '123
Response.Write ( vbCrLf )
Response.Write ( " " ) '124
If AspToAspX_CheckDBNull ( Layer ) = 1 Then '124
Response.Write ( vbCrLf )
Response.Write ( " <a href=""../admin/main.aspx"">管理首页</a>>><A HREF=""index.aspx?Layer=0"">一级类别</A> >>" ) '125
Response.Write ( BBS_Cate_Name ) '125
Response.Write ( " " & Chr ( 13 ) ) '125
Response.Write ( " " ) '126
End If '126
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '127
Response.Write ( " </tr>" & Chr ( 13 ) ) '128
Response.Write ( "</table>" & Chr ( 13 ) ) '129
Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellspacing=""1"" cellpadding=""2"" bgcolor=""#999999"">" & Chr ( 13 ) ) '130
Response.Write ( " <tr bgcolor=""#CCCCCC""> " & Chr ( 13 ) ) '131
Response.Write ( " <td width=""10%"" height=""25""> " & Chr ( 13 ) ) '132
Response.Write ( " <div align=""center""><b>编号</b></div></td>" & Chr ( 13 ) ) '133
Response.Write ( " <td width=""9%""> <div align=""center""><b>" ) '134
Response.Write ( Layer_name ) '134
Response.Write ( "</b></div></td>" & Chr ( 13 ) ) '134
Response.Write ( " <td width=""15%""> <div align=""center""><b>主题数量</b></div></td>" & Chr ( 13 ) ) '135
Response.Write ( " <td width=""15%""> <div align=""center""><b>回复数量</b></div></td>" & Chr ( 13 ) ) '136
Response.Write ( " <td width=""11%""> <div align=""center""><b>版主</b></div></td>" & Chr ( 13 ) ) '137
Response.Write ( " <td width=""16%""> <div align=""center""><b>版主Email</b></div></td>" & Chr ( 13 ) ) '138
Response.Write ( " <!--<td><div align=""center""><b>认证版</b></div></td>-->" & Chr ( 13 ) ) '139
Response.Write ( " <td width=""8%""> <div align=""center""><b>状态</b></div></td>" & Chr ( 13 ) ) '140
Response.Write ( " <td width=""8%""> <div align=""center""><b>修改</b></div></td>" & Chr ( 13 ) ) '141
Response.Write ( " <td width=""8%""> <div align=""center""><b>删除</b></div></td>" & Chr ( 13 ) ) '142
Response.Write ( " </tr>" & Chr ( 13 ) ) '143
Response.Write ( " " ) '144
searchcontent = trim ( Request ( "searchcontent" ) ) '145
If AspToAspX_CheckDBNull ( searchcontent ) = EmptyString.Value Then '146
sql = "select * from " & ft & "BBS_Cate where BBS_Cate_PID='" & BBS_Cate_PID & "' order by BBS_ID asc" '147
Else '148
sql = "select * from " & ft & "BBS_Cate where BBS_Cate_PID='" & BBS_Cate_PID & "' and BBS_Cate_Name like '%" & searchcontent & "%' order by BBS_ID asc" '149
End If '150
rs = New ADODB.Recordset ( ) '151
rs.Open ( sql , conn , 3 , 1 ) '152
Do While Not rs.EOF '153
Response.Write ( vbCrLf )
Response.Write ( " <tr bgcolor=""#FFFFFF"" align=center> " & Chr ( 13 ) ) '155
Response.Write ( " <td> " & Chr ( 13 ) ) '156
Response.Write ( " " ) '157
If AspToAspX_CheckDBNull ( Layer ) = 0 Then '157
Response.Write ( vbCrLf )
Response.Write ( " <A HREF=""index.aspx?Layer=" ) '158
Response.Write ( Layer + 1 ) '158
Response.Write ( "&BBS_Cate_PID=" ) '158
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -