<%MDBname="news"%> <% 'on error resume next set conn=server.createobject("ADODB.CONNECTION") 'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(""&MDBpath&"../databases/data/"&MDBname&".asp") '如果你的服务器采用较老版本Access驱动,请用下面连接方法 connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(""&MDBpath&"../databases/data/"&MDBname&".asp") conn.open connstr %> <% newshu=2 '每个分类显示最新文章数 toplen=10 toplen_wz=13 chalen=2 search=search&"
" search=search&"

" search=search&"" search=search&"" search=search&"" set rs=server.CreateObject("ADODB.RecordSet") set rs_info=server.CreateObject("ADODB.RecordSet") set rs_yl=server.CreateObject("ADODB.RecordSet") set rs_t=server.CreateObject("ADODB.RecordSet") function Title(content) if content<>"" then Title=content Title=replace(Title,"[加粗]","") Title=replace(Title,"[倾斜]","") Title=replace(Title,"[下划线]","") Title=replace(Title,"[删除线]","") if instr(1,Title,"",1)<>0 then Title=Title+"" if instr(1,Title,"",1)<>0 then Title=Title+"" if instr(1,Title,"",1)<>0 then Title=Title+"" if instr(1,Title,"",1)<>0 then Title=Title+"" Title=replace(Title,"[红色]","") Title=replace(Title,"[蓝色]","") Title=replace(Title,"[绿色]","") Title=replace(Title,"[紫色]","") Title=replace(Title,"[酱色]","") Title=replace(Title,"[橙色]","") if instr(1,Title,"0 then Title=Title+"" Title=replace(Title,"[建议]","[建议]") Title=replace(Title,"[注意]","[注意]") Title=replace(Title,"[下载]","[下载]") Title=replace(Title,"[公告]","[公告]") Title=replace(Title,"[转载]","[转载]") Title=replace(Title,"[焦点]","[焦点]") Title=replace(Title,"[社会]","[社会]") Title=replace(Title,"[推荐]","[推荐]") Title=replace(Title,"[原创]","[原创]") end if End function function Site_Link(showType,showNum) dim link_i,link_ii link_i=0 link=0 if showType=1 then sql="select top "&showNum&" * from SiteLink where isLogo=1 order by DateTime" Rs.open sql,conn,1,1 if not(Rs.eof and Rs.bof) then do while not Rs.eof Site_Link = Site_Link & ""&vbcrlf link = link + 2 if link mod 6 =1 then Site_Link=Site_Link&"
" end if Rs.movenext loop end if rs.close else sql="select top "&showNum&" * from SiteLink where isLogo=0 order by DateTime" Rs.open sql,conn,1,1 if not(Rs.eof and Rs.bof) then do while not Rs.eof Site_Link = Site_Link & ""&rs("mySiteName")&""& vbcrlf link_i = link_i + 1 if link_i mod 8 =0 then Site_Link=Site_Link&"
" end if Rs.movenext loop end if rs.close end if end function strSite_Link_Text=Site_Link(0,8) strSite_Link_Logo=Site_Link(1,24) i=0 sql="select top 30 title,id,dj,date from info where date>Now()-7 order by hits desc" rs.open sql,conn,1,1 if rs.eof then top="还没有文章" else do while not rs.eof filetop=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) if instr(rs("Title"),"0 then toplen1=toplen+20 if len(rs("Title"))>toplen1 then titley=left(rs("Title"),toplen1)&"
"&"..." else titley=rs("Title")&"
" end if else if len(rs("Title"))>toplen then titley=left(rs("Title"),toplen_wz)&"" else titley=rs("Title") end if end if if rs("dj")=6 then Txtop=Txtop&"·"&Title(titley)&"
" else Txtop=Txtop&"·"&Title(titley)&"
" end if i=i+1 if i>=30 then exit do rs.movenext loop end if rs.close '今日导读开始 i=0 sql="select top 12 id,title,tid,date from info order by date desc" rs.open sql,conn,1,1 if rs.eof then infolist="·还没有文章" else for i=1 to 12 if rs.eof then exit for rs_t.open "select * from infotype where id="&rs("tid"),conn,1,1 if not rs_t.EOF then TN=split(rs_t("tname"),"|") end if rs_t.close filetop=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) datetime=year(rs("date"))&"_"&month(rs("date"))&"_"&day(rs("date"))'时间格式:年/月/日 datetime1=month(rs("date"))&"/"&day(rs("date"))'时间格式:月/日 '今日导读标题断行开始 if len(rs("Title"))>17 then titley=left(rs("Title"),17)&"..." else titley=rs("Title") end if '今日导读标题断行结束 infolist=infolist&""&lm&"·"&Title(titley)&"
" rs.movenext next end if rs.close '今日导读结束 rs2=conn.execute("select count(*) from info where year(date)&month(date)&day(date)=year(date())&month(date())&day(date())") shuinfo=rs2(0) Dim list_4(20) Dim list_5(20) Dim list_6(20) sql="select * from specialx where tj=1 and spics<>''" rs.open sql,conn,1,1 if NOT rs.EOF then do while not rs.eof kk=kk+1 SN=split(rs("sname"),"|") for i = 0 to ubound(SN)-1 next SSY_name=SN(0) list_4(kk)=""&SSY_name&"
"&rs("introduce")&"" list_5(kk)="" rs.MoveNext loop end if rs.close sql="select * from specialx where tj=1 and spics=''" rs.open sql,conn,1,1 if NOT rs.EOF then do while not rs.eof tt=tt+1 SN=split(rs("sname"),"|") for i = 0 to ubound(SN)-1 next SSY_name=SN(0) list_6(tt)=""&SSY_name&"" rs.MoveNext loop end if rs.close rs.open "select * from infotype ",conn,1,1 if not rs.eof then ts=rs("ts") TN=split(rs("tname"),"|") TI=split(rs("ts"), ",") for i = 0 to ubound(TN)-1 if i=ubound(TN)-2 and ubound(TN)>1 then TTY_id=TI(i) TTY_name=TN(i) end if all_type_top_id=TI(i) all_type_name=TN(i) thistype=thistype & "-> "&TN(i)&"" thistitle=thistitle & " - "&TN(i)&"" next end if rs.close i=0 sql="select * from info where pic<>'' and commend='1' order by date desc" rs.open sql,conn,1,1 if rs.eof then image="还没有图片文章" else do while not rs.eof if instr(rs("Title"),"0 then toplen1=toplen+20 if len(rs("Title"))>toplen1 then titley=left(rs("Title"),toplen1)&"
"&"..." else titley=rs("Title")&"
" end if else if len(rs("Title"))>toplen then titley=left(rs("Title"),toplen)&"" else titley=rs("Title") end if end if fileimg=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) noid=noid&" and id<>"&rs("id")&"" i=i+1 if rs("dj")=6 then image=image&"" else image=image&"" end if pic=rs("pic") pic=Replace(pic, "../../", "") image=image& "
"&titley&"
" if i=6 then exit do rs.movenext loop end if rs.close '公告开始 sql="select top 1 id,newsname,addtime,newsnote from Announce order by addtime desc" rs.open sql,conn,1,1 if rs.eof then infolist="·还没有公告" else do while not rs.eof Announce=Announce&""&rs("newsnote")&"["&rs("addtime")&"]
" rs.movenext loop end if rs.close '图文混排开始 i=0 sql="select * from info where pic<>'' and commend='1' order by date desc" rs.open sql,conn,1,1 if rs.eof then DefaultPic="还没有图片文章" else do while not rs.eof infoy=left(rs("info"),108)&"..." if instr(rs("Title"),"0 then if len(rs("Title"))>10 then titley=left(rs("Title"),toplen1)&"
"&"..." else titley=rs("Title")&"" end if else if len(rs("Title"))>1 then titley=left(rs("Title"),16)&"..." else titley=rs("Title") end if end if fileimg=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) noid=noid&" and id<>"&rs("id")&"" i=i+1 if rs("dj")=6 then DefaultPic=DefaultPic&"" else DefaultPic=DefaultPic&"" end if pic=rs("pic") pic=Replace(pic, "../", "") DefaultPic=DefaultPic&"
"&Titley&"

  "&infoy&"[详细报道]" if i>=1 then exit do rs.movenext loop end if rs.close '图文混排结束 list=list&"" rs.open "select * from infotype where tj=1 order by id",conn,1,1 if NOT rs.EOF then allshu=rs.recordcount Dim list_1(20) Dim list_2(20) Dim list_3(20) do while NOT rs.EOF ii=ii+1 list=list&""&split(rs("tname"),"|")(rs("tj")-1)&"|" list_1(ii)=""&split(rs("tname"),"|")(rs("tj")-1)&"" list_2(ii)="

