<%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 时间:2007-3-2


网络畅销小说《诛仙》插画。

 

 ■文:本报记者 任田

 

 记录人生的文字不再只是体验痛苦后的付诸纸笔,也可以是随意贴到网络天马行空地胡拉乱扯,只要能自圆其说就行,这就是所谓的非主流写作。其入道门坎极低,可以任意发挥想象力,甚至天真可爱地胡来。非主流作家们大都是与正统文学毫无关系的年轻人,许多人还没出名就忙着打版权官司。其成名可以在一夜间,其出局也可在几日之内。

 

 令主流作家生气的是,网络小说的写作者不少人笔下满是错别字和用得不地道的标点符号,居然稿费版税比许多老牌作家还要高!

 

两个新「鬼才」 网界称「大大」

 

 「……据说他破关之时,正是月圆之夜。那夜冷月高悬,整座青云山通天峰便如白昼一般。忽尔狂风大作,后山竟有龙吟长啸,声震百里,听者无不变色。后,有淡紫祥光,冲天而起,一声巨响,幻月洞府豁然而开,青叶须发尽白,面带微笑,身有清光,缓步而出,众人骇然,以为成仙……

 

 这是著名的非主流小说《诛仙》中的一段,其文字风格在非主流小说中非常典型。作者萧鼎,1976年生。《诛仙》问世后,其网络点击量已过亿人次,网络版权已卖给「幻剑书盟网」,落地成书后发行140万册(已出版7集,每集约20万册),并授权电子娱乐公司开发同名游戏,为2005年网络小说之冠,2006年第四名。

 

 「……胡国华吓了一跳,深更半夜中只听那白纸糊的女人继续说:『我是看你可怜,你虽然吃喝嫖赌,但是心地还不算坏,我想嫁给你,你愿意吗?』胡国华拚命摇头,问那纸人你到底是妖还是鬼?白纸人说我当然是鬼,只是暂时附在这纸人身上,不过你个穷棒子还别嫌弃我,我生前很富有,陪葬的金银首饰够你抽十辈子大烟的,你岂不闻富死鬼强似穷命人百倍?……

 

 这是另一部红得发紫的非主流作品《鬼吹灯》中的一段。作者张牧野,28岁。《鬼吹灯》的文字版权已被安徽文艺出版社击败三四十家同行后抢到,发行百万册,为2006年网络小说之冠,并有拍电影的打算。

 许多网友昵称他们喜爱的网络作者为「大大」,最常说的一句话就是:「大大,快更新啊,更新才是王道。」

 

人红「食无忧」 疲于「反盗版」

 

 两部网络小说的迅速走红,对萧鼎和张牧野而言都是意外收获。31岁的萧鼎升为「大大」之前还在为生计发愁,陷在是继续在布店当伙计,还是另谋生路的艰难抉择中。不过,自《诛仙4》出版之后,他的烦恼就迅速转变为如何打击盗版。为了「让自己紧张起来」,《诛仙》系列是在萧鼎奇怪的蹲姿中完成的,写作《诛仙7》时因为不能让自己满意,萧鼎居然掏出打火机把后半部烧掉了,可见他内心是绷着一股劲的。

 

 至于28岁的张牧野,在网上公布年龄与身份之前,许多读者都认为这位神秘写手不可能在30岁以下,原因有四,一是作者有相当的生活积累和旅游知识;二是对易经有相当研究;三是文笔老辣生僻字多;四是无论情节铺排或者人物形象刻画都很到位。后来谜底揭开,张牧野自爆是为了「哄女朋友开心才写鬼故事」玩的。虽然当初的女朋友已成往事,但衍生品《鬼吹灯》却大行于市。

 

 萧鼎在接受本报专访时,谈到令他一举成名的网络时这样说:「网络小说由于依托互联网平台,有其不成熟的一面,因为这个平台的历史也只十几二十年。但从降低了写作门坎的角度来看,是利大于弊的。」在萧鼎的新浪博客里,有一篇他回驳北京某教授的文字,教授声称中国文学已经进入了装神弄鬼年代,萧鼎则在媒体的拨弄和粉丝的支持下,以一篇《究竟是谁在装神弄鬼》给予猛烈回击。

 

 张牧野的观点很特别,他说,「现在网络走红的人多是小丑,这多不好!职业写小说没意思,混不下去了再说吧,再说也赚不了多少钱。让朋友们知道我干这个,多丢人哪!」采访中,张牧野很注意保护隐私,心理年龄显得比萧鼎更大,在他的表达里,带客户谈生意年底忙总结是更重要的事。写网络小说只是他不为人知的非主流生活,「公司里到现在都没人知道我干这个,我不想因为它耽误和介入我的私人生活。」

 

博客分门第名流VS草根

 

■内地影视才女徐静蕾博客点击人数过亿,号称全球博客女王。

 

 在一个人人乐于用写作表达自己的年代,能在几大门户网站应邀开自己的博客,对于许多博友来说都是梦寐以求的事,这也属于一种非常广泛的非主流写作。新浪博客里就有MN之分,M代表名人,N代表草根,N是自己开、自己玩,M则由新浪发出邀请,并有一个「推手团队」负责包装推广。不过有一个值得注意的特例,就是经常排名在老徐、韩寒、洪晃这些M博三甲左右的「极地阳光」,其实是由一个N博发展起来的,博主是一名相貌清秀的80后少年,上传了许多照片,因人气高企而入选「2006十大网络人物」,并拥有自己的造型师和摄影师。

 

