stat.asp

此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了。完全后台操作。

<%
TheUrl="http://" & Request.ServerVariables("http_host") & FindDir(Request.ServerVariables("url"))
%>
var url='<%=TheUrl%>';
document.write("<a href='"+url+"Infolist.asp' target='_blank' >");
document.write("<img src='"+url+"Count.asp?Referer="+escape(top.document.referrer)+"&webURL="+escape(top.document.URL)+"&Width="+escape(screen.width)+"&Height="+escape(screen.height)+"' border=0 width=50 height=12>");
document.write("</a>");
<%
Function FindDir(FilePath)
  dim i,abc
	FindDir=""
	for i=1 to len(FilePath)
	if left(right(FilePath,i),1)="/" or left(right(FilePath,i),1)="\" then
	  abc=i
	  exit for
	end if
	next
	if abc <> 1 then
	FindDir=left(FilePath,len(FilePath)-abc+1)
	end if
end Function
%>