<%Response.Buffer=True%>
<%
Dim txtName,rdoSex,rdoCT,VarNum
VarNum=Request.Cookies("intVisit")
txtName=Request.Cookies("txtName")
rdoSex=Request.Cookies("rdoSex")
rdoCT=Request.Cookies("rdoCT")
IF VarNum<>"" AND txtName<>"" AND rdoSex<>"" AND rdoCT<>"" Then
VarNum=cInt(VarNum)+1
Response.Cookies("intVisit")=VarNum
Response.Cookies("txtName")=txtName
Response.Cookies("rdoSex")=rdoSex

Response.Cookies("intVisit").Expires=DateAdd("d",cInt(rdoCT),date())
Response.Cookies("rdoCT").Expires=DateAdd("d",cInt(rdoCT),date())
Response.Cookies("txtName").Expires=DateAdd("d",cInt(rdoCT),date())
Response.Cookies("rdoSex").Expires=DateAdd("d",cInt(rdoCT),date())

Select Case rdoSex
Case "male"
Response.Write txtName & "先生您好，你是第" & VarNum & "次光临本站"
Case "female"
Response.Write txtName & "小姐您好，你是第" & VarNum & "次光临本站"
End Select
Else
Response.Redirect "cookies.asp"
End If


%>