首 页| 交友专区 | 征婚专区| 亲密关系专区 | 男女靓照 |
珠海交友 珠海婚介 珠海同城约会

 

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

珠海---新兴的花园式海滨旅游度假城,是中国南海之滨的一颗璀灿的明珠。 她位于珠江入海口,地接澳门,水连香港,是中国五个经济特区之一。

珠海自然环境优美,山清水秀,海域广阔,有一百多个海岛,素有"百岛之市"美称。城市规划和建设独具匠心,突出旅游意识,自然和谐,优雅别致,极富有海滨花园情调的现代气息。1991年,珠海以整体城市形象为景观被国家旅游局评为"中国旅游胜地四十佳"之一。

珠海市的主要旅游景点有大型历史文化景观圆明新园,四大佛山旅游风景区,珍珠乐园,九洲城,珠海鱼女,竹仙洞,金沙滩,白藤湖水乡风情区。正在筹建的有水族馆,海洋公园和板樟山城市观光索道等项目。

 

 

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



企业文化:笑迎天下客,广交天下友


↑TOP

 

Copyright © 2005 086love Inc. All Rights Reserved. Www.086love.com 版权所有

 

<% 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%>