savefee.asp

来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 75 行

ASP
75 行
字号 
<%

%>
<!--#include file='../conn.asp'-->
<!--#include file='../IsUser.asp'-->
<%
	T_FeeID = request.form("FeeID")
	T_FeeTopic  = replace(request.form("T_FeeTopic"),"'","''")
	T_FeeClientID = request.form("T_FeeClientID")
	T_FeeTouchManID = request.form("T_FeeTouchManID")
	T_FeeSort = replace(request.form("T_FeeSort"),"'","''")
	T_FeeDate =replace(request.form("T_FeeDate"),"'","''")
	T_FeeMoney  =replace(request.form("T_FeeMoney"),"'","''")
	T_FeeOppID =replace(request.form("T_FeeOppID"),"'","''")
	T_FeeDetail =replace(request.form("T_FeeDetail"),"'","''")
	T_FeeCreatorID=request.form("T_FeeCreatorID")
	T_CreatorSectionID=request.form("T_CreatorSectionID")
	Check_Open     =request.form("Check_Open")
	if Check_Open="Open" then		'判断是否公开
	OpenFlag = 1
	else
	OpenFlag = 0
	end if

	T_FeeOperatorID=request.form("T_FeeOperatorID")
	T_FeeCreateDate=request.form("T_FeeCreateDate")
	T_FeeUpdateDate=Date
  %>
<%
if T_FeeID<>0 then
sql= "update Fee set FeeTopic='"&T_FeeTopic&"',FeeClientID="&T_FeeClientID&",FeeTouchManID="&T_FeeTouchManID&",FeeSort='"&T_FeeSort&"',FeeDate='"&T_FeeDate&"',FeeMoney='"&T_FeeMoney&"',FeeOppID='"&T_FeeOppID&"',FeeDetail='"&T_FeeDetail&"',FeeCreatorID="&T_FeeCreatorID&",FeeCreateDate='"&T_FeeCreateDate&"',FeeOpenFlag="&OpenFlag&",FeeRevisorID="&T_FeeOperatorID&",FeeReviseDate='"&T_FeeUpdateDate&"' where FeeID= '" & T_FeeID & "'"
else
sql="insert into Fee (FeeTopic,FeeClientID,FeeTouchManID,FeeSort,FeeDate,FeeMoney,FeeOppID,FeeDetail,FeeCreatorID,FeeCreateDate,FeeOpenFlag,FeeRevisorID,FeeReviseDate)  values  ('"&T_FeeTopic&"',"&T_FeeClientID&","&T_FeeTouchManID&",'"&T_FeeSort&"','"&T_FeeDate&"','"&T_FeeMoney&"','"&T_FeeOppID&"','"&T_FeeDetail&"',"&T_FeeCreatorID&",'"&T_FeeCreateDate&"',"&OpenFlag&","&T_FeeOperatorID&",'"&T_FeeUpdateDate&"')"
end if
conn.execute( sql )    '执行数据库更新
if T_FeeID = 0 then
set rs=conn.execute("select top 1 FeeID from Fee where FeeCreatorID="&User_ID&" order by FeeID desc")
T_FeeID = rs("FeeID")
rs.close
end if
%>
<html>
<head>
<title>保存费用信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<LINK 
href="../css.css" type=text/css rel=stylesheet>
</head>

<body>

<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align=center>
  <tr>
    <td width="100%" height="197" align="center">
<table border="0" cellspacing="0" cellpadding="0" height="85" bgcolor="#99ccff" width="100%">
<tr>
<td align="center">
<a href="Fee.asp?Feeid=<%=T_FeeID%>" class=linkblue2>保存费用信息成功！！单击返回</a>
<%
	response.write "<script>"
	response.write "setTimeout("&Chr(34)&"location.replace('Fee.asp?FeeID="&T_FeeID&"')"&Chr(34)&",2000)"
	response.write "</script>"
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p>

</body>
</html>

savefee.asp - 源码说明

本页面展示了「Activity——活动管理模块 Analyse——分析模块 Client——客户管理系统模块 Email——E-mail管理模块 Fee——费用管理模块 Report——报表模块 Sel」中的 savefee.asp 源码文件，采用 ASP 编程语言编写，共 75 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与模块相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?