 
| |
<% '显示栏目导航
IF MENUJB>2 THEN
Response.Write ""&mid(menup,4,50)&""
call disptree(menuP,MENUjb-1)
ELSE
Response.Write "
"&WZ
END IF
%> |
<%if tab="" then%>
<%end if
if tab<>"" then%>
<%end if%>
|
<%=sm%>
|
<%
if instr(session("userdqx3"),","&myqx&",")=0 and session("userdsf")<>" 系统管理员" then
Response.Write "您没有权限访问此内容"
else
IF not USERQX("EDIT",MENULB) or glfile="" THEN
qx=""
else
qx="有"
END IF
tab=trim(replace(tab," ",""))
if tab="" then
px="序号,"&SESSION("USERPX")
' Response.Write px
call menulr(menulb,menujb,pagefile,qx,px,btimg1,btimg,filenamezs,newfile)
else
IF not USERQX("EDIT",MENULB) THEN
qx1=""
else
qx1="有"
END IF
if tab<>"软件下载" then
call tabdisp(tab,dispfild,findfild,pagen,FH,"序号,"&TABPX, TOEXCEL,disp1fild,MENUJB-1,menuid,QX1) '调用挂接的数据表
else
call down(tab,findfild,pagen,FH,"序号,"&TABPX,MENUJB-1,menuid,QX1) '调用挂接的数据表
end if
end if
end if
%>
|
|
|
|
