📄 x_company.asp
字号:
<!--#include file="x_top.asp" -->
<table width="100%" height="282" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200" valign="top">
<%call zuo_kuaijie("公司设置面板","公司设置首页,?||公司基本设置,?chuli=shezhi||公司业务类设置,?chuli=ylei||公司部门设置,?chuli=bumen") %>
</td>
<td valign="top"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><div id="comlist"></div></td>
</tr>
<tr>
<td width="1%"><img src="skins/list/l1.gif" width="7" height="9" /></td>
<td width="98%" background="skins/list/l2.gif"></td>
<td width="1%"><img src="skins/list/l8.gif" width="8" height="9" /></td>
</tr>
<tr>
<td background="skins/list/l3.gif"> </td>
<td height="400" valign="top">
<% select case Trim(Request.QueryString("chuli"))
case "shezhi"
%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<form id="form1" name="form1" method="post" action="c_company.asp?chuli=shezhi">
<tr>
<td colspan="2"><b><font color="#FF6600" size="2">公司基本设置</font></b></td>
</tr>
<tr>
<td width="20%" align="right">公司名称全称：</td>
<td width="80%">
<input name="s_name" type="text" class="nnt_input" id="s_name" value="<%= s_name %>" />
</td>
</tr>
<tr>
<td align="right">公司顶部LOGO：</td>
<td><input name="s_logo" type="text" class="nnt_input" id="s_logo" value="<%= s_logo %>" /></td>
</tr>
<tr>
<td align="right">公司电话：</td>
<td><input name="s_dianhua" type="text" class="nnt_input" id="s_dianhua" value="<%=s_dianhua%>" size="60" /></td>
</tr>
<tr>
<td align="right">公司所在地址：</td>
<td><input name="s_dizhi" type="text" class="nnt_input" id="s_dizhi" value="<%=s_dizhi%>" size="60" /></td>
</tr>
<tr>
<td align="right">公司邮编：</td>
<td><input name="s_youbian" type="text" class="nnt_input" id="s_youbian" value="<%=s_youbian%>" /></td>
</tr>
<tr>
<td align="right"> </td>
<td> </td>
</tr>
<tr>
<td align="right"> </td>
<td><input name="Submit" type="submit" class="nnt_submit" value="提交" /></td>
</tr></form>
</table>
<% case "ylei"
l=Trim(Request.QueryString("l"))
if l="" then l=0
call listsub("comlist","公司业务类列表,?chuli=ylei&l=0||添加新业务类,?chuli=ylei&l=1",int(l))
select case l
case "1"
editid=Trim(Request.QueryString("editid"))
if editid<>"" then
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_ylei where y_lid="&editid&""),conn,1,1
if rs.eof then call cnerror("没有查询到此业务类，请返回重新选择！",0)
y_name=rs("y_name")
y_id=rs("y_id")
y_xuan=rs("y_xuan")
rs.close
set rs=nothing
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<form id="form3" name="form3" method="post" action="c_company.asp?chuli=addylei&editid=<%= editid %>">
<tr>
<td colspan="2"><b><font color="#FF6600" size="2">公司新业务类添加操作</font></b></td>
</tr>
<tr>
<td width="21%" align="right">业务类名称：</td>
<td width="79%"><input name="y_name" type="text" class="nnt_input" id="y_name" value="<%=y_name%>" /></td>
</tr>
<tr>
<td width="21%" align="right">业务类ID：</td>
<td width="79%"><input name="y_id" type="text" class="nnt_input" id="y_id" value="<%=y_id%>" size="5" />
从0开始的数字 ，不能和其他类重复。 </td>
</tr>
<tr>
<td align="right">特殊输入项：</td>
<td><input name="xuanze" type="checkbox" id="xuanze" onclick="xuanzechuli()" value="yes" <% if y_xuan<>"" then Response.Write("checked=checked") %> />
有，增加 (可以不增加，增加后业务提交时会显示输入特殊项内容) </td>
</tr>
<tr>
<td colspan="2">
<div id="xuanze_x" style="border:solid 1px #C8E4FF;background-color:#E6F0FF;display:<% if y_xuan="" then Response.Write("none") %>; padding:5px">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="16%"><b>新输入项名称</b></td>
<td width="27%"><b>输入的类型</b></td>
<td width="27%"><b>默认值</b></td>
<td width="30%"><b>是否必填</b></td>
<td width="30%"> </td>
</tr>
<tr>
<td><input name="js_xname" type="text" class="nnt_input" id="js_xname" size="15" /></td>
<td><select name="js_lei" id="js_lei">
<option value="0">输入框</option>
<option value="1">多输入框</option>
<option value="2">单选择栏</option>
<option value="3">多选择栏</option>
</select>
</td>
<td><input name="js_moren" type="text" class="nnt_input" id="js_moren" /></td>
<td><input name="js_bi" type="checkbox" id="js_bi" value="1" />
必填</td>
<td><input name="Submit4" type="button" class="nnt_submit" value="增加" onclick="addxuan()" /></td>
</tr>
</table>
<div id="xuannei">
<% yf=0
if y_xuan<>"" then
yxuans=split(y_xuan,"[|@|]")
for yf=0 to ubound(yxuans)
if yxuans(yf)<>"" then
yxuannei=split(yxuans(yf),"||") %>
<div id="xuan_d_<%= yf %>"> <a href=#1 onclick="delxuan(<%= yf %>)">[ 删除 ]</a> 名称：<%= yxuannei(0) %> 输入类型：<%= yxuannei(1) %> 默认：<%= yxuannei(2) %><%= yxuannei(3) %><input name="xuan_x_<%= yf %>" type="hidden" value="<%= yxuans(yf) %>" /></div><% end if
next
end if
%></div>
</div>
</td>
</tr>
<tr>
<td> </td>
<td><input name="y_zongshu" id="y_zongshu" type="hidden" value="<%= yf %>" /><input name="Submit3" type="submit" class="nnt_submit" value="提交" /></td>
</tr></form>
</table><script language="JavaScript" type="text/javascript">
function xuanzechuli(){
if (document.all('xuanze').checked==true){
document.all('xuanze_x').style.display="";
}else{
document.all('xuanze_x').style.display="none";
}
}
var xs=parseInt(document.all('y_zongshu').value);
function addxuan(){
var text_name=document.all('js_xname').value;
var text_moren=document.all('js_moren').value;
var text_lei=document.all('js_lei').value;
var text_bi=document.all('js_bi').checked;
if (text_name==""){alert("请输入名称！");return false;}
if (text_bi==true){bixuan=" 必选";}else{bixuan="";}
document.all('xuannei').innerHTML='<div id="xuan_d_'+xs+'"> <a href=#1 onclick="delxuan('+xs+')">[ 删除 ]</a> 名称：'+text_name+' 输入类型：'+text_lei+' 默认：'+text_moren+bixuan+'<input name="xuan_x_'+xs+'" type="hidden" value="'+text_name+'||'+text_lei+'||'+text_moren+'||'+bixuan+'" /></div>'+document.all('xuannei').innerHTML;
document.all('y_zongshu').value=xs;
xs=xs+1;
}
function delxuan(delid){
document.all('xuan_d_'+delid).innerHTML="";
}
<% if y_xuan<>"" then Response.Write("document.all('xuanze_x').style.display='';") %>
</script>
<% case else %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td class='td_heng'><b>业务类名称</b></td>
<td class='td_heng'><b>业务类ID</b></td>
<td class='td_heng'><b>输入项</b></td>
<td class='td_heng'><b>可用操作</b></td>
</tr>
<% set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_ylei order by y_id desc"),conn,1,1
for ls=1 to int(rs.recordcount) %>
<tr onMouseOver="javascript:bgColor='#C8E4FF'" onMouseOut="javascript:bgColor='#ffffff'">
<td><b><font color="#FF6600" size="2"><img src="skins/sb/033hhh.png" width="20" align="absmiddle" /></font></b> <%= rs("y_name") %> </td>
<td><%= rs("y_id") %> </td>
<td><% if rs("y_xuan")<>"" then Response.Write("有输入项") else Response.Write("无") %> </td>
<td><a href="?chuli=ylei&l=1&editid=<%=rs("y_lid")%>">修改</a> | <a href="#" onclick="tishi_qp_kai('您确定要删除此业务类吗？删除后将会对此类下的业务有影响，建议修改。<br><br><a href=c_company.asp?chuli=delylei&yid=<%= rs("y_lid") %>>1 确认要删除此业务类</a><br><br><a href=#1 onclick=tishi_qp_guan()>2 我再考虑考虑</a>',1)">删除</a></td>
</tr><% rs.movenext
next
rs.close
set rs=nothing %>
</table>
<% end select %>
<% case "bumen"
l=Trim(Request.QueryString("l"))
if l="" then l=0
call listsub("comlist","公司部门列表,?chuli=bumen&l=0||添加部门/职位,?chuli=bumen&l=1",int(l))
select case l
case "1"
editid=Trim(Request.QueryString("editid"))
set brs= Server.CreateObject("adodb.recordset")
if editid<>"" then
brs.open ("select * from nnt_quan where q_id="&editid&""),conn,1,1
if brs.eof then call cnerror("没有查询到此部门/职位的信息，请返回重新操作。",1)
thisname=brs("q_name")
thislei=brs("q_lei")
thiss=brs("q_s")
thisquan=brs("q_quanxian")
thisylei=brs("q_ylei")
thisjief=split(brs("q_new"),"[||@@@@||]")
lei_jie=thisjief(0)
brs.close
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<form id="form2" name="form2" method="post" action="c_company.asp?chuli=bumenadd&editid=<%= editid %>">
<tr>
<td colspan="2"><b><font color="#FF6600" size="2">公司部门/职位添加操作</font></b></td>
</tr><tr>
<td align="right">添加类型：</td>
<td><input name="q_l" type="radio" value="0" <% if thiss<>1 then Response.Write("checked=checked") %> />
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -