📄 addnew_yewu.asp
字号:
<!--#include file="dbconn.asp"-->
<%dim action
action=request("action")
if action="add" then
dim t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13
t1=request.form("地区")
t2=request.form("企业名称")
t3=request.form("项目")
t4=request.form("具体内容")
t5=request.form("企业经办人")
t6=request.form("开始日期")
t7=request.form("到期日期")
t13=request.form("应收金额")
t8=request.form("实收金额")
t9=request.form("成本支出")
t10=request.form("经办人1")
t11=request.form("经办人2")
t12=request.form("memo")
'添加新用户到数据库中
set rs=server.createobject("adodb.recordset")
sql="select * from caiwu "
rs.open sql,conn,1,3
rs.addnew
rs("地区")=t1
rs("企业名称")=t2
rs("项目")=t3
rs("具体内容")=t4
rs("企业经办人")=t5
rs("开始日期")=t6
rs("到期日期")=t7
rs("实收金额")=t8
rs("应收金额")=t13
rs("成本支出")=t9
rs("经办人1")=t10
rs("经办人2")=t11
rs("memo")=t12
rs.update
rs.close
set rs=nothing
'添加到业务库
set rs3=server.createobject("adodb.recordset")
sql3="select * from yewu "
rs3.open sql3,conn,1,3
rs3.addnew
rs3("企业名称")=t2
rs3("项目")=t3
rs3("具体内容")=t4
rs3("开始日期")=t6
rs3("到期日期")=t7
rs3.update
rs3.close
'添加经办人到企业库
set rs=server.createobject("adodb.recordset")
sql="select * from contacts where ([企业名称] like '"&t2&"') "
rs.open sql,conn,1,3
if not rs.eof then
rs("经办人1")=t10
rs("经办人2")=t11
end if
rs.update
rs.close
Response.Write "添加完成"
%>
<%else%>
<html>
<head>
<title>添加新业务</title>
<LINK href="css/style.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="addnew_yewu.asp?action=add"> <p align="center"> </p><p align="center">--------------------增加新业务--------------------</p>
<table width="637" align="center" height="289">
<tr>
<td width="96">地区：</td>
<td width="105"><font color="#808080" style="font-size: 9pt">
<select name="地区">
<option value="上海">上海</option>
<option value="北京">北京</option>
<option value="河北">河北</option>
<option value="河南">河南</option>
<option value="内蒙古">内蒙古</option>
<option value="山西">山西</option>
<option value="陕西">陕西</option>
<option value="天津">天津</option>
<option value="湖北">湖北</option>
<option value="湖南">湖南</option>
<option value="福建">福建</option>
<option value="江苏">江苏</option>
<option value="江西">江西</option>
<option value="山东">山东</option>
<option value="安徽">安徽</option>
<option value="浙江">浙江</option>
<option value="广东">广东</option>
<option value="广西">广西</option>
<option value="海南">海南</option>
<option value="黑龙江">黑龙江</option>
<option value="吉林">吉林</option>
<option value="辽宁">辽宁</option>
<option value="甘肃">甘肃</option>
<option value="宁夏">宁夏</option>
<option value="青海">青海</option>
<option value="新疆">新疆</option>
<option value="贵州">贵州</option>
<option value="四川">四川</option>
<option value="西藏">西藏</option>
<option value="云南">云南</option>
<option value="重庆">重庆</option>
<option value="其他">其他</option>
</select>
</font></td>
<td width="117">企业名称<font color="#808080" style="font-size: 9pt">： </font></td>
<td width="316"><font color="#808080" style="font-size: 9pt">
<select name="企业名称">
<%set rs2=server.createobject("adodb.recordset")
sql2="select * from contacts order by 企业名称"
rs2.open sql2,conn,1,3
%>
<%do while not rs2.eof%>
<option value="<%=rs2("企业名称")%>"><font color="#808080" style="font-size: 9pt"><%=rs2("企业名称")%></font></option>
<%
rs2.movenext
loop
%>
<%rs2.close
set rs2=nothing
%>
</select>
</font></td>
</tr>
<tr>
<td width="96">项目：</td>
<td width="105"><font color="#808080" style="font-size: 9pt">
<select name="项目">
<%set rs3=server.createobject("adodb.recordset")
sql3="select * from class order by id "
rs3.open sql3,conn,1,3
%>
<%do while not rs3.eof%>
<option value="<%=rs3("class")%>"><font color="#808080" style="font-size: 9pt"><%=rs3("class")%></font></option>
<%
rs3.movenext
loop
%>
<%rs3.close
set rs3=nothing
%>
</select>
</font></td>
<td width="117">具体内容：</td>
<td width="316"><font color="#808080" style="font-size: 9pt">
<input name="具体内容" size="30" style="border: 1 solid #808080">
</font></td>
</tr>
<tr>
<td width="96">服务开始日期：</td>
<td width="105"><font color="#808080" style="font-size: 9pt">
<input name="开始日期" size="10" style="border: 1 solid #808080">
</font></td>
<td width="117">服务到期日期：</td>
<td width="316"><font color="#808080" style="font-size: 9pt">
<input name="到期日期" size="10" style="border: 1 solid #808080">
</font></td>
</tr>
<TR>
<TD WIDTH="96">企业经办人：</TD>
<TD><FONT COLOR="#808080" STYLE="font-size: 9pt">
<INPUT NAME="企业经办人" SIZE="10" STYLE="border: 1 solid #808080">
</FONT></TD>
<TD>应收金额：</TD>
<TD><FONT COLOR="#808080" STYLE="font-size: 9pt">
<INPUT NAME="应收金额" SIZE="10" STYLE="border: 1 solid #808080">
</FONT></TD>
</TR>
<tr>
<td width="96">实收金额：</td>
<td width="105"><font color="#808080" style="font-size: 9pt">
<input name="实收金额" size="10" style="border: 1 solid #808080">
</font></td>
<td width="117">成本支出：</td>
<td width="316"><font color="#808080" style="font-size: 9pt">
<input name="成本支出" size="10" style="border: 1 solid #808080">
</font></td>
</tr>
<tr>
<td width="96">经办人1：</td>
<td width="105"><font color="#808080" style="font-size: 9pt">
<input name="经办人1" size="10" style="border: 1 solid #808080">
</font></td>
<td width="117">经办人2：</td>
<td width="316"><font color="#808080" style="font-size: 9pt">
<input name="经办人2" size="10" style="border: 1 solid #808080">
</font></td>
</tr>
<tr>
<td width="96">备注：</td>
<td colspan="3"><font color="#808080" style="font-size: 9pt"> </font><font color="#808080" style="font-size: 9pt">
<input name="memo" size="60" style="border: 1 solid #808080">
</font></td>
</tr>
</table>
<p align="center"> <input type="submit" name="Submit" value="提交">
</p></form>
</body>
</html>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -