<%
if date<>cdate(gxdate) then response.redirect "system/newindex.asp"
usna=REQUEST.COOKIES("USERname")
if usna<>"" and session("username")="" then
response.redirect "system/user/autologin.asp"
end if
%>
滤油机|华乾滤油机厂|公司简介
<%
conn.close
set conn=nothing
function ReadText(FileName) '这是一个用于读出文本文件的函数
set adf=server.CreateObject("Adodb.Stream")
if instr(filename,":\")<>0 then
path=filename
else
path=server.MapPath(FileName)
end if
with adf
.Type=2
.LineSeparator=13
.Open
.LoadFromFile (path)
.Charset="GB2312"
.Position=2
ReadText=.ReadText
.Cancel()
.Close()
end with
set adF=nothing
end function
function downmenulist(Mn1,Mjb) '此函数用于检测某一栏目下的一级子栏目列表,如有子栏目,存于一数量中,如没有,返回为空,第一个参数是栏目名,第二个是栏目级别
MJB=MJB
MN=MN1
dim rsdown1
dim mymenulist(100,6)
sql="select id,menuname,栏目管理员,挂接表,不准复制,栏目简介 from menu where menuup='"&Mn&"' and jb='"&Mjb&"' order by menuname"
Set rsdown1=Server.CreateObject("ADODB.RecordSet")
'Response.Write sql
rsdown1.Open sql,conn,1,1
if rsdown1.eof then
mymenulist(0,1)=""
else
i=0 '以下为四个反回的四列,第一列,栏目名,第二,ID,第三,管理员,第四,是否可复制,第五,栏目简介,第六,挂接的表
do while not rsdown1.eof
mymenulist(i,1)=rsdown1("menuname")
mymenulist(i,2)=rsdown1("ID")
mymenulist(i,3)=rsdown1("栏目管理员")
mymenulist(i,4)=rsdown1("不准复制")
mymenulist(i,5)=rsdown1("栏目简介")
mymenulist(i,6)=rsdown1("挂接表")
i=i+1
rsdown1.movenext
loop
end if
rsdown1.close
downmenulist=mymenulist
end function
%>
