<% dim typeid dim typename dim typecontent set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from "& db_Type_Table &" where typeview=1 order by typeorder" rs.Open rs.Source,conn,1,1 i=1 Dim ArraytypeID(10000),ArraytypeName(10000) rs.close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from "& db_Type_Table &" where typeview=1 order by typeorder" rs.Open rs.Source,conn,1,1 i=1 Dim ArraytyID(10000),ArraytyName(10000),Arraytyview(10000) if not rs.EOF then rseof=1 while not rs.EOF RecordCount=rs.RecordCount tyID=rs("typeID") tyName=trim(rs("typeName")) tycontent=rs("typecontent") tyview=trim(rs("typeview")) ArraytyID(i)=tyID ArraytyName(i)=tyName Arraytyview(i)=tyview i=i+1 rs.MoveNext wend rs.close %>
" end if rsb.close set rsb=nothing%>

<% set rsb=server.CreateObject("ADODB.RecordSet") rsb.Source="select * from "& db_Board_Table &" where inuse=1" rsb.Open rsb.Source,conn,1,1 if not rsb.EOF then %>

<%=CheckStr(rsb("content"))%>

   

以前公告

<%else Response.Write "

暂 无
<% dim mm_id,mm_pic,mm_topic,mm_i,mm_id0,mm_topic0,mm_temp1,mm_temp2,mm_temp3 mm_i=0 mm_id0=0 set rs3=server.CreateObject("ADODB.RecordSet") rs3.Source="select top 10 * from "& db_News_Table &" where picnews=1 and goodnews=1 and checkked=1 and picname is not null order by NewsID DESC" rs3.Open rs3.Source,conn,1,1 do while not rs3.eof mm_id=rs3("Newsid") mm_pic=rs3("picname") mm_pic=mm_pic mm_topic=rs3("title") mm_topic=mm_topic if instr(mm_pic,"://")<1 then mm_pic=mm_pic end if if mm_i=0 then mm_id0=rs3("Newsid") mm_topic0=rs3("title") end if mm_temp1= mm_temp1&"uploadfile/"&mm_pic&"," mm_temp2= mm_temp2&"E_ReadNews.asp?newsid="&mm_id&"," mm_temp3= mm_temp3&""&mm_topic&"," mm_i=mm_i+1 rs3.movenext loop rs3.close if instr(right(mm_temp1,1),",")>0 then mm_temp1=left(mm_temp1,len(mm_temp1)-1) mm_temp2=left(mm_temp2,len(mm_temp1)-1) mm_temp3=left(mm_temp3,len(mm_temp1)-1) end if%>
对不起,图片浏览功能需脚本支持,但您的浏览器已经设置了禁止脚本运行。请您在浏览器设置中调整有关安全选项。
<%=mm_topic0%>
 

 

 

 

" end if rs2.Close set rs2=nothing %>  

地区

污染指数 级别

中心城区

37

黄山景区

13

 今日空气质量:优

 · 创建环保模范城市

<%set rs2=server.CreateObject("ADODB.RecordSet") '专题 rs2.Source="select Top " & top_sp & " * from "& db_Special_Table &" order by SpecialID DESC " rs2.Open rs2.Source,conn,1,1 if not rs2.EOF then while not rs2.EOF TrString=" · " & trim(CutStr(htmlencode4(rs2("E_SpecialName")),22)) & "
" Response.Write TrString rs2.MoveNext wend %>                 更多专题... <% else Response.Write "

暂无专题

 

 

更多...

 

 
<% dim ii ii = 0 if DbType = "MSSQL" then rs.Source="select top " & top_txt & " * from "& db_News_Table &" where updatetime>'"& now()-30 &"' and checkked=1 order by click DESC" '选择本月 else rs.Source="select top " & top_txt & " * from "& db_News_Table &" where (updatetime>now()-30) and checkked=1 order by click DESC" '选择本月 end if rs.Open rs.Source,conn,1,1 if rs.bof and rs.eof then response.write "" else do while not rs.eof%> <% ii = ii + 1 if ii>top_txt-1 then exit do rs.movenext loop end if rs.close set rs=nothing%>

暂 无

· <%if rs("picnews")=1 then%> <%end if%> " title="<%=htmlencode4(rs("title"))%>" target="_blank" ><%=CutStr(htmlencode4(rs("title")),20)%>
<%end if%> <%if showvote="1" then%>
 
<% set rs=conn.execute("SELECT * FROM " & db_Vote_Table & " where IsChecked=1") if rs.eof then %> <%else%> <%end if%>
尚无任何投票
<%=rs("Title")%>
<% for i=1 to 8 if rs("Select"&i)<>"" then %> checked<%end if%> name="Options" type="radio" value="<%=i%>"> <%=i%>.<%=rs("Select"&i)%>
<% end if next %>
 
<% function gettipnum() dim tmprs tmprs=conn.execute("Select Count(NewsID) from "& db_News_Table &" where checkked=1") gettipnum=tmprs(0) set tmprs=nothing if isnull(gettipnum) then gettipnum=0 end function function todays() dim tmprs tmprs=conn.execute("Select count(NewsID) from "& db_News_Table &" Where checkked=1 and year(updatetime)="& year(date()) &" and month(updatetime)="& month(date()) &" and day(updatetime)="& day(date()) &"") todays=tmprs(0) set tmprs=nothing if isnull(todays) then todays=0 end function function getusernum() dim rs rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &"") getusernum=rs(0) set rs=nothing if isnull(getusernum) then getusernum=0 end function function getgg() dim rs if db_Sex_Select = "EChuang" then rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where "& db_User_Sex &"='男' ") getgg=rs(0) set rs=nothing else if db_Sex_Select = "Number" then rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where "& db_User_Sex &"=1") getgg=rs(0) set rs=nothing end if end if if isnull(getgg) then getgg=0 end function function getmm() dim rs if db_Sex_Select = "EChuang" then rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where "& db_User_Sex &"='女' ") getmm=rs(0) set rs=nothing else if db_Sex_Select = "Number" then rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where "& db_User_Sex &"=0") getmm=rs(0) set rs=nothing end if end if if isnull(getmm) then getmm=0 end function function getother() dim rs if db_Sex_Select = "EChuang" then rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &" where "& db_User_Sex &" = '保密' ") getother=rs(0) set rs=nothing else if db_Sex_Select = "Number" then rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &" where "& db_User_Sex &" <>1 and "& db_User_Sex &"<>0 ") getother=rs(0) set rs=nothing end if end if if isnull(getother) then getother=0 end function %>   ○- 今日文章:<%=todays()%>
  ○- 文章总数:<%=gettipnum()%>
  ○- 会员总数:<%=getusernum()%>

<%if showcount=1 then%>   ○- 当前在线:<%=i%>
  ○- 访问人次: <%end if%>

 

<% for i=1 to RecordCount typeID=Arraytyid(i) typeName=ArraytyName(i) %> <%i=i+1 typeID=Arraytyid(i) typeName=ArraytyName(i) if i<=RecordCount then %> <%end if%>
 
 <%=typeName%>

_______

 
<% set rs=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC" end if if Request.cookies(eChuang)("key")="" then rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and newslevel=0 and picnews=1 and picname is not null) order by newsid DESC" end if if Request.cookies(eChuang)("key")="selfreg" then if Request.cookies(eChuang)("reglevel")=3 then rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC" end if if Request.cookies(eChuang)("reglevel")=2 then rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC" end if if Request.cookies(eChuang)("reglevel")=1 then rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC" end if end if else rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC" end if rs.Open rs.Source,conn,1,1 if rs.EOF then Response.Write "" else while not rs.EOF title=rs("title") fileExt=lcase(getFileExtName(rs("picname"))) %> " title="<%=htmlencode4(title)%>"> <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%> " width="56" border=1 style=border-color:#ffffff height="56"> <%end if%> <%if fileext="swf" then%> "> " width="66" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" quality="High" loop="false" height="66"> <%end if%> <% rs.MoveNext wend end if rs.close set rs=nothing %> <% dim rs3 set rs3=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC" end if if Request.cookies(eChuang)("key")="" then rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC" end if if Request.cookies(eChuang)("key")="selfreg" then if Request.cookies(eChuang)("reglevel")=3 then rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC" end if if Request.cookies(eChuang)("reglevel")=2 then rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC" end if if Request.cookies(eChuang)("reglevel")=1 then rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC" end if end if else rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC" end if rs3.Open rs3.Source,conn,1,1 while not rs3.EOF newsurl="E_ReadNews.asp?NewsID=" & rs3("NewsID") newswwwurl=rs3("titleface") fileExt=lcase(getFileExtName(rs3("picname"))) if showyear=1 then datetime="(" & year(rs3("UpdateTime")) &"年"& Month(rs3("UpdateTime")) &"月"& Day(rs3("UpdateTime")) &"日)" else datetime="("& Month(rs3("UpdateTime")) &"月"& Day(rs3("UpdateTime")) &"日)" end if if rs3("picnews")=1 then if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then img=" " else img="" end if else img="" end if '增加小类名称程序开始 if rs3("bigclassID")<>"" then B=rs3("bigclassID") set rs22=server.createobject("adodb.recordset") sql="SELECT bigclassID,E_BigClassName FROM "& db_BigClass_Table &" WHERE bigclassID="&B Set rs22=Conn.Execute(sql) A=rs22("E_BigClassName") rs22.close set rs22=Nothing else A="本栏" end if '增加小类名称程序结束 %> <% rs3.MoveNext wend %>

· <%=img%> <%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank"> "> <%=CutStr(htmlencode4(rs3("title")),30)%> <% if rs3("titlesize")>=1 then %> " target="_blank" > <%end if %> <%''if showauthor="1" then%> <%''=rs3("Author")%> <%''end if%><%=datetime%>

 
 
 
 <%=typeName%>

_______

 
<% set rs=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC" end if if Request.cookies(eChuang)("key")="" then rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and newslevel=0 and picnews=1 and picname is not null) order by newsid DESC" end if if Request.cookies(eChuang)("key")="selfreg" then if Request.cookies(eChuang)("reglevel")=3 then rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC" end if if Request.cookies(eChuang)("reglevel")=2 then rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC" end if if Request.cookies(eChuang)("reglevel")=1 then rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC" end if end if else rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC" end if rs.Open rs.Source,conn,1,1 if rs.EOF then Response.Write "" else while not rs.EOF title=rs("title") fileExt=lcase(getFileExtName(rs("picname"))) %> " title="<%=htmlencode4(title)%>"> <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%> " width="56" border=1 style=border-color:#ffffff height="56" /> <%end if%> <%if fileext="swf" then%> " /> " width="66" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" quality="High" loop="false" height="66"> <%end if%> <% rs.MoveNext wend end if rs.close set rs=nothing %> <% set rs3=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC" end if if Request.cookies(eChuang)("key")="" then rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC" end if if Request.cookies(eChuang)("key")="selfreg" then if Request.cookies(eChuang)("reglevel")=3 then rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC" end if if Request.cookies(eChuang)("reglevel")=2 then rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC" end if if Request.cookies(eChuang)("reglevel")=1 then rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC" end if end if else rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC" end if rs3.Open rs3.Source,conn,1,1 while not rs3.EOF newsurl="E_ReadNews.asp?NewsID=" & rs3("NewsID") newswwwurl=rs3("titleface") fileExt=lcase(getFileExtName(rs3("picname"))) if showyear=1 then datetime="(" & year(rs3("UpdateTime")) &"年"& Month(rs3("UpdateTime")) &"月"& Day(rs3("UpdateTime")) &"日)" else newsurl="E_ReadNews.asp?NewsID=" & rs3("NewsID") newswwwurl=rs3("titleface") datetime="("& Month(rs3("UpdateTime")) &"月"& Day(rs3("UpdateTime")) &"日)" end if if rs3("picnews")=1 then if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then img=" " else img="" end if else img="" end if %> <% '增加小类名称程序开始 if rs3("bigclassID")<>"" then B=rs3("bigclassID") set rs22=server.createobject("adodb.recordset") sql="SELECT bigclassID,E_BigClassName FROM "& db_BigClass_Table &" WHERE bigclassID="&B Set rs22=Conn.Execute(sql) A=rs22("E_BigClassName") rs22.close set rs22=Nothing else A="本栏" end if '增加小类名称程序结束 %> <% '增加小类名称程序开始 if rs3("bigclassID")<>"" then B=rs3("bigclassID") set rs22=server.createobject("adodb.recordset") sql="SELECT bigclassID,E_BigClassName FROM "& db_BigClass_Table &" WHERE bigclassID="&B Set rs22=Conn.Execute(sql) A=rs22("E_BigClassName") rs22.close set rs22=Nothing else A="本栏" end if '增加小类名称程序结束 %> <%rs3.MoveNext wend %>

·<%=img%> <%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank"> "> <%=CutStr(htmlencode4(rs3("title")),30)%> <% if rs3("titlesize")>=1 then %> " target="_blank" > <%end if %><%=datetime%> <%''if showauthor="1" then%> <%''=rs3("Author")%> <%''end if%>

 
<% next rs3.close set rs3=nothing %>

 

 

 

 

 

 

 

 

   

 

 

<%else Response.Write "
暂 无 文 章 类 别,请 登 陆 后 添 加!
" end if%>