webconfig.asp

简单整站程序

<%
dim toptxt,logol,logor,indexjpg,banner1,banner1flag,banner2,banner2flag,menujpg,menudq
dim anclassi(),anclass()
dim schoolname,tecno,address,youbian,telno,icpno,bottjpg
dim photojpgl,photojpgr,photojpgt,photojpgb,photoflag,photonum
sub baseinfo()  '初始化基本信息
set rs=server.createobject("adodb.recordset")
rs.Open "select * from baseinfo" ,conn,1,1
if not (rs.eof and rs.bof) then
   toptxt=rs("toptxt")
   logol=rs("logol")
   logor=rs("logor")
   indexjpg=rs("indexjpg")
   banner1=rs("banner1")
   if rs("banner1flag") then
      banner1flag="true"
   else
      banner1flag="false"
   end if
   banner2=rs("banner2")
   if rs("banner2flag") then
      banner2flag="true"
   else
      banner2flag="false"
   end if
   menujpg=rs("menujpg")
   if rs("menudq")  then
      menudq="center"
   else
      menudq="left"
   end if 
   schoolname=rs("schoolname")
   tecno=rs("tecno")
   address=rs("address")
   youbian=rs("youbian")
   telno=rs("telno")
   icpno=rs("icpno")
   bottjpg=rs("bottjpg")   
   photojpgl=rs("photojpgl")
   photojpgr=rs("photojpgr")
   photojpgt=rs("photojpgt")
   photojpgb=rs("photojpgb")
   photoflag=rs("photoflag")
   photonum=rs("photonum")
end if
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
rs.Open "select * from anclass where classname<>'特殊内容' order by anclassidorder" ,conn,1,1
if not (rs.eof and rs.bof) then
   redim anclassi(rs.recordcount)
   redim anclass(4,rs.recordcount)
   anclassi(0)=cstr(rs.recordcount)
   rs.movefirst
   i=1
   do while not rs.eof
      anclass(1,i)=cstr(rs("anclassid"))
      anclass(2,i)=rs("classname")
      anclass(3,i)=rs("anweb")
      temp=anclass(1,i)
      if outnclass(temp,i)<>"false" and anclass(3,i)="#" then anclass(3,i)="showxm.asp?name=" &rs("classname")
      i=i+1
      rs.movenext
   loop
else
   redim anclassi(1)
   anclassi(0)="0"
end if
rs.close
set rs=nothing
end sub
function outnclass(temp,i)
    anclass(4,i)=""
    set rs2=server.createobject("adodb.recordset")
    rs2.Open "select * from nclass where anclassid=" &temp &" order by nclassidorder" ,conn,1,1
    do while not rs2.eof
       if rs2("nweb")<>"#" then
          anclass(4,i)=anclass(4,i) &"<div class=menuitems><a href="&rs2("nweb") &">"&rs2("classname") &"</a></div>"
       else
          anclass(4,i)=anclass(4,i) &"<div class=menuitems><a href="&"showxm.asp?name=" &rs2("classname") &">"&rs2("classname") &"</a></div>"
       end if
       rs2.movenext
       outnclass="false"
    loop
rs2.close
set rs2=nothing       
end function
%>