📄 wnp_zcgl.asp
字号:
<!--#include file="WNP_INCLUDE.ASP" -->
<%
pagename="WNP_ZCGL.ASP"
%>
<LINK href="JS/styles.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript src="JS/basal.js"></SCRIPT>
<META content="MSHTML 6.00.2800.1522" name=GENERATOR>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
<SCRIPT language=javascript src="JS/Keane_Common.js"></SCRIPT>
<SCRIPT language=javascript>
function sendit(thisForm) {
var Empty=false
if (thisForm.qymc.value.length<6) {
alert("请您填好你的单位名称！");
document.thisForm.qymc.focus();
return (false);
}
if (thisForm.yhmm.value.length<8) {
alert("请您填好用户密码，密码最少为8位！");
document.thisForm.yhmm.focus();
return (false);
}
if (thisForm.sshy.value=="") {
alert("请您选择好所属行业！");
thisForm.sshy.focus();
return (false);
}
if (thisForm.qyxz.value=="") {
alert("请您选择好单位性质！");
thisForm.qyxz.focus();
return (false);
}
if (thisForm.Province.value=="") {
alert("请您选择好单位所在行政区划！");
thisForm.Province.focus();
return (false);
}
if (thisForm.txdz.value.length<4) {
alert("请您填好通讯地址！");
document.thisForm.txdz.focus();
return (false);
}
var filter1=/^\s*[.0-9_-]{6,6}\s*$/;
if (!filter1.test(document.thisForm.yzbm.value)) {
alert("请您填好邮政编码，必须是6位数字！");
document.thisForm.yzbm.focus();
return false;
}
if (thisForm.zyfzr.value=="") {
alert("请您填好主要负责人！");
document.thisForm.zyfzr.focus();
return (false);
}
if (thisForm.bgdh.value.length<9) {
alert("请您填好办公电话（注明区号）！");
document.thisForm.bgdh.focus();
return (false);
}
if (thisForm.zzdh.value.length<9) {
alert("请您填好住宅电话（注明区号）！");
document.thisForm.zzdh.focus();
return (false);
}
if (thisForm.yddh.value.length<11) {
alert("请您填好移动电话（手机）！");
document.thisForm.yddh.focus();
return (false);
}
if (thisForm.txlb.value.length<10) {
alert("请您认真填写通讯列表！");
thisForm.txlb.focus();
return (false);
}
var pattern = /^([a-zA-Z0-9_-])+(\.([a-zA-Z0-9_-])+)*@([a-zA-Z0-9_-])+(\.([a-zA-Z0-9_-])+)+$/;
var filter1=/^\s*[.0-9_-]{6,6}\s*$/;
if (!pattern.test(document.thisForm.email.value)) {
alert("请您填好电子邮件！");
document.thisForm.email.focus();
return false;
}
return (true);
}
</SCRIPT>
<!--以下检查电话号码输入是否为数字//-->
<SCRIPT>
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
</SCRIPT>
<table width="760" height="20" border="0" align="center" cellpadding="0" cellspacing="0" class="textmost">
<form name="search" method="post" action="<%=pagename%>">
<tr valign="bottom">
<td height="15" colspan="6" align="center"> </td>
<tr valign="bottom" bgColor=#fdfaf4 borderColorDark=#ffffff border=1>
<td width="85" height="20" align="center">查询：</td>
<td width="183"><input name="key1" type="text" id="key1"></td>
<td colspan="4" align="left" bgcolor="#fdfaf4"><input type="image" src="IMAGES/search.jpg"></td>
<tr valign="bottom">
<td height="15" colspan="6" align="center"> </td>
</form>
</table>
<%
action=request("action")
if action="" then
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center" class="title1">单位列表</td>
</tr>
</table>
<table bgColor=#fdfaf4 borderColorDark=#ffffff border=1 cellspacing=0 cellpadding=0 align=center width=760 bordercolorlight=#999999 class=textmost>
<tr align="center" valign="bottom" class="texttitle">
<td width="60" height="30"><div align="center">单位序号</div></td>
<td>单位名称</td>
<td>单位编码</td>
<td>所属行业</td>
<td>行政区划</td>
<td>注册资金</td>
<td>雇员人数</td>
<td>办公电话</td>
<td>移动电话</td>
<td>详细信息</td>
</tr>
<%
dim action
action=request("action")
if action="delete" then
dim qyid
qyid=request("qyid")
sql="select * from WNT_USER where WND_USER_UNITID="&qyid
rssub.open sql,conn,1,1
if not rssub.eof then
rssub.close
response.Write "<script language=javascript>alert('该单位用户不为空，不能删除！');location.href='WNP_ZCDELETE.ASP';</script>"
else
tableName="WNT_UNIT"
fieldName="WND_UNIT_Order"
fieldId="WND_UNIT_ID"
recordId=request("qyid")
call delOrder(tableName,fieldName,fieldId,recordId)
sql="delete from WNT_UNIT where WND_UNIT_ID="&qyid
conn.execute(sql)
end if
end if
%>
<!--#include file="WNP_UNIT_SQL.ASP" -->
<%
do while not rs.eof and c<MaxPerPage
%>
<tr align="center" valign="bottom" class="textmost">
<form name="formUnitInfo" method="post" action="WNP_ZCGL.ASP?action=unitInfo&unitId=<%=rs("WND_UNIT_ID")%>">
<td height="25"><%=rs("WND_UNIT_Order")%></td>
<td><%=rs("WND_UNIT_UN")%></td>
<td><%=rs("UNIT_BM")%> </td>
<td><%=rs("WND_UNIT_RP")%> </td>
<td><%=rs("WND_UNIT_Province")%> </td>
<td><%
if rs("WND_UNIT_RF")<>"" then
response.Write rs("WND_UNIT_RF")
else
response.Write " "
end if
%>
</td>
<td><%
if rs("WND_UNIT_EP")<>"" then
response.Write rs("WND_UNIT_EP")
else
response.Write " "
end if
%>
</td>
<td><%=rs("WND_UNIT_OT")%> </td>
<td><%=rs("WND_UNIT_CT")%> </td>
<td><input name="Submit" type="submit" class="newSubmit" value="查 看">
</td>
</form>
</tr>
<%
rs.movenext
c=c+1
loop
rs.close
%>
</table>
<!--#include file="WNP_PAGEEND.ASP" -->
<%
elseif action="unitInfo" then
sql="select * from WNT_UNIT where WND_UNIT_ID="&request("unitId")
rssub.open sql,conn,1,1
if not rssub.eof then
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center" class="title1"><%=rssub("WND_UNIT_UN")%></td>
</tr>
</table>
<table bgColor=#fdfaf4 borderColorDark=#ffffff border=1 cellspacing=0 cellpadding=0 align=center width=760 bordercolorlight=#999999 class=textmost>
<TR align=middle valign="bottom">
<TD width="100" height=25 align=right bgColor=#fffae8>序号：</TD>
<TD align=left bgColor=#fdfaf4> <%=rssub("WND_UNIT_Order")%> <FONT color=red>*</FONT></TD>
<TD align=right bgColor=#fdfaf4>编码：</TD>
<TD align=left bgColor=#fdfaf4> <%=rssub("UNIT_BM")%> <FONT color=red>*</FONT></TD>
</TR>
<TR align=middle valign="bottom">
<TD height=25 align=right bgColor=#fffae8>单位名称：</TD>
<TD colspan="3" align=left bgColor=#fdfaf4> <%=rssub("WND_UNIT_UN")%> <FONT color=red>*</FONT></TD>
</TR>
<TR align=middle valign="bottom">
<TD height=25 align=right bgColor=#fffae8>单位类型：</TD>
<TD width="285" align="left" bgColor=#fdfaf4> <%
sql="select * from WNT_UMT where WND_UMT_ID="&rssub("WND_UNIT_MT")
rs.open sql,conn,1,1
if not rs.eof then
response.Write rs("WND_UMT_NAME")
else
response.Write " "
end if
rs.close
%></TD>
<TD width="100" align=right bgcolor="#fffae8">所属行业：</TD>
<TD width="285" align=left bgColor=#fdfaf4>
<%sql="select WND_RP_ID,WND_RP_USER from WNT_RP where WND_RP_USER='"&rssub("WND_UNIT_RP")&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.Write rs("WND_RP_USER")
else
response.Write " "
end if
rs.close
%></TD>
</TR>
<TR align=middle valign="bottom">
<TD height=25 align=right bgColor=#fffae8>单位性质：</TD>
<TD colSpan=3 align=left bgColor=#fdfaf4>
<%
sql="select * from WNT_UnitPossion_Di where WND_IAD_USER='"&rssub("WND_UNIT_EN")&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.Write rs("WND_IAD_USER")
else
response.Write " "
end if
rs.close
%></TD>
</TR>
<TR align=middle valign="bottom">
<TD height=25 align=right bgColor=#fffae8>注册资金：</TD>
<TD colSpan=3 align=left bgColor=#fdfaf4> <%=rssub("WND_UNIT_RF")%> </TD>
</TR>
<TR valign="bottom">
<TD height=25 align=right bgColor=#fffae8>雇员人数：</TD>
<TD colSpan=3 align=left bgColor=#fdfaf4> <%=rssub("WND_UNIT_EP")%> </TD>
</TR>
<TR valign="bottom">
<TD height=25 align=right bgColor=#fffae8>行政区划：</TD>
<TD colSpan=3 align=left bgColor=#fdfaf4>
<%
sql="select * from WNT_IAD where WND_IAD_ID='"&rssub("WND_UNIT_Province")&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.Write rs("WND_IAD_USER")
else
response.Write " "
end if
rs.close
%></TD>
</TR>
<TR align=middle valign="bottom">
<TD height=25 align=right bgColor=#fffae8>通讯地址： </TD>
<TD colSpan=3 align=left bgColor=#fdfaf4> <%=rssub("WND_UNIT_MA")%>
</TD>
</TR>
<TR align=middle valign="bottom">
<TD height=25 align=right bgColor=#fffae8>邮政编码：</TD>
<TD align=left bgColor=#fdfaf4> <%=rssub("WND_UNIT_ZC")%></TD>
<TD width="100" align=right bgcolor="#fffae8">主要负责人：</TD>
<TD align=left bgColor=#fdfaf4> <%=rssub("WND_UNIT_USER")%></TD>
</TR>
<TR align=middle valign="bottom">
<TD height=25 align=right bgColor=#fffae8>办公电话：</TD>
<TD align=left bgColor=#fdfaf4> <%=rssub("WND_UNIT_OT")%></TD>
<TD width="100" align=right bgcolor="#fffae8">住宅电话：</TD>
<TD align=left bgColor=#fdfaf4> <%=rssub("WND_UNIT_HT")%></TD>
</TR>
<TR align=middle valign="bottom">
<TD height=25 align=right bgColor=#fffae8>传真电话：</TD>
<TD align=left bgColor=#fdfaf4> <%=rssub("WND_UNIT_TF")%></TD>
<TD width="100" align=right bgcolor="#fffae8">移动电话：</TD>
<TD align=left bgColor=#fdfaf4> <%=rssub("WND_UNIT_CT")%></TD>
</TR>
<TR align=middle valign="bottom">
<TD height=25 align=right bgColor=#fffae8>电子邮件：</TD>
<TD colspan="3" align=left bgColor=#fdfaf4> <%=rssub("WND_UNIT_EM")%>
</TD>
</TR>
<TR>
<TD height="25" align=right valign="middle" bgColor=#fffae8>通讯列表：</TD>
<TD colSpan=3 bgColor=#fdfaf4><%=rssub("WND_UNIT_TCT")%> </TD>
</TR>
<TR align="center">
<TD height="50" colspan="4" bgColor=#fffae8><input name="Submit" type="button" class="newSubmit" value="返 回" onClick="javascript:location.href='WNP_ZCGL.ASP';"></TD>
</TR>
</TABLE>
<%
end if
end if
call closedb
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -