sitefloor.asp

来自「企业办公简单管理系统,可以发布信息以及论坛」· ASP 代码 · 共 58 行

<%
'浏览器显示
function browser(text)
	if Instr(text,"MSIE 5.5")>0 then
		browser="IE 5.5"
	elseif Instr(text,"MSIE 6.0")>0 then
		browser="IE 6.0"
	elseif Instr(text,"MSIE 5.01")>0 then
		browser="IE 5.01"
	elseif Instr(text,"MSIE 5.0")>0 then
		browser="IE 5.00"
	elseif Instr(text,"MSIE 4.0")>0 then
		browser="IE 4.01"
		else
		browser="未知"
	end if
end function

infoname = Request.Servervariables("HTTP_USER_AGENT") 
if Instr(infoname,"NT 5.1")>0 then
	dosystem="Windows XP"
elseif Instr(infoname,"NT 5")>0 then
	dosystem="Windows 2000"
elseif Instr(infoname,"NT 4")>0 then
	dosystem="Windows NT 4"
elseif Instr(infoname,"98")>0 then
	dosystem="Windows 98"
elseif Instr(infoname,"NT 95")>0 then
	dosystem="Windows 95"
end if

%>
<table width="700" cellpadding=5 cellspacing=1 class=tableborder1 align=center>

  <TR>
    <Th align=left height=25>-=> 用户来访信息</Th>
  </TR>
  <TR>
     <TD vAlign=top class=tablebody1 height=25 width=100% >
	您的真实<b>ＩＰ</b> 是：<%=useripi%>，<b>
	操作系统</b>：<%=dosystem%>，<b>
	浏 览 器</b>：<%=browser(Request.ServerVariables("HTTP_USER_AGENT"))%>
	</TD>
  </TR>
 </table>
<table width=651 border=0 align="center" cellpadding="2" cellspacing="0">
  <tr> 
    <td height="42" align="center"><%
			endtime=timer()
			response.write("页面运行时间："&FormatNumber((endtime-startime)*1000,3)&"毫秒")
		%><br>
      <b>三道技术研究院 Powered by：<b>Kangzh</b>  Copyright@2005 
      - 2008 
      
    </td>
  </tr>
</table>