<%@ Language=VBScript%> 音乐学院 function makevisible(cur,which){ if (which==0) cur.filters.alpha.opacity=100 else cur.filters.alpha.opacity=20 } // Begin morelink function morelink(morelink) { url = 'morelink.asp?linktype=0'; window.open(url,morelink); } // End morelink--> // Begin linkreg function linkreg(linkreg) { url = 'admin/linkreg.asp'; window.open(url,linkreg,"width=350,height=400,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no"); } // End linkreg--> // Begin vote function vote(vote) { url = 'admin/vote.asp?stype=view'; window.open(url,vote,"width=350,height=250,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no"); } // End vote--> // Begin adduser function adduser(adduser) { url = 'admin/adduser.asp'; window.open(url,adduser,"width=400,height=460,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no"); } // End adduser--> // Begin getpwd function getpwd(getpwd) { url = 'admin/getpwd.asp'; window.open(url,getpwd,"width=350,height=330,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no"); } // End getpwd--> function publish(publish) { url = 'admin/index.asp'; window.open(url,publish); } function exit(exit) { url = 'exit.asp'; window.open(url,exit); } <% 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 %>
<%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("fullname")%>

欢迎您

  
<%if showsearch=1 then%> <%end if if showdata=1 then%> <%end if if showuser=1 then%> <%end if%>

查   询

<%if search="1" then%> <%else%> <%end if%>
友情链接


 

<%if showlinkmap=1 then%> marquee5(); marquee6(); <%end if%> <%if showlink=1 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 %> <%else rs.close set rs=nothing end if%> <%if showvote="1" then%>
学院公告
 
·(11-26)
·五谷杂粮健康吃法(11-26)
·豆制品要少买快吃(11-26)
·多吃鱼,能防“忘”(11-26)
·老人吃香油:血管好(11-26)
·血压高每天吃十个板栗(11-26)

以前公告
图片新闻
 

制作北华大学音乐学院 2007 [管理入口]
<%dim endtime endtime=timer() response.write "页面执行时间:"&FormatNumber((endtime-starttime)*1000,3)&"毫秒"%>


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