www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/common/admin_main_inc.asp
<% Sub adminuserinfo() %> <h2><b>个人信息</b></h2> <table width="100%" cellspacing="0" cellpadding="0" class="info_tab2"> <tr class="zq"> <td width="48%">帐 号:<font class="t5"> <%=admin25175(1)%></font></td> <td width="52%"> 姓 名:<font class="t5"> <%=admin25175(2)%></font></td> </tr"> <tr class="zq"> <td>身 份:管理员</td> <td>身份过期:<font class="t5"><%=admin25175_time%> </font></td> </tr> <tr class="zq"> <td>上线次数: <font class="t5"> <%=loads%></font></td> <td>上线时间:<font class="t5"> <%=admin25175(4)%></font></td> </tr> </table> <% End Sub Sub configinfo() %> <h2><b>系统信息</b></h2> <table width="100%" cellspacing="0" cellpadding="0" class="info_tab2"> <tr class="zq"> <td width="48%">现在时间:<font class="t5"> <%=year(now())%>年<%=month(now())%>月<%=day(now())%>日<%=hour(now())%>:<%=minute(now())%></font></td> <td width="52%">IP:<font class="t5"> <%=Request.ServerVariables("REMOTE_ADDR")%></font></td> </tr> <tr class="zq"> <td>服务器域名:<font class="t5"> <%=Request.ServerVariables("server_name")%> / <%=Request.ServerVariables("Http_HOST")%></font></td> <td>返回服务器处理请求的端口:<%=Request.ServerVariables("APPL_MD_PATH")%></td> </tr> <tr class="zq"> <td>脚本解释引擎:<font class="t5"> <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></font></td> <td>脚本超时时间:<%=Server.ScriptTimeout%>秒</td> </tr> <TR class="zq"> <TD>服务器操作系统:<%=Request.ServerVariables("OS")%></TD> <TD>服务器CPU数量:<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>个</TD></TR> <tr class="zq"> <td>服务器软件的名称:<font class="t5"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></font></td> <td> </td> </tr> <tr class="zq"> <td>FSO文本读写: <%If Not IsObjInstalled(theInstalledObjects(9)) Then%> <font color="red"><b>×</b></font> <%else%> <b>√</b> <%end if%> </td> <td>数据库使用: <%If Not IsObjInstalled(theInstalledObjects(10)) Then%> <font color="red"><b>×</b></font> <%else%> <b>√</b> <%end if%> </td> </tr> <tr class="zq"> <td>Jmail组件支持: <%If Not IsObjInstalled(theInstalledObjects(13)) Then%> <font color="red"><b>×</b></font> <%else%> <b>√</b> <%end if%> </td> <td>CDONTS组件支持: <%If Not IsObjInstalled(theInstalledObjects(14)) Then%> <font color="red"><b>×</b></font> <%else%> <b>√</b> <%end if%> </td> </tr> </table> <% End Sub %>