📄 duinfw_msxf1.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>内部发文</title>
<LINK href="css.css" type=text/css rel=stylesheet>
<!--#include file="Global.asp" -->
</head>
<script LANGUAGE="vbscript">
sub s(nnn)
ss=msgbox(cstr(nnn))
nnn.style.display=""
end sub
</script>
<script LANGUAGE="vbscript">
dim position(9) '对应相应栏目的mylist在本页中的位置，从0开始
position(1)=0
position(2)=1
position(3)=2
position(4)=3
oldind0=0
oldind1=0
sub mclick(ind,tjzs)
set aa=document.all.item("mylist")
set aa2=document.all.item("mylist1")
' response.write(ind)
' response.write(tjzs)
' response.end
ind0=ind-1
for i=0 to tjzs-1
aa2(i).style.display = "none"
next
if not(aa(ind0).style.display = "none") then
aa(oldind0).style.display = "none"
aa(ind0).style.display = "none"
'window.event.srcElement.all.item("menuitem").innerText=4
'document.all.item("menuitem",oldind0).innerText=5
'document.all.item("menuitem",ind0).innerText=5
'window.Parent.Parent.frames(0).navigate("gx_top.htm")
else
aa(oldind0).style.display = "none"
aa(ind0).style.display = ""
'window.event.srcElement.all.item("menuitem").innerText=6
'document.all.item("menuitem",oldind0).innerText=5
'document.all.item("menuitem",ind0).innerText=6
'window.Parent.Parent.frames(0).navigate("gx_top_lcgw.asp?subjname="+subjname(ind))
end if
oldind0=ind0
end sub
sub mclick1(ind)
set aa1=document.all.item("mylist1")
ind0=ind-1
if not(aa1(ind0).style.display = "none") then
aa1(oldind1).style.display = "none"
aa1(ind0).style.display = "none"
'aa.style.display = "none"
'window.event.srcElement.all.item("menuitem").innerText=4
'document.all.item("menuitem",ind0).innerText=5
'window.Parent.Parent.frames(0).navigate("gx_top.htm")
else
aa1(oldind1).style.display = "none"
aa1(ind0).style.display = ""
'aa.style.display = ""
'window.event.srcElement.all.item("menuitem").innerText=6
'document.all.item("menuitem",ind0).innerText=6
'window.Parent.Parent.frames(0).navigate("gx_top_lcgw.asp?subjname="+subjname(ind))
end if
oldind1=ind0
end sub
</script>
<table width="100%" border="1" cellspacing="1" cellpadding="1">
<input type="hidden" name="parent" value="集团及子公司列表">
<%
sql="SELECT * FROM gongs order by quanz "
set jin=server.createobject("adodb.recordset")
jin.open sql,conn,1,1
sql="SELECT count(*) as tj1 FROM bum "
set jin5=server.createobject("adodb.recordset")
jin5.open sql,conn,1,1
tjzs=jin5("tj1")
%>
<%j=1
do until jin.eof
if j>5 then
k=jin("gongsmc")
%></tr><tr>
<td valign="center"><input type="checkbox" name=m<% =jin("id")%> value="ON" ><input valign="top" readonly type="text" value=<% =jin("gongsmc")%> onclick="call mclick(<%=j%>,<%=tjzs%>)" style="cursor: hand;BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 80px;COLOR: red;" size="20">
</td>
<%j=1
else
%><td valign="center"><input type="checkbox" name=m<% =jin("id")%> value="ON" ><input valign="top" readonly type="text" value=<% =jin("gongsmc")%> onclick="call mclick(<%=j%>,<%=tjzs%>)" style="cursor: hand;BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 80px;COLOR: red;" id=text1 name=text1 size="20">
</td>
<%end if
j=j+1
jin.movenext %>
<%loop
jin.close
%></table>
<% sql="SELECT * FROM gongs order by quanz "
set jin=server.createobject("adodb.recordset")
jin.open sql,conn,1,1
shu1=0
do until jin.eof
k=jin("id")
sql="SELECT * FROM bum where gongsid="& k & " order by quanz" %>
<table id="mylist" style=display:none width="100%" border="1" cellspacing="1" cellpadding="1">
<tr><td colspan=8 align="center">下面是<font color=red><%=jin("gongsmc")%></font>下的部门！</td></tr>
<%set jin1=server.createobject("adodb.recordset")
jin1.open sql,conn,1,1
j=1%>
<tr><%do until jin1.eof
shu1=shu1+1
if j>8 then%>
</tr><tr>
<td valign="center"><input type="checkbox" name=n<% =jin1("id")%> value="ON" ><input valign="top" readonly type="text" value=<% =jin1("bummc")%> onclick="call mclick1(<<%=shu1%>)" style="cursor: hand;BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 80px;COLOR: red;" size="20">
</td>
<%j=1
else%>
<td valign="center"><input type="checkbox" name=n<% =jin1("id")%> value="ON" ><input valign="top" readonly type="text" value=<% =jin1("bummc")%> onclick="call mclick1(<%=shu1%>)" style="cursor: hand;BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 80px;COLOR: red;" id=text2 name=text2 size="20">
</td>
<%end if
j=j+1%>
<%jin1.movenext
loop
jin1.close%>
</tr>
</table>
<%jin.movenext
loop
jin.close
%>
<% sql="SELECT * FROM bum order by gongsid,quanz "
set jin2=server.createobject("adodb.recordset")
jin2.open sql,conn,1,1
'jin.movefirst
shu=0
do until jin2.eof
k=jin2("id")
shu=shu+1
sql11="SELECT * FROM yuang where bumid="& k & " order by quanz" %>
<table id="mylist1" style=display:none width="100%" border="1" cellspacing="1" cellpadding="1">
<tr><td colspan=8 align="center">下面是<font color=red><%=jin2("bummc")%></font>下的用户！</td></tr>
<%set jin11=server.createobject("adodb.recordset")
jin11.open sql11,conn,1,1
j=1%>
<tr><%do until jin11.eof
if j>8 then%>
</tr><tr>
<td><input type="checkbox" name=c<% =jin11("id")%> value="ON" ><font color="#000040"><% =jin11("yuangmc")%></font></td>
<%j=1
else%>
<td><input type="checkbox" name=c<% =jin11("id")%> value="ON" ><font color="#000040"><% =jin11("yuangmc")%></font></td>
<%end if
j=j+1%>
<%jin11.movenext
loop
jin11.close%>
</tr>
</table>
<%jin2.movenext
loop
'res1.close %>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -