党政建设 |
|
科教文化 |
|
|
招商引资 |
|
|
|
 |
今天是:
|
|
|
|
<%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs3.Source ="select top 1 * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
if Request.cookies("key")="" then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel=0 and picname<>null order by NewsID DESC"
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs3.Source ="select top 1 * from News where picnews=1 and checkked=1 and newslevel<=3 and picname<>null order by NewsID DESC"
end if
if Request.cookies("reglevel")=2 then
rs3.Source ="select top 1 * from News where picnews=1 and checkked=1 and newslevel<=2 and picname<>null order by NewsID DESC"
end if
if Request.cookies("reglevel")=1 then
rs3.Source ="select top 1 * from News where picnews=1 and checkked=1 and newslevel<=1 and picname<>null order by NewsID DESC"
end if
end if
else
rs3.Source ="select top 1 * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
rs3.Open rs3.Source,conn,1,1
if not rs3.EOF then
while not rs3.EOF
fileExt=lcase(getFileExtName(rs3("picname")))
Content=rs3("Content")
content=replace(content,"[[","<")
content=replace(content,"]]",">")
%>
<%
rs3.MoveNext
wend
else
Response.Write ""
end if
rs3.close
set rs3=nothing
%>
|
|
|
|
 |
 |
古老而文明的信都镇,是一片充满商机和希望的投资热土。信都镇位于广西贺州市南部,总面积237平方公里,全镇管辖3个社区委员会,15个村委会,共有147个村民小组,总人口5.2万人。热情好客的信都镇人民,热忱欢迎四海宾朋前来投资开发,观光旅游,共创信都镇更加美好的明天。详细信息>>> |
|
|
 |
|
<% sql="select top 7 ID,Topic,InfoClass from supply where InfoClass=1 order by ID DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.EOF and not rs.BOF then
response.write ""
end if
rs.Close
%> |
 |
|
|
|
 |
|
<% sql="select top 7 ID,Topic,InfoClass from supply where InfoClass=2 order by ID DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.EOF and not rs.BOF then
response.write ""
end if
rs.Close
%>
|
 |
|
 |
|
<%
dim menuid1
dim menuname1
dim menucontent1
dim menuview1
set rs22=server.CreateObject("ADODB.RecordSet")
rs22.Source="select * from type where typeview=1 order by typeorder"
rs22.Open rs22.Source,conn,1,1
i=1
while not rs22.EOF
RecordCount=rs22.RecordCount
menuid1=rs22("typeid")
menuname1=rs22("typename")
menucontent1=rs22("typecontent")
menuview1=rs22("typeview")
%>
[ ><%=menuName1 %>]
<%
typeid=rs22("typeid")
set rs21=conn.execute("SELECT * FROM bigclass where typeid="&typeid&" order by bigclassorder")
do while not rs21.eof
%>
<%if not Rs21.eof then%>
"><%=Rs21("bigclassname")%>
<%set nrs=conn.execute("SELECT * FROM smallclass where bigclassid="&cstr(rs21("bigclassid"))&" order by smallclassorder")%>
<%do while not nrs.eof%>
<%if not nRs.eof then%>
|&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("smallclassname")%>
<%nrs.movenext
end if %>
<%if not nRs.eof then%>
|&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("smallclassname")%>
<%nRs.movenext
end if%>
<%loop
nRs.Close
set nRs=nothing
%>
<%rs21.movenext
end if
loop
rs21.close
%>
<%
i=i+1
rs22.MoveNext
wend
rs22.close
set rs22=nothing
%>
|
|
|
|
|