更多内容 ...
" i=0 sqqq_yl="" sql_yl="select * from infotype where ts like '"&rs("ts")&"%'" rs_yl.open sql_yl,conn,1,1 if not rs_yl.eof then do while not rs_yl.eof sqqq_yl=sqqq_yl& " or tid="&rs_yl("id")&"" rs_yl.MoveNext loop end if rs_yl.close rs_info.open "select id,title,dj,date from info where tid="&rs("id")&""&sqqq_yl&" order by id desc",conn,1,1 if NOT rs_info.EOF then do while not rs_info.eof fileming=year(rs_info("date"))&month(rs_info("date"))&day(rs_info("date"))&hour(rs_info("date"))&minute(rs_info("date"))&second(rs_info("date")) if instr(rs_info("Title"),"0 then chalen1=chalen+20 if len(rs_info("Title"))>chalen1 then titlex=left(rs_info("Title"),chalen1)&""&"..." else titlex=rs_info("Title")&"" end if else if len(rs_info("Title"))>chalen then titlex=left(rs_info("Title"),chalen)&"..." else titlex=rs_info("Title") end if end if if rs_info("dj")=6 then list_3(ii)=list_3(ii)&"["&split(rs("tname"),"|")(rs("tj")-1)&"]"&Title(titlex)&""&datetime1&"
" else list_3(ii)=list_3(ii)&"["&split(rs("tname"),"|")(rs("tj")-1)&"]"&Title(titlex)&""&datetime1&"
" end if i=i+1 if i>=newshu then exit do rs_info.movenext loop end if rs_info.close rs.MoveNext loop end if rs.close set rs=nothing set rs_yl=nothing set rs_info=nothing conn.close set conn=nothing%> 香港文汇报珠三角新闻网_不一般的情人,也有权握着——同一朵玫瑰

