汕尾交友--中国爱人广东成人交友网

汕尾交友汕尾婚介汕尾同城约会

欢迎汕尾地区的朋友进入中国爱人广东成人交友网，您不但可以在这里结识汕尾本地区的帅哥、邂逅汕尾本地区的美女，亦可结交天下朋友。而且可以通过在线时长、发表文章、发表评论、在线游戏来赚取 LOVE币，系统将自动为您结算。您可以在兑奖中心将LOVE币兑换成现金或者笔记本电脑、数码相机、MP4播放器、毛绒玩具等礼品。

汕尾市，是一九八八年初经国务院批准，以原海、陆丰的行政区域建立起来的地级市。辖海丰、陆丰，陆河三县和市城区，共设置3个办事处、40个镇、10个乡，13个农林场。总面积5271平方公里，总人口213万。全市旅居海外的华侨和港、澳、台同胞近百万人。

汕尾市具有悠久的历史。远在4200年前的新石器时代，先民就在海丰沿海一带聚居生息。公元前221年，海陆丰属南海郡博罗县。东晋咸和六年（公元331年），始建海丰县，陆丰属东海郡海丰县地。清雍正九年（公元1731年）从海丰县析出陆丰县。清初以来，汕尾开埠，沟通海外，逐渐繁荣，曾有“小香港”之称。海陆丰是彭湃烈士的故乡。本世纪二十年代，彭湃同志领导的海陆丰农民运动，在这里开创了中国第一个苏维埃政权。

汕尾市地处粤东沿海，位于东经114度54分至116度13分24"，北纬22度37分40"至23度38分35"之间。地势北高南低，南濒南海的红海湾和碣石湾；北接河源市，与紫金县相连；东邻汕头市，同惠来县交界；西靠惠州市，跟惠东县接壤。这里属亚热带气候，雨量充沛，气候宜人，年平均气温22.1度。水陆交通方便，广汕公路横贯境内，市区距广州市316.5公里、汕头市207公里、深圳市224公里；海运四通八达，往返快捷，汕尾港距香港仅81里，往广州、汕头、厦门港也十分方便，成为粤西与粤东、香港与内地之间经济联系的重要纽带。

中国爱人成人交友网(www.086love.com)成立于2005年11月11日，以最美丽的页面、最先进的技术、为您提供：交友、婚介为中心的相关配套服务。

企业文化：笑迎天下客，广交天下友

↑TOP

<% if request.form("submitok")="add" then if not isnull(request.Cookies("yzlove")("username")) and trim(request.Cookies("yzlove")("username"))=Empty then closeconn call msg("请检查！\n\n只有本站注册会员才可以发表评论","-1") else '发表内容是否为空？ dim content,aid content=replace(replace(replace(request("content"),"'",""),"[",""),"]","") aid=request.form("aid") if aid="" or not isnumeric(aid) then closeconn call msg("非法操作！请求错误。","0") else aid=cint(aid) end if if content="" or len(content)>500 or aid="" then closeconn call msg("请检查！\n\n①发表内容是否为空？\n\n②发表内容是否超过了500字？\n\n③不存在此文章？","-1") end if '是否为非法用户 set rs=server.createobject("adodb.recordset") rs.open "select username,password,loveb,flag,grade from love_main where username='"&request.Cookies("yzlove")("username")&"' and password='"&request.Cookies("yzlove")("password")&"' and flag=1",conn,1,1 IF (rs.State =adStateClosed) or (rs.BOF=true and rs.EOF =true) or rs.RecordCount=0 THEN rs.close:set rs=nothing closeconn call msg("非法操作！请求错误。","-1") Else ' 获取主表的love币值 loveb=rs("loveb") username=rs("username") grade=rs("grade") End If rs.close:set rs=nothing end if '验证通过，进行下一步... If int(grade)>=2 Then '诚信会员或主持人 conn.execute "insert into love_article_bbs(article_id,username,content,addtime,flag)values('"&aid&"','"&username&"','"&content&"','"&now()&"','"&article_bbs_flag&"')" '评论入库 conn.execute "update love_main set loveb='"&(loveb+article_bbs*2)&"' where username='"&username&"'" '更新主表love币总数 call loveb_add(username,article_bbs*2,"诚信会员或主持人发表文章评论200%") '添加币历使记录,在fun.asp中 Elseif grade=1 then'普通会员 conn.execute "insert into love_article_bbs(article_id,username,content,addtime,flag)values('"&aid&"','"&username&"','"&content&"','"&now()&"','"&article_bbs_flag&"')" '评论入库 conn.execute "update love_main set loveb='"&(loveb+article_bbs)&"' where username='"&username&"'" '更新主表love币总数 call loveb_add(username,article_bbs,"发表文章评论") '添加币历使记录,在fun.asp中 End If closeconn Response.redirect "dis_article.asp?Classid="&replace(request("ClassID"),"'","''") end if if request("ifok")="del" then mmdid=request("id") if mmdid="" or not isnumeric(mmdid) then closeconn call msg("非法操作！请求错误。","0") else mmdid=cint(mmdid) end if conn.execute("delete from love_article_bbs where id="&mmdid) Closeconn Response.redirect "dis_article.asp?Classid="&replace(request("ClassID"),"'","''") end if Closeconn%>