<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
	font-weight: bold;
}
.STYLE31 {color: #666666; font-size: 12px;}
.style91 {color: #60A7E5}
-->
</style>
</head>
<body>
<%
if MemberName="" then%>
 <p align="center" class="STYLE31"><br><br> 对不起！游客无法留言。如果你还是不是本站会员，请您<a href="newsreg.asp" target="_blank">注册</a>后登陆本站进行此操作。如果您已经是本站会员，请<a href="userlogin.asp" target="_blank">登陆</a>。<br> <br> </p>
<%  response.end
end if
%>
<%
dim personid

personid=trim(ReplaceBadChar(request.QueryString("userid")))

toupiao=request.Cookies("user"& personid &"")("toupiao")
if toupiao="" then toupiao=0

if toupiao=0 or clng(toupiao)<>clng(userid) then
  sql1="update user_info set outnum=outnum+1 where userid ="& personid 
  conn.execute(sql1)
  Response.Cookies("user"& personid &"").Expires=DateAdd("d",1,Date)
  Response.Cookies("user"& personid &"")("toupiao")=userid
else
  response.Write "<div align='center' style='font-size:14px'><p><br><br>抱歉，您已经为此会员投过一票，不能连续投票。<br><br><a href='userzq.asp?user_id="&personid&"' class='a5'>确定返回</a>&nbsp;&nbsp;</p></div>"
  response.end
end if

conn.close
set conn=nothing

response.Write "<div align='center' style='font-size:14px'><p><br><br>恭喜，您已经成功的为此会员投完一票！<br><br><a href='userzq.asp?user_id="&personid&"' class='a5'>确定返回</a>&nbsp;&nbsp;</p></div>"
%>
</body>
</html>
