📄 fgongsi.asp
字号:
<!--#include file="../../conn/adminconn.asp"-->
<!--#include file="login.asp"-->
<%
'删除用户
if request("del")<>"" then
sql0="delete from fuser where id="&request("del")
conn.execute(sql0)
end if
'公司名称
set rs=server.CreateObject("adodb.recordset")
sql="select * from fgongsi"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
body,td,th {
font-size: 12px;
}
-->
</style>
<link href="../admin.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.style2 {color: #000000}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
function jumpMenu(targ,selObj,restore){
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
</script>
</head>
<body>
</td>
</tr>
<form action="fsave.asp" method="post" name="form1" id="form1">
<table width="300" height="175" border="0" align="center">
<tr>
<td><table width="369" height="175" border="0" align="center" cellspacing="1" bgcolor="#000000">
<tr >
<td height="39" colspan="2" background="../images/tiao.gif"><div align="center"><span class="style2">分公司管理</span></div></td>
</tr>
<tr>
<td width="109" height="31" bgcolor="#FFFFFF"><div align="right">分公司名称：</div></td>
<td height="34" bgcolor="#FFFFFF">
<table width="95%" border="0" align="center">
<tr>
<td><select name="select1" class="kuang" id="select1">
<%
if rs.eof then%>
<option>－请添加分公司－</option>
<%
else
for i=1 to rs.recordcount and not rs.eof
%>
<option value=<%=rs("id")%>><%=rs("fengongsi")%></option>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</select></td>
<td><input name="Submit" type="image" value="删除" src="../images/shanchu.gif" onClick="form1.options.value='del'">
<input type="hidden" name="options" ></td>
</tr>
</table></td>
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF"><div align="right">更改分公司名称：</div></td>
<td height="30" bgcolor="#FFFFFF"><table width="95%" border="0" align="center">
<tr>
<td><input name="gname" type="text" class="kuang" id="gname"></td>
<td><input name="Submit2" type="image" value="修改" src="../images/genggai.gif" onClick="form1.options.value='gname'"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="28" bgcolor="#FFFFFF"><div align="right">添加分公司名称：</div></td>
<td height="28" bgcolor="#FFFFFF"><table width="95%" border="0" align="center">
<tr>
<td><input name="tname" type="text" class="kuang" id="tname"></td>
<td><input name="Submit3" type="image" value="添加" src="../images/tianjia.gif" onClick="form1.options.value='tname'"></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="29" colspan="2"> </td>
</tr>
</table></td>
<td><table width="369" height="175" border="0" cellspacing="1" bgcolor="#000000">
<tr >
<td height="39" colspan="2" background="../images/tiao.gif"><div align="center"><span class="style2">分公司管理员添加</span></div></td>
</tr>
<tr>
<td width="109" height="36" bgcolor="#FFFFFF"><div align="right">分公司名称：</div></td>
<td bgcolor="#FFFFFF">
<select name="gongsi" class="kuang" id="select5">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from fgongsi"
rs.open sql,conn,1,1
if rs.eof then%>
<option>－暂无公司－</option>
<%
else
for i=1 to rs.recordcount and not rs.eof
%>
<option value=<%=rs("id")%>><%=rs("fengongsi")%></option>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</select>
</td>
</tr>
<tr>
<td height="32" bgcolor="#FFFFFF"><div align="right">用户名：</div></td>
<td bgcolor="#FFFFFF">
<input name="username" type="text" class="kuang" id="username">
</td>
</tr>
<tr>
<td height="28" bgcolor="#FFFFFF"><div align="right">密 码：</div></td>
<td bgcolor="#FFFFFF"><table width="92%" border="0" align="center">
<tr>
<td width="74%"><input name="userpwd" type="text" class="kuang" id="userpwd2"></td>
<td width="26%"><input name="Submit32" type="image" value="添加" src="../images/tianjia.gif" onClick="form1.options.value='user'"></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="29" colspan="2"><div align="center"> </div></td>
</tr>
</table></td>
</tr>
</table>
</form>
<table width="76%" height="37" border="0" align="center" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="13%" height="26" background="../images/tiao.gif"><div align="center"><span class="style2">分类查看 </span> </div></td>
<td width="87%" background="../images/tiao.gif"><select name="menu1" onChange="jumpMenu('self',this,0)">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from fgongsi"
rs.open sql,conn,1,1
if rs.eof then%>
<option selected>－请添加分公司－</option>
<%
else
response.Write(" <option value=fgongsi.asp>－－－－－－显示全部分公司－－－－－－</option>")
%>
<%
for i=1 to rs.recordcount and not rs.eof
if int(request("fenlei"))=rs("id") then
%>
<option value=fgongsi.asp?fenlei=<%=rs("id")%> selected><%=rs("fengongsi")%></option>
<% Else %>
<option value=fgongsi.asp?fenlei=<%=rs("id")%>><%=rs("fengongsi")%></option>
<%
end if
rs.movenext
if rs.eof then exit for
next
end if
%>
</select>
</td>
</tr>
</table>
<table width="76%" border="0" align="center" cellspacing="1" bgcolor="#CCCCCC">
<tr >
<td width="33%" height="33" background="../images/tiao.gif"><div align="center"><span class="style2">用户名</span></div>
<div align="center"></div></td>
<td width="36%" height="33" background="../images/tiao.gif"><div align="center"><span class="style2">所属公司</span></div></td>
<td colspan="2" background="../images/tiao.gif"><div align="center"><span class="style2">管理</span></div></td>
</tr>
<%
if request("fenlei")<>"" then
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from fuser where fengongsi='"&request("fenlei")&"'"
rs1.open sql1,conn,1,1
else
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from fuser"
rs1.open sql1,conn,1,1
end if
if not rs1.eof then
tol=rs1.recordcount
show=15
rs1.pagesize=show
maxpage=rs1.pagecount
requestpage=clng(request("p"))
if requestpage="" or requestpage=0 then
requestpage=1
end if
if requestpage>maxpage then
requestpage=maxpage
end if
if requestpage<>1 then
rs1.move (requestpage-1)*rs1.pagesize
end if
for i=1 to rs1.pagesize and not rs1.eof
%>
<tr>
<td height="27" bgcolor="#FFFFFF"><div align="center"><%=rs1("username") %></div> <div align="center"></div></td>
<td bgcolor="#FFFFFF">
<div align="center">
<%
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from fgongsi where id="&rs1("fengongsi")
rs2.open sql2,conn,1,1
%>
<a href=fgongsi.asp?fenlei=<%=rs2("id")%>> <%=rs2("fengongsi") %></a>
</div></td>
<td width="16%" bgcolor="#FFFFFF"><div align="center"><a href="gongsied.asp?id=<%=rs1("id")%>">修改</a></div></td>
<td width="15%" bgcolor="#FFFFFF"><div align="center"><a href="fgongsi.asp?del=<%=rs1("id")%>&p=<%=requestpage%>">删除</a></div></td>
</tr>
<%
rs1.movenext
if rs1.eof then exit for
next
else
response.Write("暂无用户")
end if
%>
<tr>
<td height="27" colspan="4" bgcolor="#FFFFFF"><div align="right">共<%= maxpage %>页 当前页：<%= requestpage %> <a href="fgongsi.asp?p=<%=requestpage-1%>">上一页</a> <a href="fgongsi.asp?p=<%=requestpage+1%>">下一页</a></div></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -