📄 main.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 _ADMIN_MAIN
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
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 ( )
Response.Write ( "<HTML>" & Chr ( 13 ) ) '3
Response.Write ( "<HEAD>" & Chr ( 13 ) ) '4
Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '5
Response.Write ( "<TITLE>服务器和系统信息</TITLE>" & Chr ( 13 ) ) '6
Response.Write ( "<base target=""right"">" & Chr ( 13 ) ) '7
Response.Write ( "<link href=""admin.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '8
Response.Write ( "</HEAD>" & Chr ( 13 ) ) '9
Response.Write ( "<BODY>" & Chr ( 13 ) ) '10
Response.Write ( "<table border=""0"" cellpadding=""0"" style=""border: 1px solid #B3DDF8; width: 100%; margin-bottom: 2px;margin-top: 2px; margin-left: 0px; padding: 1px;"">" & Chr ( 13 ) ) '11
Response.Write ( "<tr><td>" & Chr ( 13 ) ) '12
Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=0 align=""center"" cellpadding=0 cellspacing=1 bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '13
Response.Write ( " <tr bgcolor=""#f7f7f7"" CLASS=TR height=18> " & Chr ( 13 ) ) '14
Response.Write ( " <td height=""30"" align=left bgcolor=""#f7f7f7""><strong> FTBBS版本信息</strong></td>" & Chr ( 13 ) ) '15
Response.Write ( " <td height=""30"" align=left bgcolor=""#f7f7f7""> </td>" & Chr ( 13 ) ) '16
Response.Write ( " </tr>" & Chr ( 13 ) ) '17
Response.Write ( " <tr bgcolor=""#f4f4f4"" CLASS=TR height=18> " & Chr ( 13 ) ) '18
Response.Write ( " <td width=""40%"" height=""25"" align=left bgcolor=""#f4f4f4""> 系统名称及版本号</td>" & Chr ( 13 ) ) '19
Response.Write ( " <td width=60% height=""25""><strong>FTBBS<b><strong>最新版</strong></b></strong></td>" & Chr ( 13 ) ) '20
Response.Write ( " </tr>" & Chr ( 13 ) ) '21
Response.Write ( " <tr bgcolor=""#f7f7f7"" CLASS=TR height=18> " & Chr ( 13 ) ) '22
Response.Write ( " <td height=""25"" align=left> 版权信息</td>" & Chr ( 13 ) ) '23
Response.Write ( " <td height=""25""><b>飞天论坛(<strong>FTBBS</strong>)</b>版权所有</td>" & Chr ( 13 ) ) '24
Response.Write ( " </tr>" & Chr ( 13 ) ) '25
Response.Write ( " </table>" & Chr ( 13 ) ) '26
Response.Write ( "<tr><td>" & Chr ( 13 ) ) '27
Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=0 align=""center"" cellpadding=0 cellspacing=1 bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '28
Response.Write ( " <tr bgcolor=""#f4f4f4"" CLASS=TR height=18> " & Chr ( 13 ) ) '29
Response.Write ( " <td height=""30"" colspan=""2"" align=left><strong> 服务器的有关参数 </strong></td>" & Chr ( 13 ) ) '30
Response.Write ( " </tr>" & Chr ( 13 ) ) '31
Response.Write ( " <tr bgcolor=""#f7f7f7"" CLASS=TR height=18> " & Chr ( 13 ) ) '32
Response.Write ( " " & Chr ( 13 ) ) '33
Response.Write ( " <td height=""25"" align=left> 服务器名</td>" & Chr ( 13 ) ) '34
Response.Write ( " " & Chr ( 13 ) ) '35
Response.Write ( " <td width=60% height=""25"">" ) '36
Response.Write ( AspToAspX_GetRequestServerVariables ( "SERVER_NAME" ) ) '36
Response.Write ( "</td>" & Chr ( 13 ) ) '36
Response.Write ( " </tr>" & Chr ( 13 ) ) '37
Response.Write ( " " & Chr ( 13 ) ) '38
Response.Write ( " <tr bgcolor=""#f4f4f4"" CLASS=TR height=18> " & Chr ( 13 ) ) '39
Response.Write ( " <td height=""25"" align=left> 服务器IP</td>" & Chr ( 13 ) ) '40
Response.Write ( " " & Chr ( 13 ) ) '41
Response.Write ( " <td height=""25"">" ) '42
Response.Write ( AspToAspX_GetRequestServerVariables ( "LOCAL_ADDR" ) ) '42
Response.Write ( "</td>" & Chr ( 13 ) ) '42
Response.Write ( " </tr>" & Chr ( 13 ) ) '43
Response.Write ( " <tr bgcolor=""#f7f7f7"" CLASS=TR height=18> " & Chr ( 13 ) ) '44
Response.Write ( " " & Chr ( 13 ) ) '45
Response.Write ( " <td height=""25"" align=left> 服务器端口</td>" & Chr ( 13 ) ) '46
Response.Write ( " " & Chr ( 13 ) ) '47
Response.Write ( " <td height=""25"">" ) '48
Response.Write ( AspToAspX_GetRequestServerVariables ( "SERVER_PORT" ) ) '48
Response.Write ( "</td>" & Chr ( 13 ) ) '48
Response.Write ( " </tr>" & Chr ( 13 ) ) '49
Response.Write ( " " & Chr ( 13 ) ) '50
Response.Write ( " <tr bgcolor=""#f4f4f4"" CLASS=TR height=18> " & Chr ( 13 ) ) '51
Response.Write ( " <td height=""25"" align=left> 服务器时间</td>" & Chr ( 13 ) ) '52
Response.Write ( " " & Chr ( 13 ) ) '53
Response.Write ( " <td height=""25"">" ) '54
Response.Write ( DateAndTime.Now ) '54
Response.Write ( "</td>" & Chr ( 13 ) ) '54
Response.Write ( " </tr>" & Chr ( 13 ) ) '55
Response.Write ( " <tr bgcolor=""#f7f7f7"" CLASS=TR height=18> " & Chr ( 13 ) ) '56
Response.Write ( " " & Chr ( 13 ) ) '57
Response.Write ( " <td height=""25"" align=left> IIS版本</td>" & Chr ( 13 ) ) '58
Response.Write ( " " & Chr ( 13 ) ) '59
Response.Write ( " <td height=""25"">" ) '60
Response.Write ( AspToAspX_GetRequestServerVariables ( "SERVER_SOFTWARE" ) ) '60
Response.Write ( "</td>" & Chr ( 13 ) ) '60
Response.Write ( " </tr>" & Chr ( 13 ) ) '61
Response.Write ( " " & Chr ( 13 ) ) '62
Response.Write ( " <tr bgcolor=""#f4f4f4"" CLASS=TR height=18> " & Chr ( 13 ) ) '63
Response.Write ( " <td height=""25"" align=left> 脚本超时时间</td>" & Chr ( 13 ) ) '64
Response.Write ( " " & Chr ( 13 ) ) '65
Response.Write ( " <td height=""25"">" ) '66
Response.Write ( Server.ScriptTimeout ) '66
Response.Write ( " 秒</td>" & Chr ( 13 ) ) '66
Response.Write ( " </tr>" & Chr ( 13 ) ) '67
Response.Write ( " <tr bgcolor=""#f7f7f7"" CLASS=TR height=18> " & Chr ( 13 ) ) '68
Response.Write ( " " & Chr ( 13 ) ) '69
Response.Write ( " <td height=""25"" align=left> Session过期时间</td>" & Chr ( 13 ) ) '70
Response.Write ( " " & Chr ( 13 ) ) '71
Response.Write ( " <td height=""25"">" ) '72
Response.Write ( Session.Timeout ) '72
Response.Write ( " 分钟</td>" & Chr ( 13 ) ) '72
Response.Write ( " </tr>" & Chr ( 13 ) ) '73
Response.Write ( " " & Chr ( 13 ) ) '74
Response.Write ( " <tr bgcolor=""#f4f4f4"" CLASS=TR height=18> " & Chr ( 13 ) ) '75
Response.Write ( " <td height=""25"" align=left> 服务器解译引擎</td>" & Chr ( 13 ) ) '76
Response.Write ( " " & Chr ( 13 ) ) '77
Response.Write ( " <td height=""25"">" ) '78
Response.Write ( ScriptEngine & "/" & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion ) '78
Response.Write ( "</td>" & Chr ( 13 ) ) '78
Response.Write ( " </tr>" & Chr ( 13 ) ) '79
Response.Write ( " <tr align=center bgcolor=""#f7f7f7"" class=backs height=18> " & Chr ( 13 ) ) '80
Response.Write ( " " & Chr ( 13 ) ) '81
Response.Write ( " <td height=30 colspan=2 CLASS=TD>" & Chr ( 13 ) ) '82
Response.Write ( "<div align=""left""><strong> 所需支持及相关的组件</strong></div></td>" & Chr ( 13 ) ) '83
Response.Write ( " </tr>" & Chr ( 13 ) ) '84
Response.Write ( "" & Chr ( 9 ) & " <tr bgcolor=""#f7f7f7"" CLASS=TR height=18> " & Chr ( 13 ) ) '85
Response.Write ( " <td height=""25"" align=left> Jmail组件(注册邮件认证须此组件支持)</td>" & Chr ( 13 ) ) '86
Response.Write ( " <td>" & Chr ( 13 ) ) '87
Response.Write ( " " ) '88
If Not IsObjInstalled ( "JMail.Message" ) Then '89
Response.Write ( "<font color=red>不支持这个组件</font>" ) '90
Else '91
Response.Write ( "已经支持" ) '92
End If '93
Response.Write ( vbCrLf )
Response.Write ( " </td> " & Chr ( 13 ) ) '95
Response.Write ( "" & Chr ( 9 ) & " </tr>" & Chr ( 13 ) ) '96
Response.Write ( " <tr bgcolor=""#f7f7f7"" CLASS=TR height=18> " & Chr ( 13 ) ) '97
Response.Write ( " " & Chr ( 13 ) ) '98
Response.Write ( " <td height=""25"" align=left> XMLHTTP组件</td>" & Chr ( 13 ) ) '99
Response.Write ( " " & Chr ( 13 ) ) '100
Response.Write ( " <td height=""25"">" & Chr ( 13 ) ) '101
Response.Write ( " " ) '102
If Not IsObjInstalled ( "Microsoft.XMLHTTP" ) Then '103
Response.Write ( "<font color=red>不支持这个组件</font>" ) '104
Else '105
Response.Write ( "已经支持" ) '106
End If '107
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '109
Response.Write ( " </tr>" & Chr ( 13 ) ) '110
Response.Write ( " <tr bgcolor=""#f7f7f7"" CLASS=TR height=18> " & Chr ( 13 ) ) '111
Response.Write ( " " & Chr ( 13 ) ) '112
Response.Write ( " <td height=""25"" align=left> Fso组件 (生成HTML必须此组件支持)</td>" & Chr ( 13 ) ) '113
Response.Write ( " " & Chr ( 13 ) ) '114
Response.Write ( " <td height=""25""> " & Chr ( 13 ) ) '115
Response.Write ( " " ) '116
If Not IsObjInstalled ( "Scripting.FileSystemObject" ) Then '117
Response.Write ( "<font color=red>不支持这个组件</font>" ) '118
Else '119
Response.Write ( "已经支持" ) '120
End If '121
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '123
Response.Write ( " </tr>" & Chr ( 13 ) ) '124
Response.Write ( " <tr bgcolor=""#f7f7f7"" CLASS=TR height=18> " & Chr ( 13 ) ) '125
Response.Write ( " " & Chr ( 13 ) ) '126
Response.Write ( " <td height=""25"" align=left> AspJPEG组件 (水印缩略图组件)</td>" & Chr ( 13 ) ) '127
Response.Write ( " " & Chr ( 13 ) ) '128
Response.Write ( " <td height=""25""> " & Chr ( 13 ) ) '129
Response.Write ( " " ) '130
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -