www.gusucode.com > 凡人网络购物系统 2008源码程序 > tj_ven.asp
<% style=Request("style") theurl="http://" & Request.ServerVariables("http_host") & finddir(Request.ServerVariables("url")) %> document.write("<script>var style='<%=style%>';var url='<%=theurl%>';</script>") _dwrite("<script language=javascript src="+url+"/tj_stat.asp?style="+style+"&referer="+escape(document.referrer)+"&screenwidth="+(screen.width)+"></script>"); function _dwrite(string) {document.write(string);} <% Function finddir(filepath) 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 %>