您还有
<%
'telephone = Request.Cookies("sj")
'qq = Request.Cookies("qq")
id = Request.Cookies("id")
if id <> "" then
sql_count= " select * from bonus_user where ID="&id&" "
Set rs_count = server.createobject("adodb.recordset")
rs_count.open sql_count,conn,1,1
rsCount = rs_count.RecordCount
do while not rs_count.eof
intPercent = rs_count("Score")
rs_count.movenext
loop
response.Write(""&intPercent&"")
else
response.Write("0")
end if
%>
次机会!
邀请链接通过各种平台及邮箱发给你好友，成功
邀请一个朋友参加活动，可额外获得一次抽奖会！
<%
dim url
url=url&"http://"&request.ServerVariables("HTTP_HOST")&request.ServerVariables("SCRIPT_NAME")
if id <> "" then
url =url&"?id="&id
end if
%>
<%
sql = " select a.*,b.PrizeName,c.LinkUser,c.LinkWay from (bonus_won a left join bonus_prize b on a.PrizeID=b.PrizeID) left join bonus_user c on cint(a.UserName) = c.ID order by a.wontime desc "
Set rs = Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
tel = left(rs("LinkWay"),3)&"****"&right(rs("LinkWay"),4)
response.Write("
