main.asp

后台默认管理账号密码：admin 后台主要功能如下：一、系统管理：管理员管理

<!--#include file="toptable.asp"-->
<%
'=================================
'   良精科技企业管理系统
'   QQ在线客服:65961930 82993936
'   咨询定购Tel:010-81991660
'      [e-mail] 
'        www.liangjing.net
'  copyright(c)2001-2008 HoverCms 2007特别版
'=================================
%>
<%
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")

sqltext="select * from Hover_Admin where username='"+Session("Name")+"'"
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("Name")="xu256" then
		realname="Xu256"
	else
		Response.End
	end if	
end if
rs.Close
%>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<table width="97%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
  <tr>
    <td colspan="2" class="title"><div align="center" class="title">网站信息统计</div></td>
  </tr>
  <tr>
    <td colspan="2" class="title2"><li>后台操作管理员：<%=Session("Name")%> </td>
  </tr>
  <tr>
    <td colspan="2" class="title3">本程序由 <a href="http://www.liangjing.net/" target="_blank"> 良精科技[liangjing.net] </a> 授权给 <font class="t4"><%=realname%></font> 使用，当前使用版本为 HoverCms(商业版)，数据库为 ACCESS</td>
  </tr>
  <tr>
    <td width="25%" class="table"><li>管理员名：<span class="title2"><%=Session("Name")%></span></td>
    <td width="75%" class="table"><li>脚本解释引擎： <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> </td>
  </tr>
  <tr>
    <td width="25%" class="table"><li>待过期时间：<%=Session.timeout%> 分钟 </td>
    <td class="table"><li>服务器域名：<%=Request.ServerVariables("server_name")%> / <%=Request.ServerVariables("Http_HOST")%> </td>
  </tr>
  <tr>
    <td class="table"><li>上线次数： <%=logincount%></td>
    <td class="table"><li>服务器软件名称：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
  </tr>
  <tr>
    <td class="table"><li>现在时间：<%=year(now())%>年<%=month(now())%>月<%=day(now())%>日<%=hour(now())%>:<%=minute(now())%></td>
    <td class="table"><li>浏览器版本：<%=Request.ServerVariables("Http_User_Agent")%></td>
  </tr>
  <tr>
    <td colspan="2" class="title3"><div align="right"><a href="chkserver.asp">◎更多服务器配置检测...</a></div></td>
  </tr>
</table>
<br>
<table width="97%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
  <tr>
    <td colspan="2" class="title"><div align="center" class="title"> 网站管理数据</div></td>
  </tr>
  <tr>
    <td class="title2"><span class="items"><span style="font-weight: bold">管理员信息</span></span></td>
    <td class="title2"><span class="items"><span style="font-weight: bold">网站事务概览</span></span></td>
  </tr>
  <tr>
    <td width="25%" class="table">
	<%=realname%>，欢迎您使用本站后台管理系统。<br>
    &nbsp;您本次登录的IP为：<%=request.ServerVariables("REMOTE_ADDR")%></td>
    <td width="75%" class="table">
	<li><a href="Hover_Admin_Pass_edit.asp?ID=<%=idcount%>">修改口令&gt;&gt;</a>
	
	<li><a href="Hover_Help.asp">系统帮助&gt;&gt;</a></td>
  </tr>
</table>
<br>

<table width="97%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
  <tr>
    <td colspan="2" class="title"><div align="center" class="title">网站相关信息</div></td>
  </tr>
  <tr>
    <td colspan="2" class="title3">本程序由<a href="http://www.liangjing.net/">良精科技[liangjing.net]</a>开发。</td>
  </tr>
  <tr>
    <td width="25%" class="table"><li>产品开发</td>
    <td width="75%" class="table"><li><a href="http://www.liangjing.net" target="_blank">良精科技Web开发组</a><br>
    <li>项目负责：Happy</td>
  </tr>
  <tr>
    <td class="table"> <li>联系方法</td>
    <td class="table"><li>官方网站：<a href="http://www.liangjing.net/" target="_blank">http://www.liangjing.net</a><br>
    <li>业务咨询：QQ:82993936 MSN: <a href="mailto:[e-mail]">[e-mail]</a></td>
  </tr>
</table>
<br />
<table width="97%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
  <tr>
    <td class="title"><div align="center" class="title">网站管理工具</div></td>
  </tr>
  <tr>
    <td class="items"><b>更新配置缓存</b></td>
  </tr>
  <tr>
    <td class="table"><li><span class="items">刷新缓存中的网站配置信息：</span>
        <input type="submit" name="Submit" value="更新配置缓存"  class="btn2" /></td>
  </tr>
  <tr>
    <td class="items"><b>官方通知</b></td>
  </tr>
  <tr>
    <td class="table"><li>程序将连接到良精科技官方网站索取最近的更新、通知等信息。</td>
  </tr>
  <tr>
    <td class="items"><b>最新更新</b></td>
  </tr>
  <tr>
    <td class="table">&nbsp;&gt;&gt;&gt;获取更多信息，请访问<a href="http://www.liangjing.net" target="_blank">http://www.liangjing.net</a></td>
  </tr>
</table>
<br>
<%
sub discreteness
%>
<table width="97%" border=0 align="center" cellpadding=3 cellspacing=1   class="tableBorder">
<tr  class="title">
<td width="57%" height="25" class="title" >&nbsp;组件名称</td>
<td width="41%" height="25" class="title">支持及版本</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 ><TD  class=table >&nbsp;" & theInstalledObjects(i) & " &nbsp;"
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 " </td><td height=25  class=table >"
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 %>