📄 sysadmin_view.asp
字号:
<!--#include file="bsconfig.asp"-->
<%
'=========================================================
'
' 产品名称：良精集团软件科技 公司(企业)网站管理系统（简称：liangjing.net）
' 版权所有：liangjing.net
' 程序制作：liangjing开发团队
' 联系方式：QQ 2113269
' Copyright 2004-2005 liangjing.net - All Rights Reserved.
'
'========================================================
%>
<%
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
sqltext="select * from Bs_Admin where username='"+Session("AdminName")+"'"
rs.Open sqltext,conn,1,1
if not rs.EOF then
realname=trim(rs("realname"))
logincount=rs("logincount")
LastLoginTime=rs("LastLoginTime")
idcount=rs(0)
else
if Session("AdminName")="bossia" then
realname="bossia"
else
Response.End
end if
end if
rs.Close
%>
<html>
<head>
<title>您的信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Inc/bs.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {font-size: 12px; color: #000; font-family: 宋体}
td {font-size: 12px; color: #000; font-family: 宋体;}
.t1 {font:12px 宋体;color:#000000}
.t2 {font:12px 宋体;color:#ffffff}
.t3 {font:12px 宋体;color:#ffff00}
.t4 {font:12px 宋体;color:#800000}
.t5 {font:12px 宋体;color:#191970}
.font1 { font-family: "宋体"; font-size: 12px; color: #000000}
.font2 { font-family: "黑体"; font-size: 20px; font-weight: bold; color: #000000}
.font3 { font-family: "宋体"; font-size: 12px; color: #FFFFFF}
A.r1:link {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:visited {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:hover {font-size:12px;text-decoration:underline;color:#cc0000;}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table cellpadding="2" cellspacing="1" border="0" width="95%" align="center" class="a2">
<tr>
<td class="a1" colspan="2" height="25" align="center"><b>系统信息</b></td>
</tr>
<tr class="a4">
<td width="50%" height="23">用户名：<font class="t4"> <%=Session("AdminName")%></font></td>
<td width="50%">身 份：<font class="t4"> <%=realname%></font></td>
</tr>
<tr class="a4">
<td width="50%" height="23">身份过期：<font class="t4"><%=Session.timeout%> 分钟</font></td>
<td width="50%">现在时间：<font class="t4"> <%=year(now())%>年<%=month(now())%>月<%=day(now())%>日<%=hour(now())%>:<%=minute(now())%></font></td>
</tr>
<tr class="a4">
<td width="50%" height="23">上线次数： <font class="t4"><%=logincount%></font></td>
<td width="50%">上线时间：<font class="t4"> <%=LastLoginTime%></font></td>
</tr>
<tr class="a4">
<td width="50%" height="23">服务器域名：<font class="t4"> <%=Request.ServerVariables("server_name")%>
/ <%=Request.ServerVariables("Http_HOST")%></font></td>
<td width="50%">脚本解释引擎：<font class="t4"> <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></font></td>
</tr>
<tr class="a4">
<td width="50%" height="23">服务器软件的名称：<font class="t4"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></font></td>
<td width="50%">浏览器版本：<font class="t4"> <%=Request.ServerVariables("Http_User_Agent")%></font></td>
<!-- <td width="50%">ACCESS 数据库路径：<a target="_blank" href="<%=datapath%><%=datafile%>"><%=datapath%><%=datafile%></a></td> -->
</tr>
</table>
<br>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="95%" align="center" class="a2">
<tr>
<td class="a1" colspan="2" height="25" align="center"><b>管理快捷方式</b></td>
</tr>
<tr class="a4">
<td width="20%" height="23">快捷功能链接</td>
<td width="80%" height="23"><a href="Bs_Help.asp"><font color="000000">系统帮助</font></a>
| <a href="sysadmin_count_list.asp"><font color="000000">网站访问情况</font></a>
| <a href="Bs_AdminPass_Edit.asp?ID=<%=idcount%>"><font color="000000">修改口令</font></a>
</td>
</tr>
</table>
<br><br>
<table cellpadding="2" cellspacing="1" border="0" width="95%" align="center" class="a2">
<tr class="a4">
<td class="a1" colspan="2" height="25" align="center"><b>liangjing.net
</b></td>
</tr>
<tr class="a4">
<td width="20%">产品开发</td>
<td width="80%"> 良精软件科技有限公司 </td>
</tr>
<tr class="a4">
<td width="20%" height="23">产品负责</td>
<td width="80%">liangjing.net</td>
</tr>
<tr class="a4">
<td width="20%" height="23">联系方法</td>
<td width="80%"> msn:asp3721@hotmail.com<br>
Q Q:65961930<br>
网址：http://www.liangjing.net/<br>
地址：中国 北京市 海淀区</td>
</tr>
</table>
<BR>
<%
sub discreteness
%>
<table border=0 width="95%" cellspacing=1 cellpadding=3 class=a2 align=center>
<tr class=a1>
<td width="57%" height="25"> 组件名称</td><td width="41%" height="25">支持及版本</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 class=a3><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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -