📄 admin_index_main.asp
字号:
<!--#include file="../inc/Conn.asp"-->
<!--#include file="Admin.asp"-->
<%
Dim theInstalledObjects(17)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
%>
<%
set rs = Server.CreateObject("ADODB.Recordset")
sqltext="select * from Admin where username='"+Session("AdminName")+"'"
rs.Open sqltext,conn,1,1
if not rs.EOF then
LoginTimes=rs("LoginTimes")
LastLoginTime=rs("LastLoginTime")
idcount=rs(0)
end if
rs.Close
%>
<!--#include file="inc/head.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=392 rowSpan=2><img height=126
src="image/adminmain01.gif" width=392></TD>
<TD vAlign=top background=image/adminmain0line2.gif
height=114> </TD>
</TR>
<TR>
<TD vAlign=bottom background=image/adminmain03.gif
height=9><IMG height=12 src="image/adminmain02.gif"
width=23></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=3 width="100%" border=0>
<TBODY>
<TR>
<TD align=right width="34%" height=87><TABLE cellSpacing=0 cellPadding=0 width="94%" border=0>
<TBODY>
<TR>
<TD><font class="t4"><%=Session("AdminName")%></font>您好， </TD>
</TR>
<TR>
<TD vAlign=top>今天是<font class="t4">
<SCRIPT language=JavaScript
src="inc/date.js"
type=text/JavaScript></SCRIPT></font></TD>
</TR>
<TR>
<TD vAlign=top><IMG src="image/img_u.gif"
align=absMiddle>上线时间：<font class="t4"><%=LastLoginTime%></font><br>
<IMG
src="image/img_u.gif"
align=absMiddle>身份过期：<font class="t4"><%=Session.timeout%>分钟</font> <img
src="image/img_u.gif"
align=absMiddle>上线次数：<font class="t4"><%=LoginTimes%></font> <br>
<IMG
src="image/img_u.gif"
align=absMiddle>现在时间：<font class="t4"><%=year(now())%>年<%=month(now())%>月<%=day(now())%>日<%=hour(now())%>:<%=minute(now())%></font></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width="2%"><TABLE cellSpacing=0 cellPadding=0 width=3 border=0>
<TBODY>
<TR>
<TD width=3 bgColor=#1890cc height=65></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD
width="64%">欢迎您进入<span class="spa"><%=SiteName & "--后台管理"%></span>网站后台管理系统！在这里您可以利用系统提供的强大功能，便捷的后台管理功能，栏目无限级分类，产品管理，新闻管理，招聘管理等功能有效地管理网站。您可以随时使用顶部的<FONT
color=#ff0000>关闭左栏</FONT>功能关闭或打开左边的管理导航，以扩展操作界面。</TD>
</TR>
<TR>
<TD colSpan=3 height=5></TD>
</TR>
</TBODY>
</TABLE>
<table cellpadding="2" cellspacing="1" border="0" width="100%" align="center" class="border">
<tr>
<td class="topbg" colspan="2" height="25" align="center"><b>管理快捷方式</b></td>
</tr>
<tr>
<td width="20%" height="23" class=tdbg>快捷功能链接</td>
<td width="80%" height="23" class=tdbg><a href="http://www.glgk.com"><font color="000000">
官方主站</font></a> | <a href="Admin_Manage.asp"><font color="000000">管理员管理</font></a>
| <a href="Admin_Order.asp">询价处理</a></td>
</tr>
</table>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="100%" align="center" class="border">
<tr>
<td class="topbg" colspan="2" height="25" align="center"><b>系统信息</b></td>
</tr>
<tr>
<td width="48%" height="23" class=tdbg>用户名：<font class="t4"> <%=Session("AdminName")%></font></td>
<td width="52%" class="tdbg">IP：<font class="t4"> <%=Request.ServerVariables("REMOTE_ADDR")%></font></td>
</tr>
<tr>
<td width="48%" height="23" class=tdbg>服务器域名：<font class="t4"> <%=Request.ServerVariables("server_name")%> / <%=Request.ServerVariables("Http_HOST")%></font></td>
<td width="52%" class="tdbg">脚本解释引擎：<font class="t4"> <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></font></td>
</tr>
<tr>
<td height="23" class=tdbg>服务器软件的名称：<font class="t4"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></font></td>
<td class="tdbg">浏览器版本：<font class="t4"> <%=Request.ServerVariables("Http_User_Agent")%></font></td>
</tr>
<tr>
<td height="23" class=tdbg>FSO文本读写：
<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%> </td>
<td class="tdbg">数据库使用：
<%If Not IsObjInstalled(theInstalledObjects(10)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%> </td>
</tr>
<tr>
<td width="48%" height="23" class=tdbg>Jmail组件支持：
<%If Not IsObjInstalled(theInstalledObjects(13)) Then%> <font color="red"><b>×</b></font> <%else%> <b>√</b> <%end if%> </td>
<td width="52%" class="tdbg">CDONTS组件支持：
<%If Not IsObjInstalled(theInstalledObjects(14)) Then%> <font color="red"><b>×</b></font> <%else%> <b>√</b> <%end if%> </td>
<!-- <td width="50%">ACCESS 数据库路径：<a target="_blank" href="<%=datapath%><%=datafile%>"><%=datapath%><%=datafile%></a></td> -->
</tr>
</table>
<br>
<%
sub discreteness
%>
<table border=0 width="100%" cellspacing=1 cellpadding=2 class=border align=center>
<tr class=a1 >
<td width="57%" height="25" class="topbg"> 组件名称</td>
<td width="41%" height="25" class="topbg">支持及版本</td>
</tr>
<%
Dim theInstalledObjects(17)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "MSWC.PermissionChecker"
theInstalledObjects(7) = "ADODB.Stream"
theInstalledObjects(8) = "adodb.connection"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "SoftArtisans.FileUp"
theInstalledObjects(11) = "SoftArtisans.FileManager"
theInstalledObjects(12) = "JMail.Message"
theInstalledObjects(13) = "CDONTS.NewMail"
theInstalledObjects(14) = "Persits.MailSender"
theInstalledObjects(15) = "LyfUpload.UploadFile"
theInstalledObjects(16) = "Persits.Upload.1"
theInstalledObjects(17) = "w3.upload"
For i=0 to 17
Response.Write "<TR bgcolor='#f0f0f0'><TD> " & theInstalledObjects(i) & "<font color=888888> "
select case i
case 8
Response.Write "(ACCESS 数据库)"
case 9
Response.Write "(FSO 文本文件读写)"
case 10
Response.Write "(SA-FileUp 文件上传)"
case 11
Response.Write "(SA-FM 文件管理)"
case 12
Response.Write "(JMail 邮件发送)"
case 13
Response.Write "(WIN虚拟SMTP 发信)"
case 14
Response.Write "(ASPEmail 邮件发送)"
case 15
Response.Write "(LyfUpload 文件上传)"
case 16
Response.Write "(ASPUpload 文件上传)"
case 17
Response.Write "(w3 upload 文件上传)"
end select
Response.Write "</font></td><td height=25>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<b>√</b> " & getver(theInstalledObjects(i)) & ""
End If
Response.Write "</td></TR>" & vbCrLf
Next
%>
</table>
<%
end sub
''''''''''''''''''''''''''''''
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
''''''''''''''''''''''''''''''
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function
discreteness
htmlend %>
<!-- #include file="Inc/Foot.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -