<%Call OpenData()%>
<% Set oRs=Conn.Execute("select WebName,Company from Sbe_WebConfig",1,1) Response.Write ("技术支持:"&oRs(1)&"") oRs.Close:set oRs=Nothing %>
 管 理员 : <%=ucase(session("name"))%>  <%call Geet()%>
 登陆时间: <%=DATE()%>
 登 陆IP : <%=request.serverVariables("remote_host")%>
管理员权限说明
 <%Call check_name_str(session("manconfig"))%>
<%Call CloseDataBase()%> <% sub Geet() TD=hour(now) if TD<12 then str="早上好!" elseif TD<18 then str="下午好!" else str="晚上好!" end if response.write(str) end sub Private Sub check_name_str(strID) arry=split(strID,",") for i=0 to ubound(arry) Call check_name(arry(i)) next End Sub %>