1.��վ���սٳ�
��̬ҳ����ҳͨ����php����asp,aspx�ļ�������жθ��룬�ж������֩����ʾ��ı������ݣ��ڱ�������д����ϵ��ʽ�ͷƿ������ϣ���������֩����ʾͳ����ġ�
��̬ҳ����ҳ����������������ɾ�����.html�ļ������inde.php��php��д�������������䣬�����֩��ͷ������˱������ҳ���ݣ����ǿͷ����������ݡ�
���սٳֱƚ����ᣬ���������˽ٳ֣��ٶ��ϻ��ǻ���ʾ�ܳ�һ��ʱ��ķƿ�������ϣ��
�������£�
<%
function getbot()
'��ѯ֩��
dim s_agent
getbot=""
s_agent=request.servervariables("http_user_agent") '�ؼ��ж����
if instr(1,s_agent,"googlebot",1) >0 then
getbot="google"
end if
if instr(1,s_agent,"msnbot",1) >0 then
getbot="msn"
end if
if instr(1,s_agent,"slurp",1) >0 then
getbot="yahoo"
end if
if instr(1,s_agent,"baiduspider",1) >0 then
getbot="baidu"
end if
if instr(1,s_agent,"sohu-search",1) >0 then
getbot="sohu"
end if
if instr(1,s_agent,"lycos",1) >0 then
getbot="lycos"
end if
if instr(1,s_agent,"robozilla",1) >0 then
getbot="robozilla"
end if
end function
function gethttppage(path)
t = getbody(path)
gethttppage=bytestobstr(t,"gb2312")'����
end function
function newstring(wstr,strng)
newstring=instr(lcase(wstr),lcase(strng))
if newstring<=0 then newstring=len(wstr)
end function
function getbody(url)
on error resume next
set retrieval = createobject("microsoft.xmlhttp")
with retrieval
.open "get", url, false, "", ""
.send
getbody = .responsebody
end with
set retrieval = nothing
end function
function bytestobstr(body,cset)
dim objstream
set objstream = server.createobject("adodb.stream")
objstream.type = 1
objstream.mode =3
objstream.open
objstream.write body
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
set objstream = nothing
end function
dim wstr,str,url,start,over,dtime
if getbot="baidu" then
'���ٶ�֩�붨�ƶ�����
url="http://baidu.seowhy.com"
'��ҫչʾ��֩���ҳ���ַ
wstr=gethttppage(url)
body=wstr
response.write ""&body&""
response.end
elseif getbot="google" then
'��google ֩�붨�ƶ�����
url="http://baidu.seowhy.com"
wstr=gethttppage(url)
body=wstr
response.write ""&body&""
response.end
end if
2.�������������ٳ�
���ֽٳֱȿ��սٳּ