提取与ASP相关的服务器或客户端的一些信息

稿件来源: 太阳光网页设计   撰稿作者: 太阳光   发表日期: 2009-05-11   阅读次数: 322   查看权限: 游客查看

提取与ASP相关的服务器或客户端的一些信息

 

  <%   
    Dim   objBC   
    Set   objBC=Server.CreateObject("MSWC.BrowserType")   
  %>   
  <html><head><style>   
  td         {font-size:   12px}   
  .red     {color:   #D00000}   
  .blue   {color:   #0000D0}   
  </style><meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312">   
  <title>提取与   ASP   相关的服务器或客户端的一些信息</title></head>   
    
  <body   bgcolor=#85a3ff>   
  <center><span   style="width:   760;font-size:28px;color:#f0f000;font-family:隶书;   
  position:relative;filter:glow(color=#0060b0,   strength=5)">   
  <b>提取与</b>   ASP   <b>相关的服务器或客户端的一些信息</b></span></center>   
  <table   border=1   cellSpacing=1   cellPadding=2   align=center   width=710   
    bordercolorlight="#ACDFCC"   bordercolordark="#600000"   bgcolor=#ffffff   ID="Table1">   
       
      <tr><td   class=blue>浏览器端相关信息:</td>   
              <td   class=red   colspan=4>&nbsp;   <%=   Request.ServerVariables("http_user_agent")   %></td></tr>   
      <tr><td   class=blue   width=140>目前网页虚拟路径:</td>   
              <td   class=red   width=177>&nbsp;   <%=   Request.ServerVariables("path_info")   %></td>             
              <td   width=10   rowspan=13   bgcolor=#85a3ff></td>   
              <td   class=blue   width=130>本网页的实际路径:</td>         
              <td   class=red   width=243>&nbsp;   <%=   Request.ServerVariables("path_Translated")   %></td></tr>       
      <tr><td   class=blue>服务器端的IP地址:</td>       
              <td   class=red>&nbsp;   <%=   Request.ServerVariables("local_addr")   %></td>       
              <td   class=blue>服务器软件的版本:</td>   
              <td   class=red>&nbsp;   <%=   Request.ServerVariables("server_software")   %></td>       
      <tr><td   class=blue>服务器连接口编号:</td>   
              <td   class=red>&nbsp;   <%=   Request.ServerVariables("server_port")   %></td>       
              <td   class=blue>服务器的HTTP版本:</td>   
              <td   class=red>&nbsp;   <%=   Request.ServerVariables("server_Protocol")   %></td></tr>       
      <tr><td   class=blue>远程主机的名称:</td>   
              <td   class=red>&nbsp;   <%=   Request.ServerVariables("remote_host")   %></td>         
              <td   class=blue>远程主机的IP地址:</td>       
              <td   class=red>&nbsp;   <%=   Request.ServerVariables("remote_addr")   %></td></tr>       
      <tr><td   class=blue>服务器的名称或IP:</td>       
              <td   class=red>&nbsp;   <%=   Request.ServerVariables("server_name")   %></td>       
              <td   class=blue>描述内容的语系:</td>   
              <td   class=red>&nbsp;   <%=   Request.ServerVariables("http_accept_language")   %></td></tr>   
      <tr><td   class=blue>站点主目录的位置:</td>   
              <td   class=red>&nbsp;   <%=   Server.MapPath("/")   %></td>       
              <td   class=blue>本网页所在位置:</td>   
              <td   class=red>&nbsp;   <%=   Server.MapPath("./")   %></td></tr>       
      <tr><td   class=blue>本网页上一级目录:</td>   
              <td   class=red>&nbsp;   <%=   Server.MapPath("../")   %></td>       
              <td   class=blue>服务器端CGI版本:</td>       
              <td   class=red>&nbsp;   <%=   Request.ServerVariables("gateway_interface")   %></td></tr>       
      <tr><td   class=blue>子与母端联机类型:</td>   
              <td   class=red>&nbsp;   <%=   Request.ServerVariables("http_connection")   %></td>       
              <td   class=blue>浏览器端主机名:</td>   
              <td   class=red>&nbsp;   <%=   Request.ServerVariables("http_host")   %></td></tr>       
      <tr><td   class=blue>用户浏览器的名称:</td>   
              <td   class=red>&nbsp;   <%   =   objBC.Browser   %></td>   
              <td   class=blue>用户浏览器的版本:</td>   
              <td   class=red>&nbsp;   <%   =   objBC.Version   %></td></tr>   
      <tr><td   class=blue>是否BETA测试软件:</td>   
              <td   class=red>&nbsp;   <%   =   objBC.Beta   %></td>   
              <td   class=blue>ActiveXControls:</td>   
              <td   class=red>&nbsp;   <%   =   objBC.ActiveXControls   %></td></tr>   
      <tr><td   class=blue>是否支持背景声音:</td>   
              <td   class=red>&nbsp;   <%   =   objBC.BackgroundSounds   %></td>   
              <td   class=blue>是否支持   Cookies:</td>   
              <td   class=red>&nbsp;   <%   =   objBC.Cookies   %></td></tr>   
      <tr><td   class=blue>是否支持框架网页:</td>   
              <td   class=red>&nbsp;   <%   =   objBC.Frames   %></td>   
              <td   class=blue>是否支持表格网页:</td>   
              <td   class=red>&nbsp;   <%   =   objBC.Tables   %></td></tr>   
      <tr><td   class=blue>支持   JavaScript:</td>   
              <td   class=red>&nbsp;   <%   =   objBC.JavaScript   %></td>   
              <td   class=blue>是否支持VBScript:</td>   
              <td   class=red>&nbsp;   <%   =   objBC.VBScript   %></td></tr>   
  </table>   
  <%   Set   objBC=Nothing   %>   
  </body>   
  </html>

关键词: 服务器信息,asp   编辑时间: 2013-09-16 14:27:42

  • 感到高兴

    1

    高兴
  • 感到支持

    0

    支持
  • 感到搞笑

    0

    搞笑
  • 感到不解

    0

    不解
  • 感到谎言

    0

    谎言
  • 感到枪稿

    0

    枪稿
  • 感到震惊

    0

    震惊
  • 感到无奈

    0

    无奈
  • 感到无聊

    0

    无聊
  • 感到反对

    0

    反对
  • 感到愤怒

    0

    愤怒
50%(1)
50%(1)
上一篇:js通用解析XML
下一篇:asp判断浏览器
共有0 条评论 发言请遵守【相关规定

网友评论

会员头像
发 表同步腾讯微博    验证码:  点击更新请先登陆
  • 暂无评论
关闭模块文章图片 article Pictrue
  • 我的妈妈爸爸
  • 基于koa2+mysql+vue2.0+Element阳光内容管理系统
  • 代码覆盖率工具 Istanbul 入门教程
  • 全栈工程师的武器——MEAN
  • 9款超炫的 CSS3 复选框(Checkbox)
  • 微信开发在线翻译功能
  • CSS3那些不为人知的高级属性
  • 给easyui的datebox添加清空事件
  • flash写字效果
  • kendoUI系列教程之DropDownList下拉菜单
  • kendoUI系列教程之datetimepicker日期时间选择
  • kendoUI系列教程之datepicker日期选择
  • kendoUI系列教程之combobox下拉列表框
  • kendoUI系列教程之colorpicker
  • kendoUI系列教程之calendar日历表
  • kendoUI系列教程之autocomplete自动补齐