<% Session_onEnd() %>
+ 产品中心
印刷ERP系统
中小型印刷ERP系统
营业管理系统
印刷估价/报价软件
印刷拼版软件
+ 新闻与分享
  新闻中心
印刷ERP手册
+ 客户服务中心
中为服务方法
远程演示帮助
+ 关于中为
  中为是怎样的一家公司?
  招兵买马
留言给中为
  联系中为
<% Sub Session_onEnd() On Error Resume Next dim clientip,wwwroot,tim,prewww '取客户端真实IP clientip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") '如果客户端用了代理服务器,则用Request.ServerVariables("REMOTE_ADDR")方法只能得到空值,则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 If clientip ="" Then clientip = Request.ServerVariables("REMOTE_ADDR") '如果客户端没用代理,则Request.ServerVariables("HTTP_X_FORWARDED_FOR")得到是空值,应该用Request.ServerVariables("REMOTE_ADDR")方法 'clientip=request.servervariables("remote_addr") myself = Request.ServerVariables("PATH_INFO") tim=now() 'prewww=Request.UrlReferrer.ToString() keyw=request.servervariables("Query_String") prewww=request.servervariables("HTTP_REFERER") 'cc=Request.ServerVariables("Server_name") 'dd=Request.servervariables("SERVER_PROTOCOL") mdbFile = "data/#zhongwei.asp" SQL = "Select * From stats" Set rs = GetSecuredMdbRecordset( mdbFile, SQL, mdbPassword ) rs.addnew rs("ip")=clientip rs("nowwww")=myself if prewww="" then prewww="直接进入" rs("prewww")=prewww rs("keyw")=keyw rs("starttime")=now() rs("opersys")=operationsystem rs("browser")=browser rs("language")=language rs.update Set rs = Nothing end sub function language() '客户端语言 templanguage=lcase(request.servervariables("http_accept_language")) select case templanguage case "en-uk" language="英文" case "zh-tw" language="台湾" case "zh-hk" language="香港" case "fr-fr" language="英文" case "en-uk" language="法文" case "zh-cn" language="中文简体" case else language=templanguage end select end function function operationsystem() '操作系统版本 agent = Request.ServerVariables("HTTP_USER_AGENT") if Instr(agent,"NT 5.2")>0 then SystemVer="Windows Server 2003" elseif Instr(agent,"NT 5.1")>0 then SystemVer="Windows XP" elseif Instr(agent,"NT 5")>0 then SystemVer="Windows 2000" elseif Instr(agent,"NT 4")>0 then SystemVer="Windows NT4" elseif Instr(agent,"4.9")>0 then SystemVer="Windows ME" elseif Instr(agent,"98")>0 then SystemVer="Windows 98" elseif Instr(agent,"95")>0 then SystemVer="Windows 95" else SystemVer="未知" end if operationsystem=SystemVer end function function browser() '浏览器版本 agent = Request.ServerVariables("HTTP_USER_AGENT") if Instr(agent,"MSIE 6.0")>0 then browserVer="Internet Explorer 6.0" elseif Instr(agent,"MSIE 5.5")>0 then browserVer="Internet Explorer 5.5" elseif Instr(agent,"MSIE 5.01")>0 then browserVer="Internet Explorer 5.01" elseif Instr(agent,"MSIE 5.0")>0 then browserVer="Internet Explorer 5.00" elseif Instr(agent,"MSIE 4.0")>0 then browserVer="Internet Explorer 4.0" else browserVer="未知" end if browser=browserVer if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT browser=browser&" |目前正使用TencentTraveler" end if end function '--------------------------------------------------- Function GetSecuredMdbRecordset( FileName, Source, Password ) Set GetSecuredMdbRecordset = GetMdbRs( FileName, Source, 2, Password ) End Function '--------------------------------------------------- Function GetSecuredMdbConnection( FileName, Password ) Dim Provider, DBPath Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" DBPath = "Data Source=" & Server.MapPath(FileName) Set GetSecuredMdbConnection = GetConnection( Provider & DBPath & ";Jet OLEDB:Database Password=" & Password ) End Function '--------------------------------------------------- Function GetMdbStaticRecordset( FileName, Source ) Set GetMdbStaticRecordset = GetMdbRs( FileName, Source, 3, "" ) End Function '--------------------------------------------------- Function GetMdbConnection( FileName ) Dim Provider, DBPath Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" DBPath = "Data Source=" & Server.MapPath(FileName) Set GetMdbConnection = GetConnection( Provider & DBPath ) End Function '--------------------------------------------------- Function GetMdbRecordset( FileName, Source ) Set GetMdbRecordset = GetMdbRs( FileName, Source, 2, "" ) End Function '--------------------------------------------------- Function GetConnection( Param ) Dim conn On Error Resume Next Set GetConnection = Nothing Set conn = Server.CreateObject("ADODB.Connection") If Err.Number <> 0 Then Exit Function conn.Open Param If Err.Number <> 0 Then Exit Function Set GetConnection = conn End Function '--------------------------------------------------- Function GetMdbRs( FileName, Source, Cursor, Password ) Dim conn, rs On Error Resume Next Set GetMdbRs = Nothing If Len(Password) = 0 Then Set conn = GetMdbConnection( FileName ) Else Set conn = GetSecuredMdbConnection( FileName, Password ) End If If conn Is Nothing Then Exit Function Set rs = Server.CreateObject("ADODB.Recordset") If Err.Number <> 0 Then Exit Function rs.Open source, conn, Cursor, 2 If Err.Number <> 0 Then Exit Function Set GetMdbRs = rs End Function %>