strInfo=1

sub checkInstall()
	strInfo=0
end sub

sub InstallInfo()
if strInfo=0 then 
	msgbox "你没有安装QQ空间克隆客户端,请点确定安装!",16,"安装提醒"
	document.location.href="Install.asp"
else
	
		document.location.href="l.asp?u=http://127.0.0.1:8008"
	
end if
end sub