📄 wnp_zc.asp
字号:
<!--#include file="WNP_INCLUDE.ASP" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
pagename="WNP_ZC.ASP"
%>
<table width="760" 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>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center" class="title1">编辑单位</td>
</tr>
</table>
<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) {
if (thisForm.unitOrder.value=="") {
alert("请正确填写序号!");
document.thisForm.unitOrder.focus();
return (false);
}
if (thisForm.dwbm01.value=="") {
alert("请正确填写单位编码!");
document.thisForm.dwbm01.focus();
return (false);
}
if (thisForm.qymc.value.length<2) {
alert("请正确填写单位名称!");
document.thisForm.qymc.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>
<%
dim action
action=request("action")
if action="" then
%>
<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>
<!--#include file="WNP_UNIT_SQL.ASP" -->
<%
do while not rs.eof and c<MaxPerPage
%>
<tr align="center" valign="bottom" class="textmost">
<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" onClick="location.href='WNP_ZC.ASP?action=edit&qyid='+<%=rs("WND_UNIT_ID")%>;" value="修 改"></td>
</tr>
<%
rs.movenext
c=c+1
loop
rs.close
%>
</table>
<!--#include file="WNP_PAGEEND.ASP" -->
<%
elseif action="edit" then
dim qyid
qyid=request("qyid")
sql="select * from WNT_UNIT where WND_UNIT_ID="&qyid
rssub.open sql,conn,1,1
if not rssub.eof then
%>
<table bgColor=#fdfaf4 borderColorDark=#ffffff border=1 cellspacing=0 cellpadding=0 align=center width=760 bordercolorlight=#999999 class=textmost>
<FORM name=thisForm onsubmit="return sendit(this)" method="post" action="WNP_ZCCL.ASP?action=edit&qyid=<%=rssub("WND_UNIT_ID")%>">
<TBODY>
<TR valign="bottom">
<TD height=25 colSpan=6 align=left class="texttitle"><B> 基本信息</B></TD>
</TR>
<TR align=middle valign="bottom">
<TD height=23 align=right bgColor=#fffae8>序号：</TD>
<TD height=23 align=left bgColor=#fdfaf4><input name="unitOrder" type="text" class="textInput1" id="unitOrder" value="<%=rssub("WND_UNIT_Order")%>" size="4" maxlength="4">
<FONT color=red>*</FONT></TD>
<TD height=23 align=right bgColor=#fdfaf4>编码：</TD>
<TD height=23 colspan="3" align=left bgColor=#fdfaf4>
<INPUT name=dwbm01 class="textInput1" id="dwbm01" value="<%=right(rssub("UNIT_BM"),3)%>" size=18 maxlength="<%=session("EveryStepNumber")%>">
（<%=session("EveryStepNumber")%>位） <FONT color=red>*</FONT> <input name="hiddenFieldBM" type="hidden" id="hiddenFieldBM" value="<%=right(rssub("UNIT_BM"),3)%>"></TD>
</TR>
<TR align=middle valign="bottom">
<TD height=23 align=right bgColor=#fffae8>单位名称：</TD>
<TD height=23 colspan="5" align=left bgColor=#fdfaf4><INPUT name=qymc class="textInput1" id="qymc" value="<%=rssub("WND_UNIT_UN")%>"
size=30 maxLength=30>
<FONT color=red>*</FONT></TD>
</TR>
<TR align=middle valign="bottom">
<TD height=23 align=right bgColor=#fffae8>单位类型：</TD>
<TD height=23 align=left bgColor=#fdfaf4><select name="selectUnitType" id="selectUnitType">
<option value="" selected>:::请选择:::</option>
<%
sql="select * from WNT_UMT order by WND_UMT_Order asc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("WND_UMT_ID")%>" <%if rs("WND_UMT_ID")=rssub("WND_UNIT_MT") then response.Write "selected"%>><%=rs("WND_UMT_NAME")%></option>
<%
rs.movenext
loop
rs.close
%>
</select></TD>
<TD align=right bgColor=#fdfaf4>单位性质：</TD>
<TD align=left bgColor=#fdfaf4><select name="qyxz" id="qyxz">
<option value="" selected>:::请选择:::</option>
<%sql="select * from WNT_UnitPossion_Di where WND_IAD_Valid='yes' order by WND_IAD_ID asc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("WND_IAD_USER")%>" <%if rssub("WND_UNIT_EN")=rs("WND_IAD_USER") then response.Write "selected"%>><%=rs("WND_IAD_USER")%></option>
<%rs.movenext
loop
rs.close
%>
</select></TD>
<TD height=23 align=right>所属行业：</TD>
<TD height=23 align=left bgColor=#fdfaf4><select name="sshy" id="sshy">
<option value="" selected>:::::::::请:选:择:::::::::</option>
<%sql="select WND_RP_ID,WND_RP_USER from WNT_RP order by WND_RP_ID desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("WND_RP_USER")%>" <%if rssub("WND_UNIT_RP")=rs("WND_RP_USER") then response.Write "selected"%>><%=rs("WND_RP_USER")%></option>
<%rs.movenext
loop
rs.close
%>
</select></TD>
</TR>
<TR align=middle>
<TD align=right bgColor=#fffae8 height=23>注册资金：</TD>
<TD align=left bgColor=#fdfaf4 colSpan=5 height=23><INPUT name=zczj class="textInput1" id="zczj" value="<%=rssub("WND_UNIT_RF")%>" maxLength=20> </TD>
</TR>
<TR>
<TD align=right bgColor=#fffae8 height=23>雇员人数：</TD>
<TD align=left bgColor=#fdfaf4 colSpan=5 height=23><input name=gyrs class="textInput1" id="zyfzr3" value="<%=rssub("WND_UNIT_EP")%>" maxlength=20> </TD>
</TR>
<TR valign="bottom">
<TD height=23 align=right bgColor=#fffae8>行政区划：</TD>
<TD height=23 colSpan=5 align=left bgColor=#fdfaf4><select name="Province">
<option value="" selected>::::请选择::::</option>
<%
dim newArea
newArea=session("WND_USER_AREA")
if right(newArea,4)="0000" then
newArea=Left(newArea,2)
sql="select * from WNT_IAD where WND_IAD_ID like '"&newArea&"%' order by WND_IAD_ID asc"
elseif right(newArea,2)="00" then
newArea=Left(newArea,4)
sql="select * from WNT_IAD where WND_IAD_ID like '"&newArea&"%' order by WND_IAD_ID asc"
else
sql="select * from WNT_IAD where WND_IAD_ID='"&newArea&"' order by WND_IAD_ID asc"
end if
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("WND_IAD_ID")%>" <%if rssub("WND_UNIT_Province")=rs("WND_IAD_ID") then response.Write "selected"%>><%=rs("WND_IAD_USER")%></option>
<%rs.movenext
loop
rs.close
%>
</select></TD>
</TR>
<TR valign="bottom">
<TD height=25 colSpan=6 align=left><B><SPAN class=texttitle> 联系方式</SPAN></B></TD>
</TR>
<TR align=middle>
<TD align=right bgColor=#fffae8 height=23>通讯地址： </TD>
<TD align=left bgColor=#fdfaf4 colSpan=5 height=23><INPUT name=txdz class="textInput1" id="txdz" value="<%=rssub("WND_UNIT_MA")%>"
size=30 maxLength=30>
</TD>
</TR>
<TR align=middle>
<TD align=right bgColor=#fffae8 height=23>邮政编码：</TD>
<TD height=23 colspan="3" align=left bgColor=#fdfaf4><INPUT name=yzbm class="textInput1" id="yzbm"
onkeypress="return regInput(this,	/^[0-9]*$/,		String.fromCharCode(event.keyCode))" value="<%=rssub("WND_UNIT_ZC")%>" size=9
maxLength=6
onpaste="return regInput(this,	/^[0-9]*$/,		window.clipboardData.getData('text'))"
ondrop="return regInput(this,	/^[0-9]*$/,		event.dataTransfer.getData('text'))">
</TD>
<TD height=23 align=right valign="bottom">主要负责人：</TD>
<TD align=left bgColor=#fdfaf4 height=23><INPUT name=zyfzr class="textInput1" id="zyfzr" value="<%=rssub("WND_UNIT_USER")%>" maxLength=20>
</TD>
</TR>
<TR align=middle>
<TD align=right bgColor=#fffae8 height=23>办公电话：</TD>
<TD height=23 colspan="3" align=left bgColor=#fdfaf4><INPUT name=bgdh class="textInput1" id="bgdh"
onkeypress="return regInput(this,	/^[0-9()-]*$/,		String.fromCharCode(event.keyCode))" value="<%=rssub("WND_UNIT_OT")%>"
maxLength=50
onpaste="return regInput(this,	/^[0-9()-]*$/,		window.clipboardData.getData('text'))"
ondrop="return regInput(this,	/^[0-9()-]*$/,		event.dataTransfer.getData('text'))">
</FONT></TD>
<TD height=23 align=right valign="bottom">住宅电话：</TD>
<TD align=left bgColor=#fdfaf4 height=23><INPUT name=zzdh class="textInput1" id="zzdh"
onkeypress="return regInput(this,	/^[0-9()-]*$/,		String.fromCharCode(event.keyCode))" value="<%=rssub("WND_UNIT_HT")%>"
maxLength=50
onpaste="return regInput(this,	/^[0-9()-]*$/,		window.clipboardData.getData('text'))"
ondrop="return regInput(this,	/^[0-9()-]*$/,		event.dataTransfer.getData('text'))">
</TD>
</TR>
<TR align=middle>
<TD align=right bgColor=#fffae8 height=23>传真电话：</TD>
<TD height=23 colspan="3" align=left bgColor=#fdfaf4><INPUT
name=Fax class="textInput1" value="<%=rssub("WND_UNIT_TF")%>" maxLength=30>
<FONT color=#ff0000> </FONT></TD>
<TD height=23 align=right valign="bottom">移动电话：</TD>
<TD align=left bgColor=#fdfaf4 height=23><INPUT name=yddh class="textInput1" id="yddh"
onkeypress="return regInput(this,	/^[0-9()-]*$/,		String.fromCharCode(event.keyCode))" value="<%=rssub("WND_UNIT_CT")%>"
maxLength=50
onpaste="return regInput(this,	/^[0-9()-]*$/,		window.clipboardData.getData('text'))"
ondrop="return regInput(this,	/^[0-9()-]*$/,		event.dataTransfer.getData('text'))">
</TD>
</TR>
<TR align=middle>
<TD align=right bgColor=#fffae8 height=23>电子邮件：</TD>
<TD height=23 colspan="3" align=left bgColor=#fdfaf4><INPUT name=email class="textInput1" value="<%=rssub("WND_UNIT_EM")%>" size=25 maxLength=50>
</TD>
<TD align=right bgColor=#FFFAE8 height=23> </TD>
<TD align=left bgColor=#fdfaf4 height=23> </TD>
</TR>
<TR>
<TD align=right bgColor=#fffae8>通讯列表：</TD>
<TD bgColor=#fdfaf4 colSpan=5><TEXTAREA name=txlb cols=61 rows=4 class="textInput1" id="txlb"><%=rssub("WND_UNIT_TCT")%></TEXTAREA>
</TD>
</TR>
<TR align="center">
<TD height="50" colspan="6" bgColor=#fffae8><INPUT name=duo type=submit class="newSubmit" value=提交修改>
<INPUT name="Reset" type="button" class="newSubmit" value="取 消" onClick="location.href='?';"></TD>
</TR>
</TBODY>
</form>
</TABLE>
<%
end if
%>
<%
end if
call closedb
%>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -