〈% if session(“refresh”)〈〉 1 then Session(“refresh”)=session(“refresh”) 1 Response.redirect “index.asp” End if %〉 |
〈% Dim fsoObject Dim tsObject dim file if Request.ServerVariables(HTTP_X_FORWARDED_FOR)= then response.write 无代理访问 response.end end if Set fsoObject =Server.CreateObject(scrīpting.FileSystemObject) file = server.mappath(CCLog.txt) if not fsoObject.fileexists(file) then fsoObject.createtextfilefile,true,false end if settsObject = fsoObject.OpenTextFile(file,8) tsObject.WritelineRequest.ServerVariables(HTTP_X_FORWARDED_FOR)&[&Request.ServerVariables(REMOTE_ADDR)&]&now() Set fsoObject = Nothing Set tsObject =Nothing response.write有代理访问 %〉 |
原帖由 houzeal 于 2009-7-27 12:55 发表
这里至少访问了2次数据库,如果数据库的体积有200MB大小,系统很可能就要在这200MB大小的数据空间搜索一遍,这需要多少的CPU资源和时间?如果我是查找一个关键字,那么时间更加可观 ...
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) | Powered by Discuz! X3.2 |