官员亦博客 亲民辟新径

 

 2006年,一批内地官员开博也引起了舆论注意,他们当然是名人,不过其博客都开在市政府的官方网站里。最为瞩目的,莫过于江苏宿迁市委书记张新实,在他的带领下,该市12个部门「一把手」的实名博客正式开通。据称,「领导博客」开通的初衷是,希望通过这种方式加强与百姓的沟通与交流。尽管有不少人不认同这种时髦做法,认为「姿态多于实际」,但也有许多老百姓说好 ── 至少,可以多了解一点他们的父母官。

 

网坛老中青 后浪推前浪

 

■网络畅销小说《诛仙》作者萧鼎。

 

 旧网坛三架马车:当初,痞子蔡《第一次的亲密接触》畅销130万册,贩卖唯美、幽默和伤感。慕容雪村《成都,今夜请将我遗忘》,曾引得万人空巷网络堵塞。80后少年孙睿,一本《草样年华》荣登畅销书榜首,评论家说其气质和手法上糅合了王小波、王朔等人的纸上语言风格,不是很网络化,所以还不算典型网络小说。

 

web2.0 新人辈出

 

 纯爱小说作家三十:《和空姐同居的日子》与《下班抓紧谈恋爱》是纯爱小说(大致和韩剧日剧大纲类似)粉丝的必读教科书。据说三十有三宝:人长得帅,获得稿费100万,作品被话剧、电视、电影跟风得火爆,是追求纯爱的女生暗恋的对象。

 

 赵赶驴:写一本书换一个笔名的好手,小说《我在成都火车站拣到一个彝族美女》(署名燕王朱棣)和《偶让校花爱上偶》(署名光武帝刘秀),都排在当年最火的在网络小说之一。除此之外,赵赶驴曾在猫扑网发了一个比小说更火的帖子,名叫《和美女同事一起被困在电梯一夜的故事》,后更名为《赵赶驴电梯奇遇记》首印10万册。

 

 其它有些名气的网络作家有:唐家三少、烟雨江南、树下野狐、蔡骏、离、鬼古女、沧月、小椴、步非烟、奕香檬、左手粗、桐华等等,也都是颇有些才气的非主流写家。

 

荒诞须自圆 写读皆自娱

 

■网络畅销小说《鬼吹灯》封面。

 

 中国的网络写作大致上可回溯到10年前。1998年,台湾人痞子蔡的网络小说《第一次亲密接触》,一炮打响,从此开创中国网络写作元年。10年间,玄幻、灵异、游戏、盗墓小说已突破并发展了传统的言情、武侠、商界、都市品种。「更新」已成为网络小说的关键词,更迭旧章,迅速刷新,以奇诱人,以新取胜,成为网络小说的制胜法宝。

 

「魔幻」说现实 「紧张」称大师 

 

 本报记者在对萧鼎和张牧野的采访中,听到他们不约而同地谈到「小说是魔幻现实主义风格」的定性。虽然萧鼎和张牧野互相并不认识,《诛仙》与《鬼吹灯》被分列为玄幻和盗墓(考古探险)类的代表作。一个是飞天入地妖魔鬼怪的大战场,一个是殭尸古城现实演绎的地下世界,但有两处心灵相通:一是主人公都在九死一生的残酷战斗中最终保全性命并战胜自己,获得了比财富更宝贵的人生经验、友情与爱情;二是作者都是营造紧张气氛的高手,情节荒诞离奇却往往能自圆其说。读者作者都带着自娱心情完成阅读的心路历程,读后大呼过瘾。

 

 对于未来写作的打算,两人都没有很具体的计划。张牧野说不想再「盗墓」了,准备下本书当个木匠或者飞贼什么的。萧鼎则表示,他还将继续监守在神魔妖道的入口,东方神秘文化的故事他还没过足瘾。

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

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

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

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

>> 本类热点新闻

·嘉玛学校:进入世界6000
·幼园小学一条龙深校抢港生
·王道坤 创改版公司年赚百万
·穗培训首批印度尼西亚幼师毕
·蔡建中捐千万华南理大建科技
·高校性教育 举步维艰
·中山大学招300港澳台生
·《汤秉达传》潮州发行场面盛
·北师大浸大 珠海合办大学奠
·近百港生往珠海升学
·中美合作育UG人才
·未来之星访广州大学城
·千童赴深学艺 今个暑假新风
·粤高校:非婚生育 一律开除
·李嘉诚访汕大流感实验室
·朱小丹力保关山月故居
·李嘉诚再捐汕大2亿
·逾千港生 抵穗升读暨大
·科大南沙教研院 争取「独立
·中山大学校友贺校庆
·未来之星考察船厂感惊讶
·中山大学追思会 师生缅怀恩
·华南理工大学广州汽车学院挂
·粤发起少儿共绘绿色家园活动
·暨大华大联招接受报名
·粤首名港人执业律师诞生
·深校贴身招 港生称老师「妈
·暨大港澳生国民待遇月底招生
·番禺执信中学 自选课程显个
·志愿机构聚羊城 倡社工职业

 

合作媒体

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


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