您的位置:首页 > 综合新闻 > 其他类别

 

不一般的情人,也有权握着——同一朵玫瑰

 

wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:0 时间:2006-2-12


爱情无大小,幸福没疆界。很有可能,今天在这里出现的每一个群体都离你的生活相当遥远。在他们的心里,情人节不是烛光晚餐朱古力,而是如何「正常」地出门去或是睡上一天的「夫妻房」。也许你永远也理解不了他们的愿望,但是他们的感情却跟你别无二样。在这个粉红色的日子里,无论是你们,我们,还是他们,都有权手握同一朵玫瑰。

 

民工情侣「实在」:情人节住上夫妻房

 

 小郭和妻子都在东莞一间工厂打工,两个人的工资加起来不到1,700块。因为工厂里住的都是男女分开来的集体宿舍。所以为了能尽可能的节约开支,他们只好分别住在各自的集体宿舍里。

 

 高中毕业的小郭在学校的时候,知道西方的「情人节」。当记者问起他们今年情人节希望怎么过的时候。他有些羞涩的告诉记者,现在他上夜班,妻子上白班,两个人平常见面的机会也不多。如果情人节他和妻子能住上夫妻房,一起聊聊家常,那么就感觉很浪漫了。

 

 东莞是一座农民工高度集中的城市,据保守估计,这一群体的数量至少在800万以上,他们大多分散在1万多家外资企业和数十万民营企业中,其中有不少夫妻在同一单位打工。可是,除了个别企业为打工夫妻设立夫妻房之外,东莞绝大部分企业安排的都是集体宿舍。小郭情人节的渴望其实也代表了东莞很多农民工夫妻的心声。

 

疼爱女友:想送她一个机会

 

 广西来的小覃和女朋友小蓝都是82年生的,两个人都在学校的时候就相爱了。中专毕业之后结伴到东莞来打工。现在两个人都在一家玩具厂上班,因为在学校学的东西和现在的工作并不对口,所以薪水很低。提到情人节,小覃说他最想送给女朋友的除了一支红玫瑰之外,就是一个培训的机会。

 

 原来,小覃的女朋友小蓝是一个很有上进心的女孩子,她一直很想参加报关员的培训,从而考取报关员证,这样他们的收入就会提高,两个人的前途也将更明朗一些。

 

考验男友:浪漫实惠过好节

 

 对于在济南打工的21岁张欣来说「玫瑰,礼物,烛光晚餐,这些洋东西又贵又不实用。两个人能在一起,实实在在的就好。」今年的情人节,张欣已经收到了男友一起吃晚餐的邀请。不过张欣心里也有自己的想法。「想两个人在一起好好聊聊,说说知心话,然后一起去逛逛泉城路商业街。」她说来济南这么久,自己还一次没去过。虽然能浪漫一点更好,但张欣还是希望不要花太多的钱,「毕竟我们打工的收入都不高。」用较少的钱表达自己的爱意,过一个既浪漫又实惠的情人节也是考验男友的重要指标。如果表现良好,那张欣就打算把他带回家见见自己的父母,让这段「地下情」正式浮出水面。毕竟「在农村,见过双方父母才算真正的男女朋友。」综合本报珠三角新闻中心记者赵鹏飞及驻山东记者杨奕霞 实习记者矫雅楠11日电

 

学生情侣「游戏」:情人节是和好友吃朱古力

 

 话剧专业的学生晓磊正策划着如何与自己的女友共同度过他们的第一个情人节,在他的眼中,爱一个人就是要陪伴她度过每一个春夏秋冬。他表示,他理想中的情人节是由惊喜,浪漫和刺激交织而成的。虽然现在还是学生,没有什么稳定的经济来源,但是他依旧准备用自己演出赚来的钱为女友送上一份大礼铂金戒指。他理想中的情人节将是在他工作以后才能奉献给女友的,到时候他要将真正的戒指亲自戴到女友手上。

 

 相比之下,年龄小的学生仔更把这个节日当成一个浪漫的「游戏」。

 在广州中山路流行前线,几台照大头贴的机器已被围得水泄不通,主要是身着校服的男女学生,有的凑在一起选择背景图案,有的在欣赏已经拍出的靓照。一般是15元钱拍10张。

 

 「快点,到你们去拍情侣照了!」在几名女同学的起哄声中,一名男生拉起一名女生,兴奋地走到一台机器前,盖好布帘拍大头贴,几分钟后,两人拿到了「情侣照」,还没来得及看,已经被几名女生抢过去看,两人也笑着回抢,都显得十分开心。

 

 记者注意到,学生情侣选择的大头贴背景大多是天长地久、永结同心之类的心形画面,就像新婚夫妇留念拍照一样。

 

 当问到情人节是甚么时,正在逛街的初一学生小优不假思索地表示,情人节不就是买朱古力和好朋友一起吃吗?而她的同学认为,情人节是要送公仔给好朋友。还有同学认为,情人节是要向自己喜欢的人表白,只要是喜欢的都可以表白,所以有的学生会买很多礼物给不同的好朋友。不过,多数学生在接受记者采访时表示,她们并不是想过情人节,只是觉得有这么一个节日,而这个节日又听起来这么浪漫,所以买点礼物给好朋友凑个热闹,这并不代表她们就是要去找男朋友,要去谈恋爱了。

 

家长反对 专家宽容

 

 对于孩子过节,家长普遍持反对态度。「我都几十岁人了还没过情人节,如今的孩子怎么这样?」家长林先生颇为担忧地表示,如今西方的节日不断涌进国内,商家为了经济利益,每次到了过洋节就大肆宣传促销,而孩子们就喜欢热闹,喜欢赶潮流,看到到处都是「情人节快乐」,孩子之间自然也流行过起情人节来了。但这根本不属于未成年孩子过的节日,实在有点荒唐,应该引起重视。但也有专家对此只是宽容一笑:把孩子的浪漫,当游戏吧。综合北京新闻中心记者马静、实习记者张萌及信息时报11日报道

 

网络情侣「纯爱」:无同居之实,但以相爱为名

 

 一种源自台湾的同居方式最近在内地网络方兴未艾,如果你够IN,和素未谋面的TA在以爱为名的网络里共住同一屋檐下吧,而记者发现,亦有部分香港青少年PC用户参与这样的网络同居中,在他们的网络爱情家园里,同住、种花、饲养宠物。情人节来临了,网络同居的爱侣们通过虚拟花束购买,虚拟的家居装修,一样可以体验真实的情人节的温馨与浪漫。如爱情公寓(i-partment)的情人节告示高喊:「快来自选各式各样的包装纸、缎带花、小礼物,搭配上您锺意喜欢的花朵,搭配成一束独一无二最能代表您个人心意的花礼,送给心仪的对象吧!别致浪漫的情侣套房、琳琅满目的情人节家饰,以及充满浓浓节日气氛的日记、档案背景将伴随您度过这个最不一样的白色情人节。」ID为「风影」的21岁香港少女,情人节未到就收到了「同居密友」的两束虚拟鲜花,她用同居公寓里的对话框表达自己的喜悦:「好多谢你啊,你对我咁好(这样好)。」本报珠三角新闻中心记者王放广州11日电

 

同志情侣「低调」:情人节须「麻痹」外人

 

 面对即将到来的情人节,同性恋的朋友是又爱又愁,到哪里过节成了他们最头痛的问题,无论是吃饭逛街,两个同性者在情人节相携而行都会引人侧目。记者了解到,为避人耳目,男同性恋情侣与女同性恋情侣结伴同过情人节这种方式大受同性恋者的欢迎。

 

 在广州工作的同性恋者K仔一提到情人节就犯愁,「当日两个男的行到边都会令人觉得怪异啦」。他告诉记者,很多同性恋情侣都觉得情人节并不是他们的节日,因为走到街上满眼都是一男一女成双成对的,两男或两女就连正常的活动都容易引来猜疑,很不舒服。

 

 去年的情人节,K仔和他的男朋友,再加上另外两对男同性恋情侣,相约外出时偶遇三对女同性恋情侣,于是12个人一起到餐厅吃饭唱K,感觉很自在,「起码外人看来不会觉得不正常」。

 

 记者从广州同志网站了解到,男女同性恋情侣相伴过情人节的方式颇受推崇,虽然也是对世俗眼光的一种妥协,但至少让同志情侣们可以在公众场合自在舒适地度过同样属于他们的节日。

 

 据广同一工作人员称,广同计划在情人节当晚举办一场户外活动,过程中会为单身的同志进行现场速配,让情人节不再孤单,而同志情侣也会被邀请参与一些小游戏,如让一方蒙住双眼,通过抚摸手掌寻找出自己的另一半等。广同也正把几对同志情侣的感人爱情故事录制成DV短片,活动当晚会与会员一起分享。

 

小轩:等待情人节真正到来

 

 同志小轩告诉记者,情人节来了,他也十分向往和自己相爱的伴侣一同度过这个美好的日子,但他觉得这个主流节日好像并不属于他们。看着公司的女同事在这一天都能够收到一束束鲜花,让人看着很有面子,虽然男朋友也会送花给他,他也会感到很高兴,但是一个大男人在公司收到一束玫瑰花总是感觉有点怪,所以他今年也一直在劝说男朋友不要把花送到公司来了。

 

 在他眼中,无论爱与被爱都是一种幸福,他愿意把爱描绘成海,被爱的人就好像沉浸在水中的鱼。面对现在社会上的种种敏感话题,他更倾向于回避。谈到他理想中的情人节,他更希望人们能够摘掉对他们的有色眼镜,只有那样,属于他的情人节才会到来。 综合本报珠三角新闻中心记者唐苗苗及北京新闻中心记者马静、实习记者张萌10日电

责任编辑:cnred 文章页数第[1]页 

页面功能 【我来说两句】【字体: 】【打印】 【关闭

相 关 连 接
·还没有相关文章
网 友 评 论
·还没有相关的评论!
发 表 评 论
您的大名: (点击这里注册)
友情提醒:评论请限制在100字以内,有长篇大论欢迎到论坛发表:)
 

综合新闻|广东新闻|专题新闻

>> 本类热点新闻

·致读者的一封信
·铁路通 第五期 生活与闲情
·泛珠集结赛经历漫长一天
·泛珠汽车赛创中国之最
·泛珠汽车赛 播深化合作种子
·泛珠爱心车手情暖潇湘
·铁路通 第五期 华夏大地
·川剧在广东精彩“变脸”——访川剧
·粤最长公路隧道贯通
·圣诞扫货潮 势再现香江

 

合作媒体

合作及广告联系电话: 020-83825987


文汇报简介 | 广告服务 | 读者联谊 | 在线订报 | 在线投稿 | 站内公告 | 设为首页 | 收藏本站
新闻中心地址:广州市沿江中路323号临江国际大厦15楼 电话:020-83825987  传真:020-83817466
网管信箱:webmaster@wwpprd.com  编辑信箱:editor@wwpprd.com
香港文汇报珠三角新闻网 版权所有©Copyright 2004 www.wwpprd.com
来访统计:  技术支持:中国红电子商务频道