<%
dim Num
if request.Cookies("csall")=Empty then
Response.Cookies("csall").expires=dateadd("m",1,now())
Response.Cookies("csall")=1
elseif request.Cookies("csall")>=7 then
Response.Cookies("csall").expires=dateadd("m",1,now())
Response.Cookies("csall")=1
else
Response.Cookies("csall").expires=dateadd("m",1,now())
Response.Cookies("csall")=request.Cookies("csall")+1
end if
Num=request.Cookies("csall")
Select Case Num
case 1
response.redirect("http://www.gjzy.com")
case 2
response.redirect("http://bbs.gjzy.com/")
case 3
response.redirect("http://www.51667826.com/")
case 4
response.redirect("http://a.gjzy.com/")
case 5
response.redirect("http://www.gjzy.com/jiameng/")
case 6
response.redirect("http://www.gjzy.com/zhuanjia/")
case else
response.redirect("http://www.gjzy.com/")
end select
'response.write num
%>