<% On Error Resume Next Dim arrRs,rs,sql,i sql="select top 18 group_articleid,group_articlename from Tb_myblog_grouplist with(nolock) where status=0 and group_id=866 order by Group_articletime2 desc " opendataconn 98 Set rs = Conn.execute(sql) If Not rs.eof Then arrRs = rs.getrows(-1) End If rs.close:Set rs = Nothing closedataconn If isArray(arrRs) Then For i = 0 To UBound (arrRs,2) %> <%= Left(arrRs(1,i),17) %>.
<% Next End If arrRs = Null On Error goto 0 %>
《鬼吹灯》名列“十大网络小说”之首
《鬼吹灯》神秘热到烫 粉丝狂猜作者身份

 

 

 

 

 
 
 
      著名导演杜琪峰加盟电影鬼吹灯
      ——盛大起点中文网与华映公司就电影版《鬼吹灯》授权正式签约
        07年8月23日在上海举行的新闻发布会上,盛大网络起点中文网正式宣布将《鬼吹灯》的影视改编权转让给华映电影公司。华映公司将斥巨资,把《鬼吹灯》打造成为中国首部惊悚探险大片。香港著名导演杜琪峰出任总监制,并将亲自执导其中的一部。 [全文]
调查:谁是《鬼吹灯》主角的最佳人选
著名导演杜琪峰
李冰冰
孙红雷
高圆圆
李小冉
主持人宣布仪式开始
杜琪峰导演上台讲话
盛大网络总裁唐骏致词
华映公司老总讲话
鬼吹灯作者与杜琪峰
摸金符
泰坦魔芋
人面蜘蛛
铜镜
狼眼手电
洛阳铲
 
摸金校尉 旱魃 土夫子 都是真的存在的 关于《鬼吹灯》中提到的精绝国
天下霸唱称《鬼吹灯》中盗墓方法不实用 《鬼吹灯》中提到的大威德金刚.
鬼吹灯之黄建翔版. 如果《鬼吹灯》拍成电影,谁演合适?
旧社会长沙盗墓贼的四字诀 鬼吹灯名人搞笑版
神秘消失的集宁古城 这回的原型莫不是北新桥的锁龙井?
《鬼吹灯》中有关恐怖的西藏矮门和起尸密俗 《鬼吹灯》中神秘的降头术
齐齐哈尔木乃伊死因之谜 女尸可能曾复活 关于倒斗唇典的解说,感兴趣的可以看一看
 
   
<% Call WishList10F(100,10) %>
您的寄语:(限500字以内):
昵称:
第一卷
第二卷
第三卷
第四卷
第五卷
第六卷
胡八一
shirley 杨
孙红雷
调查:谁是《鬼吹灯》主角的最佳人选
        《鬼吹灯》作品系列的所有版权归属为起点中文网独家所有。
       
        鬼吹灯系列作品仅为起点中文网独家首发,其余未经起点授权的周边产品以及和本站发布内容不符的作品均非正版,我们保留追究法律责任的权力。
        起点中文网作为领先的原创小说发布平台,拥有数量最为众多的小说版权和包括小说改编权在内的各种衍生资源。我们非常愿意与各界朋友包括互联网单位、出版、影视机构、媒体单或其他相关的机构进行包括出版版权、广告、媒体在内的各种合作。共同携手、谋求发展。
        请于周一至周五9:00-18:00联系:
       沈先生    电话: 021-50504740-5709       电子邮件:shenxun#snda.com(请将#换成@)
        MSN:danteshen#gmail.com(请将#换成@)            QQ:277740492
        罗立先生021-50504740-5720      电子邮件:luoli@snda.com
Copyright (C) 2002-2007 www.cmfu.com All Rights Reserved 版权所有 上海玄霆娱乐信息科技有限公司
上海盛大网络发展有限公司 增值电信业务经营许可证B2-20040053号 文网文[2003]0002号 新出网证(沪)字002
<% Sub WishList10F(ByVal topN,ByVal groupId) 'Const TopN = 100 'Dim groupId 'groupId = getIntValue("groupid") Dim sql,rs,arrRs,i,wishCount opendataconn CMFUTempDb sql = "select count(1) from [Bless_List] with(nolock) where GroupId = "&groupId&" " Set rs = conn.execute(sql) If Not rs.eof Then wishCount = rs(0) Else wishCount = 0 End If sql = " select top "&TopN&" NickName,Bless,CreateTime from [Bless_List] with(nolock) where IsPass = 1 and groupId = "&groupId&" " Set rs = conn.execute(sql) If Not rs.eof Then arrRs = rs.getrows(-1) End If rs.close:Set rs = Nothing closedataconn %> <%If IsArray(arrRs) Then For i = 0 To UBound(arrRs,2) %> <% Next End If %>
<%=arrRs(0,i)%>: <%=arrRs(1,i)%>
共有留言数:<%=wishCount%>
<% arrRs = null End Sub %>