📄 admin.asp
字号:
<!--
'========================================================================================
' 文 件 名: admin.asp
' 版 本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 说 明: 管理首页 | 请勿自行修改该处文件源代码，以确保程序正确的执行
' 文件日期: 2005-12-24
' 设 计 者： 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网 站: http://lingfengnet.com,
' 电子邮件: wfr@zknu.edu.cn
' 联系ＱＱ: 85112407
'========================================================================================
-->
<%@language=vbscript codepage=936 %>
<!-- #include file="inc/setup.asp" -->
<!-- #include file="inc/sub_inc.asp" -->
<!-- #include file="inc/ip_purview.asp" -->
<%flg="man"%>
<!-- #include file="inc/purview.asp" -->
<!-- #include file="inc/checkru.asp" -->
<%
Dim theInstalledObjects(1)
theInstalledObjects(1) = "Scripting.FileSystemObject"
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<html>
<head>
<title><%= lingfengnet_ms_language_title_admin %></title>
<%
call htmlmeta()
%>
<link rel="stylesheet" href="style/css/<%=lingfengnet_ms_web_css%>.css" type="text/css">
</head>
<body >
<%
call htmltop()
%>
<br>
<%
call htmladminmen()
%>
<br>
<table width="<%=lingfengnet_ms_web_w%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="bgc2">
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr class="bgc">
<td height=20 width=25% class="bgc">
<table width="99%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="30" valign="middle">
<div align="center"><%=lingfengnet_ms_language_admin_mes_1%>（<font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Arial, Helvetica, sans-serif">LF
Message SyStem</font></b></font>）</div>
</td>
</tr>
<tr>
<td height="1" valign="middle" class="bgc2"></td>
</tr>
<tr>
<td height="150" valign="middle">
<table cellpadding="2" cellspacing="1" border="0" width="95%" align="center" class="a2">
<tr>
<td class="a1" height="25" align="center">
<div align="left"><b><%=lingfengnet_ms_language_admin_mes_2%></b></div>
</td>
</tr>
<tr >
<td height="50" valign="top"> <ul>
<li><%=lingfengnet_ms_language_admin_mes_3%><br>
</li>
<li><%=lingfengnet_ms_language_admin_mes_4%><br>
</li>
<li><%=lingfengnet_ms_language_admin_mes_5%><br>
</li>
<li><%=lingfengnet_ms_language_admin_mes_6%></li>
</ul>
</td>
</tr>
</table>
<table cellpadding="2" cellspacing="1" border="0" width="95%" align="center" class="a2">
<tr>
<td class="a1" colspan="2" height="25" align="center">
<div align="left"><b><%=lingfengnet_ms_language_admin_mes_7%></b></div>
</td>
</tr>
<tr >
<td width="50%" height="23"><%=lingfengnet_ms_language_admin_mes_8%><%=Request.ServerVariables("server_name")%>
/ <%=Request.ServerVariables("LOCAL_ADDR")%></td>
<td width="50%"><%=lingfengnet_ms_language_admin_mes_9%><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr >
<td width="50%" height="23"><%=lingfengnet_ms_language_admin_mes_10%><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
<td width="50%"><%=lingfengnet_ms_language_admin_mes_11%>
<%If Not IsObjInstalled(theInstalledObjects(1)) Then%>
<font color="red"><b>×</b> （<%=lingfengnet_ms_language_admin_mes_12%>）</font>
<%else%>
<b>√</b> （<%=lingfengnet_ms_language_admin_mes_13%>）
<%end if%>
</td>
</tr>
</table>
<table cellpadding="2" cellspacing="1" border="0" width="95%" align="center" class="a2">
<tr>
<td class="a1" height="25" align="center"><div align="left"><b><%=lingfengnet_ms_language_admin_mes_14%></b></div></td>
</tr>
<tr >
<td height="50" valign="middle"><ul>
<li>
<%=lingfengnet_ms_language_admin_mes_15%><%=Request.ServerVariables("server_name")%> <%=lingfengnet_ms_language_admin_mes_16%><%=Request.ServerVariables("LOCAL_ADDR")%> <%=lingfengnet_ms_language_admin_mes_17%></li>
</ul>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" valign="middle" class="bgc2"></td>
</tr>
<tr>
<td height="100" valign="middle">
<table cellpadding="2" cellspacing="1" border="0" width="95%" align="center" class="a2">
<tr >
<td width="50%"><%=lingfengnet_ms_language_admin_mes_18%><br>
<%=lingfengnet_ms_language_admin_mes_19%><br>
<%=lingfengnet_ms_language_admin_mes_20%><font face="Arial, Helvetica, sans-serif">85112407<br>
<%=lingfengnet_ms_language_admin_mes_21%><br>
<%=lingfengnet_ms_language_admin_mes_22%><a href="mailto:admin@lingfengnet.com">admin@lingfengnet.com</a><br>
<%=lingfengnet_ms_language_admin_mes_23%><a href="http://lingfengnet.com" target="_blank">http://lingfengnet.com</a> </font></td>
<td height="50" width="50%"> </td>
</tr>
</table>
<font face="Arial, Helvetica, sans-serif"> </font> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table width="<%=lingfengnet_ms_web_w%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
</td>
</tr>
</table>
</body>
</html>
<%
call htmlend()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -