<%@ Language=VBScript%> 句容市茅山中学 <%if R_BG=1 then %> <%else%> <%end if%> <% dim typeid dim typename dim typecontent set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from type 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 type 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 %>
Welcome <%if showclub=1 then%> <%if Request.cookies("username")="" then%> <%else%> <%end if%> <%end if%>
用户名 密 码 验证码 <%dim num1,rndnum Randomize Do While Len(rndnum)<4 num1=CStr(Chr((57-48)*rnd+48)) rndnum=rndnum&num1 loop session("verifycode")=rndnum %> <%=session("verifycode")%> <%if reg=1 then%> <%end if%>
欢迎您:<%=Request.cookies("UserName")%> <%=Request.cookies("sex")%> 您的权限: <%if Request.cookies("KEY")="super" and Request.cookies("purview")="99999" then%> 超级管理员 <%end if%> <%if Request.cookies("KEY")="super" and Request.cookies("purview")<>"99999" then%> 系统管理员 <%end if%> <%if Request.cookies("KEY")="check" then%> 文章审核员 <%end if%> <%if Request.cookies("KEY")="selfreg" then%> 注册用户 <%end if%> <%if Request.cookies("KEY")="smallmaster" then%> 小类管理员 <%end if%> <%if Request.cookies("KEY")="bigmaster" then%> 大类管理员 <%end if%> <%if Request.cookies("KEY")="typemaster" then%> 总栏管理员 <%end if%> 您的等级: <%if Request.cookies("KEY")<>"selfreg" then%> 内部成员 <%end if%> <%if Request.cookies("KEY")="selfreg" and Request.cookies("reglevel")="1" then%> 普通 <%end if%> <%if Request.cookies("KEY")="selfreg" and Request.cookies("reglevel")="2" then%> 高级 <%end if%> <%if Request.cookies("KEY")="selfreg" and Request.cookies("reglevel")="3" then%> 特级 <%end if%> 进入管理 退出管理
传奇世界私服, 传奇世界私服,
<% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from board where inuse=1" rs.Open rs.Source,conn,1,1 if not rs.EOF then %>
<%=rs("content")%> 以前公告
<%else rs.close set rs=nothing end if%>
TLE:0511-7828248
 
<%if showlinkmap=1 then%> <%end if%> <%if showlink=1 then%> <%end if%>
<% function gettipnum() dim tmprs tmprs=conn.execute("Select Count(NewsID) from News 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 News 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=conn.execute("Select Count(ID) from admin") getusernum=rs(0) set rs=nothing if isnull(getusernum) then getusernum=0 end function function getgg() dim rs rs=conn.execute("Select Count(ID) from admin where sex='先生'") getgg=rs(0) set rs=nothing if isnull(getgg) then getgg=0 end function function getmm() dim rs rs=conn.execute("Select Count(ID) from admin where sex='女士'") getmm=rs(0) set rs=nothing if isnull(getmm) then getmm=0 end function function getother() dim rs rs=conn.execute("Select Count(ID) from admin where sex='保密'") getother=rs(0) set rs=nothing if isnull(getother) then getother=0 end function %> ○- 今日文章:<%=todays()%>
○- 文章总数:<%=gettipnum()%>
○- 会员总数:<%=getusernum()%>

<%if showcount=1 then%>
○- 当前在线:<%=i%>

<%end if%>
<% 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 %>
新开传世私服
句容教育网茅山中学网页展示
" end if rs2.Close set rs2=nothing %> <%end if%>
<%if showspecial=1 then%> <%set rs2=server.CreateObject("ADODB.RecordSet") '专题 rs2.Source="select Top " & top_sp & " * from Special order by SpecialID DESC " rs2.Open rs2.Source,conn,1,1 if not rs2.EOF then while not rs2.EOF TrString=" · " & trim(rs2("SpecialName")) & "
" Response.Write TrString rs2.MoveNext wend %>
更多专题... <% else Response.Write "
暂无专题
校长何德海简介 校长:何德海,中国共产党员,中学高级教师……
<% 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 " & top_img & " * 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 " & top_img & " * 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 " & top_img & " * 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 " & top_img & " * 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 " & top_img & " * 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,"]]",">") %>
" target=_blank title="<%=rs3("title")%>"> <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%> " width="133" height="100" class="border"> <%end if%> <%if fileext="swf" then%> "> " width="160" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'> <%end if%>
<% rs3.MoveNext wend else Response.Write "
暂无
" end if rs3.close set rs3=nothing %>
<%if showvote="1" then%>
<% set rs=conn.execute("SELECT * FROM vote 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 %>
<%end if%>
<%else Response.Write "
暂无文章类别,请登陆后添加!
" end if%> 更多... 更多... 更多... 更多... 更多...