sysconfig.asp

财务预算管理 财务支出

<!--#include file="Inc/Conn.asp"-->
<%
Dim StarTime,Style_Copy
Dim username
startime=timer()
username=replace(session("username"),"'","")
if username="" then
	call CloseConn()
%>
<script language='javascript'>top.location='Login.asp';</script>
<%
'	response.redirect "login.asp"
else
dim rsadmin,sqladmin,admin_realname,admin_lastloginip,admin_lastlogintime,admin_logintimes,admin_idcount,admin_quanli,admin_guikou_id
set rsadmin= Server.CreateObject("ADODB.Recordset")
sqladmin="select * from Admin where username='"+Session("username")+"'"
rsadmin.Open sqladmin,conn,1,1
if not rsadmin.EOF then
	admin_realname=trim(rsadmin("realname"))
	admin_lastloginip=trim(rsadmin("lastloginip"))
	admin_LastLoginTime=rsadmin("LastLoginTime")
	admin_logintimes=rsadmin("logintimes")
	admin_idcount=rsadmin(0)
	admin_quanli=rsadmin("quanli")
    admin_guikou_id=rsadmin("guikou_id")
else
end if
rsadmin.Close
end if
%>
<!--  -->
<%
sub htmlend
%>

<table cellpadding="2" cellspacing="1" border="0" width="100%" align="center" class="a2">
  <tr> 
    <td width="100%" height="25" align="center" class="a1"><b>系统信息</b></td>
  </tr>
  <tr class="a4"> 
    <td height="23"><p><font class="t4">登陆名： <%=Session("username")%><font class="t4"><font class="t4">上线时间：<font class="t4"> <%=admin_LastLoginTime%><font class="t4"><font class="t4">身份过期：<font class="t4"><%=Session.timeout%> 分钟 </font></font></font></font></font></font>真实姓名：<font class="t4"> 
        <%=admin_realname%> 现在时间：<font class="t4"> <%=year(now())%>年<%=month(now())%>月<%=day(now())%>日<%=hour(now())%>:<%=minute(now())%><font class="t4"><br>
        </font></font></font></font><font class="t4"><font class="t4"><font class="t4"><font class="t4"> 
        <font class="t4"><font class="t4"><font class="t4"><font class="t4"><font class="t4"></font></font></font></font></font>登陆次数：<font class="t4"><font class="t4"><font class="t4"><%=admin_logintimes%></font></font></font>最后登陆IP：<%=admin_lastloginip%>服务器域名：<font class="t4"> <%=Request.ServerVariables("server_name")%> / <%=Request.ServerVariables("Http_HOST")%></font></font></font></font></font></p>
      </td>
  </tr>
</table>
<br>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="100%" 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"><font class="t4">快捷功能链接</font></td>
		
    <td width="80%" height="23"><font class="t4"><a href="help.asp">系统帮助</a></font> 
      | <font class="t4"><a href="Pass_Edit.asp?ID=<%=admin_idcount%>">修改口令</a> 
      </font> </td>
	</tr>
</table>
<p align=center class="t1">版权所有：荆州市新飞跃数码有限公司</p>
<%
end sub
%>