<%@ Language=VBScript%>
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass order by BigClassID"
rs.Open rs.Source,conn,1,1
set rs2=server.CreateObject("ADODB.RecordSet") '专题
rs2.Source="select Top 10 * from Special order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1
Set rs9 = Server.CreateObject("ADODB.Recordset")
sql9 ="SELECT * From system Order By id DESC"
RS9.open sql9,Conn,3,3
%>
汉阳区人民政府信息网站
<%
i=1
Dim ArrayBigClassID(20),ArrayBigClassName(20)
while not rs.EOF
RecordCount=rs.RecordCount
BigClassID=rs("BigClassID")
BigClassName=trim(rs("BigClassName"))
TdString=""
Response.Write TdString
ArrayBigClassID(i)=BigClassID
ArrayBigClassName(i)=BigClassName
i=i+1
rs.MoveNext
wend
rs.close
%>
|
height=134>       |  width=24> | height=22> |  width=130> | |  |  
  |
![]() src="image/tuijian.gif" width=165>
 | | 归元寺位于汉阳翠微街的西端，最初系清顺治初由白光和尚就明代五章浦葵园旧址建造，现存为清同治三年（1864年）、光绪二十一年（1895年）及民国初年所陆续重建。 |
 | | 古琴台位于汉阳区北部月湖南边，相传是战国时楚国的俞伯牙弹琴的地方。 |
![]() src="image/search.gif" width=165>
width="100%" height="40">
|
| height=30 rowSpan=5> |
<%
set rs3=server.CreateObject("ADODB.RecordSet")
for i=1 to RecordCount
BigClassID=ArrayBigClassID(i)
BigClassName=ArrayBigClassName(i)
%>
 <%= BigClassName%> |
|
"
else
DisplayTitle=mid(Title,1,21)
Response.Write ""
end if
rs3.MoveNext
wend
rs3.close
%>
|
<%
next
%>
|
