incspec.asp

网络公司源码,有需要的朋友可以看一下,我感觉还不错

<%
	'----------------------------
	'蜘蛛信息获取代码,保存为incSpec.asp文件,调用即可
	'---------------------------
	dim userip,urlhead,urlPar,userID,urlString,Retrieval
	urlhead = Request.ServerVariables("ALL_HTTP")
	userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")

	'以下为用户名,请改为你注册时申请的用户名
	userID = "cm0413"

	urlPar = Request.ServerVariables("URL")
	if trim(Request.ServerVariables("QUERY_STRING")) <> "" then urlPar = urlPar&"?"&Request.ServerVariables("QUERY_STRING")
	urlString ="http://data.seolm.com/?id="&userID&"&Par="&urlPar&"&ip="&userip&"&head="&urlhead
	Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
	With Retrieval 
  	.Open "Get",urlString,False,"",""
  	.Send 
	End With 
	Set Retrieval = Nothing 
%>