📄 afgl_cp_xs_1.asp
字号:
<!--#include file="WNP_INCLUDE.ASP" -->
<div align="center">
<input type="button" name="Submit" value="新 增" onClick="location.href='?action=addIF';">
</div>
<script language="javascript">
<!--
function checkForm(){
if(form1.CP_XS_1_name.value == ""){
alert("企业名称不能为空！");
form1.CP_XS_1_name.focus();
return false;
}
}
//-->
</script>
<!--保存添加 -->
<%
sub saveAdd()
CP_XS_1_name = trim(request.Form("CP_XS_1_name"))
if CP_XS_1_name ="" then
response.Write("<script language=javascript>alert('工程名称不能为空！');history.back();</script>")
end if
CP_XS_1_add = trim(request.Form("CP_XS_1_add"))
CP_XS_1_fzjg = trim(request.Form("CP_XS_1_fzjg"))
CP_XS_1_code = trim(request.Form("CP_XS_1_code"))
CP_XS_1_masterCode = trim(request.Form("CP_XS_1_masterCode"))
CP_XS_1_master = trim(request.Form("CP_XS_1_master"))
CP_XS_1_phone = trim(request.Form("CP_XS_1_phone"))
CP_XS_1_fzr = trim(request.Form("CP_XS_1_fzr"))
CP_XS_1_fzrPhone = trim(request.Form("CP_XS_1_fzrPhone"))
CP_XS_1_email = trim(request.Form("CP_XS_1_email"))
CP_XS_1_web = trim(request.Form("CP_XS_1_web"))
CP_XS_1_pros = trim(request.Form("CP_XS_1_pros"))
CP_XS_1_frqz = trim(request.Form("CP_XS_1_frqz"))
CP_XS_1_addDate = date()
sql = "select * from AFGL_CP_XS_1 where CP_XS_1_name = '"&CP_XS_1_name&"'"
rs.open sql,conn,1,1
if not rs.eof then
rs.close
response.Write("<script language=javascript>alert('名称重复！');location.href='?';</script>")
else
rs.close
sql = "select * from AFGL_CP_XS_1"
rs.open sql,conn,1,3
rs.addnew
if CP_XS_1_name <> "" then
rs("CP_XS_1_name") = CP_XS_1_name
end if
if CP_XS_1_add <> "" then
rs("CP_XS_1_add") = CP_XS_1_add
end if
if CP_XS_1_fzjg <> "" then
rs("CP_XS_1_fzjg") = CP_XS_1_fzjg
end if
if CP_XS_1_code <> "" then
rs("CP_XS_1_code") = CP_XS_1_code
end if
if CP_XS_1_masterCode <> "" then
rs("CP_XS_1_masterCode") = CP_XS_1_masterCode
end if
if CP_XS_1_master <> "" then
rs("CP_XS_1_master") = CP_XS_1_master
end if
if CP_XS_1_phone <> "" then
rs("CP_XS_1_phone") = CP_XS_1_phone
end if
if CP_XS_1_fzr <> "" then
rs("CP_XS_1_fzr") = CP_XS_1_fzr
end if
if CP_XS_1_fzrPhone <> "" then
rs("CP_XS_1_fzrPhone") = CP_XS_1_fzrPhone
end if
if CP_XS_1_email <> "" then
rs("CP_XS_1_email") = CP_XS_1_email
end if
if CP_XS_1_web <> "" then
rs("CP_XS_1_web") = CP_XS_1_web
end if
if CP_XS_1_pros <> "" then
rs("CP_XS_1_pros") = CP_XS_1_pros
end if
if CP_XS_1_frqz <> "" then
rs("CP_XS_1_frqz") = CP_XS_1_frqz
end if
if CP_XS_1_addDate <> "" then
rs("CP_XS_1_addDate") = CP_XS_1_addDate
end if
rs.update
rs.close
response.Redirect("?")
end if
end sub
%>
<!-- 工程名称列表 -->
<%
sub listAll()
sql = "select * from AFGL_CP_XS_1 where CP_XS_1_name is not null"
rs.open sql,conn,1,1
if not rs.eof then
%>
<table width="760" border="1" align="center" cellpadding="5" cellspacing="0" class="FPtalbe">
<tr>
<td height="30" colspan="8" align="center"><span class="blackTitle">产品销售登记（列表）</span></td>
</tr>
<tr>
<td align="center"> 企业名称</td>
<td align="center">注册地址</td>
<td align="center"> 发照机关及编号</td>
<td align="center"> 邮政编码</td>
<td align="center"> 法人代码</td>
<td align="center"> 企业法人</td>
<td width="70" align="center">修改</td>
<td width="70" align="center">删除</td>
</tr>
<%
do while not rs.eof
%>
<tr>
<td><%=rs("CP_XS_1_name")%> </td>
<td><%=rs("CP_XS_1_add")%> </td>
<td><%=rs("CP_XS_1_fzjg")%> </td>
<td><%=rs("CP_XS_1_code")%> </td>
<td><%=rs("CP_XS_1_masterCode")%> </td>
<td><%=rs("CP_XS_1_master")%> </td>
<td align="center"><input type="button" name="Submit" value="修改>>" onClick="location.href='?action=edit&id=<%=rs("id")%>';"></td>
<td align="center"><input type="button" name="Submit" value="删除>>" onClick="if(confirm('确认删除该条记录？')){location.href='?action=delItem&id=<%=rs("id")%>';}"></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
else
response.Write("<p align=center>暂时没有记录，请点击""新增""按钮添加！</p>")
end if
rs.close
end sub
%>
<!-- 添加界面 -->
<%
sub addIF()
%>
<table width="760" border="1" align="center" cellpadding="5" cellspacing="0" class="FPtalbe">
<form name="form1" method="post" action="?action=saveAdd" onSubmit="return checkForm();">
<tr align="center">
<td height="30" colspan="4" class="blackTitle">产品销售登记</td>
</tr>
<tr>
<td width="100" align="center">企业名称</td>
<td colspan="3"><input name="CP_XS_1_name" type="text" id="CP_XS_1_name" size="50">
<span style="color: #FF0000">*</span></td>
</tr>
<tr>
<td align="center">注册地址</td>
<td colspan="3"><input name="CP_XS_1_add" type="text" id="CP_XS_1_add" size="50"></td>
</tr>
<tr>
<td rowspan="2" align="center">发照机关及编号</td>
<td rowspan="2"><input name="CP_XS_1_fzjg" type="text" id="CP_XS_1_fzjg" size="25"> </td>
<td width="100" align="center">邮政编码</td>
<td><input name="CP_XS_1_code" type="text" id="CP_XS_1_code" size="25"></td>
</tr>
<tr>
<td align="center">法人代码</td>
<td><input name="CP_XS_1_masterCode" type="text" id="CP_XS_1_masterCode" size="25"></td>
</tr>
<tr>
<td align="center">企业法人</td>
<td><input name="CP_XS_1_master" type="text" id="CP_XS_1_master" size="25"></td>
<td align="center">电话</td>
<td><input name="CP_XS_1_phone" type="text" id="CP_XS_1_phone" size="25"></td>
</tr>
<tr>
<td align="center">负责人</td>
<td><input name="CP_XS_1_fzr" type="text" id="CP_XS_1_fzr" size="25"></td>
<td align="center">电话</td>
<td><input name="CP_XS_1_fzrPhone" type="text" id="CP_XS_1_fzrPhone" size="25"></td>
</tr>
<tr>
<td align="center">Email</td>
<td><input name="CP_XS_1_email" type="text" id="CP_XS_1_email" size="25"></td>
<td align="center">网站地址</td>
<td><input name="CP_XS_1_web" type="text" id="CP_XS_1_web" size="25"></td>
</tr>
<tr>
<td align="center">代理经销产品名称<br>及制造商</td>
<td colspan="3"><textarea name="CP_XS_1_pros" cols="60" rows="5" id="CP_XS_1_pros"></textarea></td>
</tr>
<tr align="center">
<td>添表单位法人签字</td>
<td colspan="3" align="left"><textarea name="CP_XS_1_frqz" cols="60" rows="5" id="CP_XS_1_frqz"></textarea></td>
</tr>
<tr align="center">
<td colspan="4"><input type="submit" name="Submit" value="提 交">
<input type="reset" name="Submit" value="返 回" onClick="history.back();"></td>
</tr>
</form>
</table>
<%
end sub
%>
<%
sub editIF()
sql="select * from AFGL_CP_XS_1 where id="&trim(request.QueryString("id"))
rs.open sql,conn,1,1
if not rs.eof then
%>
<table width="760" border="1" align="center" cellpadding="5" cellspacing="0" class="FPtalbe">
<form name="form1" method="post" action="?action=saveMod&id=<%=rs("id")%>" onSubmit="return checkForm();">
<tr align="center">
<td colspan="4" class="blackTitle">产品销售登记</td>
</tr>
<tr>
<td width="100" align="center">企业名称</td>
<td colspan="3"><input name="CP_XS_1_name" type="text" id="CP_XS_1_name" value="<%=rs("CP_XS_1_name")%>" size="50">
<span style="color: #FF0000">*</span></td>
</tr>
<tr>
<td align="center">注册地址</td>
<td colspan="3"><input name="CP_XS_1_add" type="text" id="CP_XS_1_add" value="<%=rs("CP_XS_1_add")%>" size="50"></td>
</tr>
<tr>
<td rowspan="2" align="center">发照机关及编号</td>
<td rowspan="2"><input name="CP_XS_1_fzjg" type="text" id="CP_XS_1_fzjg" value="<%=rs("CP_XS_1_fzjg")%>" size="25">
</td>
<td width="100" align="center">邮政编码</td>
<td><input name="CP_XS_1_code" type="text" id="CP_XS_1_code" value="<%=rs("CP_XS_1_code")%>" size="25"></td>
</tr>
<tr>
<td align="center">法人代码</td>
<td><input name="CP_XS_1_masterCode" type="text" id="CP_XS_1_masterCode" value="<%=rs("CP_XS_1_masterCode")%>" size="25"></td>
</tr>
<tr>
<td align="center">企业法人</td>
<td><input name="CP_XS_1_master" type="text" id="CP_XS_1_master" value="<%=rs("CP_XS_1_master")%>" size="25"></td>
<td align="center">电话</td>
<td><input name="CP_XS_1_phone" type="text" id="CP_XS_1_phone" value="<%=rs("CP_XS_1_phone")%>" size="25"></td>
</tr>
<tr>
<td align="center">负责人</td>
<td><input name="CP_XS_1_fzr" type="text" id="CP_XS_1_fzr" value="<%=rs("CP_XS_1_fzr")%>" size="25"></td>
<td align="center">电话</td>
<td><input name="CP_XS_1_fzrPhone" type="text" id="CP_XS_1_fzrPhone" value="<%=rs("CP_XS_1_fzrPhone")%>" size="25"></td>
</tr>
<tr>
<td align="center">Email</td>
<td><input name="CP_XS_1_email" type="text" id="CP_XS_1_email" value="<%=rs("CP_XS_1_email")%>" size="25"></td>
<td align="center">网站地址</td>
<td><input name="CP_XS_1_web" type="text" id="CP_XS_1_web" value="<%=rs("CP_XS_1_web")%>" size="25"></td>
</tr>
<tr>
<td align="center">代理经销产品名称<br>
及制造商</td>
<td colspan="3"><textarea name="CP_XS_1_pros" cols="60" rows="5" id="CP_XS_1_pros"><%=rs("CP_XS_1_pros")%></textarea></td>
</tr>
<tr align="center">
<td>添表单位法人签字</td>
<td colspan="3" align="left"><textarea name="CP_XS_1_frqz" cols="60" rows="5" id="CP_XS_1_frqz"><%=rs("CP_XS_1_frqz")%></textarea></td>
</tr>
<tr align="center">
<td colspan="4"><input type="submit" name="Submit" value="修 改">
<input type="reset" name="Submit" value="返 回" onClick="history.back();"></td>
</tr>
</form>
</table>
<%
rs.close
else
rs.close
response.Write("<script language=javascript>alert('没有相关记录！');history.back();</script>")
end if
end sub
%>
<%
sub saveMod()
CP_XS_1_name = trim(request.Form("CP_XS_1_name"))
if CP_XS_1_name ="" then
response.Write("<script language=javascript>alert('工程名称不能为空！');history.back();</script>")
end if
CP_XS_1_add = trim(request.Form("CP_XS_1_add"))
CP_XS_1_fzjg = trim(request.Form("CP_XS_1_fzjg"))
CP_XS_1_code = trim(request.Form("CP_XS_1_code"))
CP_XS_1_masterCode = trim(request.Form("CP_XS_1_masterCode"))
CP_XS_1_master = trim(request.Form("CP_XS_1_master"))
CP_XS_1_phone = trim(request.Form("CP_XS_1_phone"))
CP_XS_1_fzr = trim(request.Form("CP_XS_1_fzr"))
CP_XS_1_fzrPhone = trim(request.Form("CP_XS_1_fzrPhone"))
CP_XS_1_email = trim(request.Form("CP_XS_1_email"))
CP_XS_1_web = trim(request.Form("CP_XS_1_web"))
CP_XS_1_pros = trim(request.Form("CP_XS_1_pros"))
CP_XS_1_frqz = trim(request.Form("CP_XS_1_frqz"))
CP_XS_1_addDate = date()
sql = "select * from AFGL_CP_XS_1 where CP_XS_1_name = '"&CP_XS_1_name&"' and id<>"&trim(request.QueryString("id"))
rs.open sql,conn,1,1
if not rs.eof then
rs.close
response.Write("<script language=javascript>alert('名称重复！');location.href='?';</script>")
else
rs.close
sql = "select * from AFGL_CP_XS_1 where id="&trim(request.QueryString("id"))
rs.open sql,conn,1,3
if CP_XS_1_name <> "" then
rs("CP_XS_1_name") = CP_XS_1_name
end if
if CP_XS_1_add <> "" then
rs("CP_XS_1_add") = CP_XS_1_add
end if
if CP_XS_1_fzjg <> "" then
rs("CP_XS_1_fzjg") = CP_XS_1_fzjg
end if
if CP_XS_1_code <> "" then
rs("CP_XS_1_code") = CP_XS_1_code
end if
if CP_XS_1_masterCode <> "" then
rs("CP_XS_1_masterCode") = CP_XS_1_masterCode
end if
if CP_XS_1_master <> "" then
rs("CP_XS_1_master") = CP_XS_1_master
end if
if CP_XS_1_phone <> "" then
rs("CP_XS_1_phone") = CP_XS_1_phone
end if
if CP_XS_1_fzr <> "" then
rs("CP_XS_1_fzr") = CP_XS_1_fzr
end if
if CP_XS_1_fzrPhone <> "" then
rs("CP_XS_1_fzrPhone") = CP_XS_1_fzrPhone
end if
if CP_XS_1_email <> "" then
rs("CP_XS_1_email") = CP_XS_1_email
end if
if CP_XS_1_web <> "" then
rs("CP_XS_1_web") = CP_XS_1_web
end if
if CP_XS_1_pros <> "" then
rs("CP_XS_1_pros") = CP_XS_1_pros
end if
if CP_XS_1_frqz <> "" then
rs("CP_XS_1_frqz") = CP_XS_1_frqz
end if
if CP_XS_1_addDate <> "" then
rs("CP_XS_1_addDate") = CP_XS_1_addDate
end if
rs.update
rs.close
response.Redirect("?")
end if
end sub
%>
<%
sub delItem()
sql="delete from AFGL_CP_XS_1 where id="&trim(request.QueryString("id"))
conn.execute(sql)
response.Write("<script language=javascript>alert('删除成功！');location.href='?';</script>")
end sub
%>
<!-- 页面流程 -->
<%
action = request.QueryString("action")
Select Case action
Case "addIF"
call addIF()
Case "saveAdd"
call saveAdd()
Case "edit"
call editIF()
Case "saveMod"
call saveMod()
Case "delItem"
call delItem()
Case Else
call listAll()
End Select
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -