北外女生性调查回击处女率低传言

北外女生性调查回击处女率低传言

“北京外国语大学女生大学期间的性行为率仅为11.5%。”上周，一份由北外女生自发组织的性调查结果，通过校内报刊发放到北外几乎所有的女生宿舍和部分男生宿舍。
这项调查，被称为“北外有史以来第一次针对整个女生群体性状态的调查”。调查小组称：此次调查得出的结果，是对此前在网络上广泛传播的“北京外国语大学处女率15.86%”的坚定回击。
前不久网络四处转载的处女排行榜上赫然写着：大学毕业女生处女率，北京外国语大学15.86%。大四本科处女率，北京外国语大学26%。
“上面列出的这些事，其矛头直指北外女生的性状态。我不否认大学女生性行为的存在，但那绝对是很小一部分。而社会的评论和传媒的报道，给我最分明的感受是，我们大学女生这个群体已经被妖魔化，这太不公平了。”戴着黑框眼镜的何敏(化名)语速很快，她是这次北外女生性调查的始作俑者，新闻系大三本科生。?

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