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