天枫常用的ASP函数封装如下(9)

   system="webzip"
  elseif Instr(info,"flashget")>0 then
   system="flashget"
  elseif Instr(info,"offline")>0 then
   system="offline"
  elseif Instr(info,"NT 5")>0 then
   system="Windows 2000"
  elseif Instr(info,"NT 4")>0 then
   system="Windows NT4"
  elseif Instr(info,"98")>0 then
   system="Windows 98"
  elseif Instr(info,"95")>0 then
   system="Windows 95"
  elseif instr(info,"unix") or instr(info,"linux") or instr(info,"SunOS") or instr(info,"BSD") then
   system="类Unix"
  elseif instr(thesoft,"Mac") then
   system="Mac"
  else
   system="其它"
  end if
 End Function

 '****************************************************
 '函数名：GetUrl
 '作  用：获取url包括参数
 '返回值：获取url包括参数
 '****************************************************
 Public Function GetUrl()   
  Dim strTemp     
  strTemp=Request.ServerVariables("Script_Name")      
  If  Trim(Request.QueryString)<> "" Then
   strTemp=strTemp&"?"
   For Each M_item In Request.QueryString
    strTemp=strTemp&M_item&"="&Server.UrlEncode(Trim(Request.QueryString(""&M_item&"")))
   next
  end if
  GetUrl=strTemp   
 End Function 

 '****************************************************
 '函数名：CUrl
 '作  用：获取当前页面URL的函数
 '返回值：当前页面URL的函数
 '****************************************************
 Function CUrl()
  Domain_Name = LCase(Request.ServerVariables("Server_Name"))
  Page_Name = LCase(Request.ServerVariables("Script_Name"))
  Quary_Name = LCase(Request.ServerVariables("Quary_String"))
  If Quary_Name ="" Then
   CUrl = "http://"&Domain_Name&Page_Name
  Else
   CUrl = "http://"&Domain_Name&Page_Name&"?"&Quary_Name
  End If
 End Function

    '****************************************************
 '函数名：GetExtend
 '作  用：取得文件扩展名
 '参  数：filename ----文件名