<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_csh1_STRING Recordset1.Source = "SELECT neme, address FROM wengao ORDER BY gsort ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_csh2_STRING Recordset2.Source = "SELECT * FROM wengao ORDER BY gsort ASC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Recordset3 Dim Recordset3_numRows Set Recordset3 = Server.CreateObject("ADODB.Recordset") Recordset3.ActiveConnection = MM_csh3_STRING Recordset3.Source = "SELECT * FROM wengao ORDER BY gsort ASC" Recordset3.CursorType = 0 Recordset3.CursorLocation = 2 Recordset3.LockType = 1 Recordset3.Open() Recordset3_numRows = 0 %> <% Dim Recordset4 Dim Recordset4_numRows Set Recordset4 = Server.CreateObject("ADODB.Recordset") Recordset4.ActiveConnection = MM_csh4_STRING Recordset4.Source = "SELECT * FROM wengao ORDER BY gsort ASC" Recordset4.CursorType = 0 Recordset4.CursorLocation = 2 Recordset4.LockType = 1 Recordset4.Open() Recordset4_numRows = 0 %> <% Dim Recordset5 Dim Recordset5_numRows Set Recordset5 = Server.CreateObject("ADODB.Recordset") Recordset5.ActiveConnection = MM_csh5_STRING Recordset5.Source = "SELECT * FROM wengao ORDER BY gsort ASC" Recordset5.CursorType = 0 Recordset5.CursorLocation = 2 Recordset5.LockType = 1 Recordset5.Open() Recordset5_numRows = 0 %> <% Dim Recordset6 Dim Recordset6_numRows Set Recordset6 = Server.CreateObject("ADODB.Recordset") Recordset6.ActiveConnection = MM_csh6_STRING Recordset6.Source = "SELECT * FROM wengao ORDER BY gsort ASC" Recordset6.CursorType = 0 Recordset6.CursorLocation = 2 Recordset6.LockType = 1 Recordset6.Open() Recordset6_numRows = 0 %> <% Dim Recordset7 Dim Recordset7_numRows Set Recordset7 = Server.CreateObject("ADODB.Recordset") Recordset7.ActiveConnection = MM_csh7_STRING Recordset7.Source = "SELECT * FROM wengao ORDER BY gsort ASC" Recordset7.CursorType = 0 Recordset7.CursorLocation = 2 Recordset7.LockType = 1 Recordset7.Open() Recordset7_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 Recordset3_numRows = Recordset3_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 Recordset4_numRows = Recordset4_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = -1 Repeat5__index = 0 Recordset5_numRows = Recordset5_numRows + Repeat5__numRows %> <% Dim Repeat6__numRows Dim Repeat6__index Repeat6__numRows = -1 Repeat6__index = 0 Recordset6_numRows = Recordset6_numRows + Repeat6__numRows %> <% Dim Repeat7__numRows Dim Repeat7__index Repeat7__numRows = -1 Repeat7__index = 0 Recordset7_numRows = Recordset7_numRows + Repeat7__numRows %> 胡祖义工作网
设为首页
嘉宾留言
联系我们

 您所在的位置:中华在线网作家在线作家工作网胡祖义工作网《马殇》
 
胡祖义,男,祖籍湖南澧县,1954年5月出生于湖北公安(卷桥水库),1979年荆州师专中文系,后获湖北大学本科文凭。中学高级教师、校长,宜昌市作家协会会员,现供职于重工集团公司国营每404厂。

地址:湖北省枝江市404厂子
   弟学校
  或 湖北省宜昌市深圳二
   路10号1-112室
电话:0717-4430148(办)
   8300139(小灵通)
    6072561(家)
电子信箱:huzuyi@163.com


《月球历险记》简介

     在全世界重新掀起来的重返月球的热潮中,本人撰写了这部《月球历险记》,它是小说体的动画片脚本,还须按动画片的要求改写成分镜头剧本。已写出35集,计12万字。
     本书描写北京少年艾克思、文妮和郝奇三人搭乘2099号航天器飞上太空,在航天器上遇到猴子小不点,然后,他们一起在月球上降落、探险的故事。他们在飞向月球的太空中遭遇了飞碟和陨石雨,在雨海附近,看到了月球上巨大的塔架和类似于输油管道的巨大的通道……这些,简直是太神秘了,太不可思议了,于是,他们瞅空脱离基地,独自去探险。郝奇和小不点乘坐小型航天器进入月球人的地下月宫,见到了三条腿,三只手的月球人,艾克思和文妮则从另一条通道进入月宫,开回雨海基地一艘月球人建造的飞碟。
     故事新奇而惊险,曲折而动人,很具可读性。
     本人拟在《太空历险记》的总标题下写出十来个分部,《月球历险记》是第一部,后面将写出《火星历险记》、《金星历险记》……
     中国虽然已经有了载人航天的开端,但是中国的航天事业还很落后,我们需要鼓励新的一代,激发他们的好奇心,寄希望于新的一代赶超世界航天水平。这部书如果拍成动画片,将会对青少年起到巨大的鼓舞和激励作用,这样的话,这本书将是开创中国宇航时代的号角!


 

... ...

胡祖义工作网 版权所有  中华在线 制作
<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %> <% Recordset3.Close() Set Recordset3 = Nothing %> <% Recordset4.Close() Set Recordset4 = Nothing %> <% Recordset5.Close() Set Recordset5 = Nothing %> <% Recordset6.Close() Set Recordset6 = Nothing %> <% Recordset7.Close() Set Recordset7 = Nothing %>