📄 xufei_yewu.asp
字号:
<%
id=request("id")
%>
<!--#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,xxyear
t1=request.form("地区")
t2=request.form("企业名称")
t3=request.form("项目")
t4=request.form("具体内容")
t5=request.form("企业经办人")
t6=request.form("开始日期")
t7=request.form("xfyear")
if t7 = 0.5 then
xfyear = dateadd("m",6,t6)
else
xfyear = dateadd("yyyy",t7,t6)
end if
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("到期日期")=xfyear
rs("应收金额")=t13
rs("实收金额")=t8
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 where id="&id
rs3.open sql3,conn,1,3
rs3("企业名称")=t2
rs3("到期日期")=xfyear
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 "续费完成!"
response.end
%>
<%end if%>
<%'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">
<%
set rs=server.createobject("ADODB.recordset")
sql="select * from yewu where id="&id
rs.open sql,conn,1,1
%>
<form name="form1" method="post" action="xufei_yewu.asp?action=add&id=<%=rs("id")%>">
<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>
</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="企业名称">
<option value="<%=rs("企业名称")%>"><%=rs("企业名称")%></option> <%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="项目"> <option value="<%=rs("项目")%>续费"><%=rs("项目")%>续费</option> </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" VALUE="<%=rs("具体内容")%>">
</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" VALUE="<%=rs("到期日期")%>">
</font></td><td width="117">续费年限：</td><td width="316"><font color="#808080" style="font-size: 9pt">
<select name="xfyear">
<option value="0.5">0.5</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
</select>
</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">
<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><%
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -