addnewfee.asp
来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 314 行
ASP
314 行
<%
%>
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<%
set rs = server.createobject("adodb.recordset")
set rcs = server.createobject("adodb.recordset")
Sqlstr = "select TouchManID from TouchMan where TouchManCreatorID ="&User_ID
rcs.open Sqlstr,conn,3,2
if (rcs.bof or rcs.eof) then
response.write "<script language=javascript>"
response.write"alert('尚未有任何联系人记录！无法进行活动操作！');"
response.write"location.href='../menu.asp';"
response.write "</script>"
response.end
end if
rcs.close
Sqlstr = "select ClientID,ClientName from Client where ClientCreatorID ="&User_ID&" order by ClientID"
rcs.open Sqlstr,conn,3,2
if (rcs.bof or rcs.eof) then
response.write "<script language=javascript>"
response.write"alert('尚未有任何客户记录！无法进行活动操作！');"
response.write"location.href='../menu.asp';"
response.write "</script>"
response.end
end if
FeeID=0
FeeCreatorID = User_ID
FeeCreateDate = now()
FeeOpenFlag = 1
FeeOperatorID = User_ID
FeeUpdateDate = now()
if FeeClientID = 0 then
FeeClientID = rcs("ClientID")
end if
if request("NotSave")=1 then
FeeClientID = request("T_FeeClientID")
end if
FeeClientID = Cint(FeeClientID)
Sqlstr = "select * from [User] where UserID=" & FeeCreatorID
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
FeeCreatorName = rs("UserName")
FeeCreatorSnum = rs("UserSection")
else
FeeCreatorName = "未知"
FeeCreatorSnum = 0
end if
rs.close
Sqlstr = "select * from Section where SectionID =" & FeeCreatorSnum
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
FeeCreatorSName = rs("SectionName")
else
FeeCreatorSName = "未知"
end if
rs.close
Sqlstr = "select * from [User] where UserID=" & FeeOperatorID
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
FeeOperatorName = rs("UserName")
else
FeeOperatorName = "未知"
end if
rs.close
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>新建费用信息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
<style type="text/css">
<!--
.style1 {color: #FF6600}
-->
</style>
</HEAD>
<LINK href="../css.css" rel=stylesheet>
<BODY><BR>
<TABLE width="751" border=0 align=center cellPadding=0 cellSpacing=0>
<!--DWLayoutTable-->
<TBODY>
<FORM name=SearchFee action=Feelist.asp method=post>
<TR>
<TD width="12" height="24" valign="top" ><Span align=center><img src="../images/DispStation_H.gif" width="11" height="24"></span></TD>
<TD width="137" align="center" valign="middle" bgcolor="#566CDB" >新建费用信息</TD>
<TD colspan="8" align="right" valign="middle" bgcolor="#DDDDDD" ></TD>
</TR>
</form>
<TR>
<TD height="16" colspan="10" valign="top" ><!--DWLayoutEmptyCell--> </TD>
</TR>
<FORM name=saveFee action=saveFee.asp method=post>
<TR>
<TD height="30" colspan="6" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>费用</FONT><FONT color=#ff6600>主题:
<input name="T_FeeTopic" type="text" id="T_FeeTopic" size="20" maxlength="50" value="<%=FeeTopic%>">
<input name="FeeID" type="hidden" value=<%=FeeID%>>
<input name="NotSave" type="hidden" value=0>
</FONT></TD>
<TD colspan="4" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT><FONT face=Wingdings ></FONT></FONT><span class="style1">相关客户:
<select name="T_FeeClientID" >
<%
while not (rcs.bof or rcs.eof)
%>
<option value="<%=rcs("ClientID")%>" <%if FeeClientID = rcs("ClientID") then%>selected<%end if%>><%=rcs("ClientName")%></option>
<%
rcs.movenext
wend
rcs.close
Sqlstr = "Select TouchManID,TouchmanName from Touchman where TouchmanClientID =" & FeeClientID
rcs.open Sqlstr,conn,3,2
%>
</select>
</span></TD>
</TR>
<TR>
<TD height="30" colspan="5" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>费用</FONT><FONT color=#ff6600>类型:
<input name="T_FeeSort" type="text" id="FeeSort" size="20" maxlength="50" value="<%=FeeSort%>">
</FONT></TD>
<TD colspan="5" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT><FONT face=Wingdings ></FONT></FONT><span class="style1">相关联系人:
<select name="T_FeeTouchManID">
<%
while not (rcs.bof or rcs.eof)
%>
<option value="<%=rcs("TouchManID")%>" <%if FeeTouchManID = rcs("TouchManID") then%>selected<%end if%>><%=rcs("TouchManName")%></option>
<%
rcs.movenext
wend
rcs.close
%>
</select>
</span></TD>
</TR>
<TR>
<TD height="30" colspan="3" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>费用日期:
<input name="T_FeeDate" type="text" size="13" maxlength="30" value="<%=FeeDate%>">
</FONT></TD>
<TD colspan="5" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>费用金额</FONT><FONT color=#ff6600>:
<input name="T_FeeMoney" type="text" size="15" maxlength="30" value="<%=FeeMoney%>">
</FONT></TD>
<TD colspan="2" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff > v</FONT></FONT><FONT color=#ff6600>相关机会:
<input name="T_FeeOppID" type="text" value="<%=FeeOppID%>" size="15" maxlength="50">
</FONT></TD>
</TR>
<TR>
<TD height="13" colspan="10" valign="top" ><hr color="#566CDB" align="center" size="1"></TD>
</TR>
<TR>
<TD height="183" colspan="10" align="center" valign="top" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>详细说明<br>
<textarea name="T_FeeDetail" cols="90" rows="10"><%=FeeDetail%></textarea>
</FONT></TD>
</TR>
<TR>
<TD height="16" colspan="10" ><hr color="#566CDB" align="center" size="1"></TD>
</TR>
<TR>
<TD height="42" colspan="7" align="left" valign="middle" >
<input name="SaveButton" type="button" class="button_all" id="SaveButton" value="保存">
<input onclick="javascript:location.href='../menu.asp';" name="BackButton" type="button" class="button_all" id="BackButton" value="返回">
</TD>
<TD colspan="3" align="center" valign="middle" ></TD>
</TR>
<TR valign="middle">
<TD height="16" colspan="10" ><hr color="#566CDB" align="center" size="1"></TD>
</TR>
<TR>
<TD height="27" colspan="4" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>创建者:
<input readonly="true" name="T_FeeCreator" type="text" id="T_TouchManIncome22" size="15" maxlength="30" value="<%=FeeCreatorName%>">
<input name="T_FeeCreatorID" type="hidden" value = <%=FeeCreatorID%>>
</FONT></TD>
<TD colspan="5" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>所属部门:
<input readonly="true" name="T_FeeSection" type="text" size="15" maxlength="30" value="<%=FeeCreatorSName%>">
<input name="T_FeeSectionID" type="hidden" value=<%=FeeCreatorSNum%>>
</FONT></TD>
<TD width="224" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>是否公开记录:
<input name="Check_Open" type="checkbox" id="Check_Open" value="Open" <%if FeeOpenFlag = 1 then%>checked<%end if%>>
</FONT></TD>
</TR>
<TR>
<TD height="26" colspan="4" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>操作者:
<input readonly="true" name="T_FeeOperator" type="text" id="T_FeeOperator" size="15" maxlength="30" value="<%=FeeOperatorName%>">
<input name="T_FeeOperatorID" type="hidden" value = <%=User_ID%>>
</FONT></TD>
<TD colspan="5" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>创建日期:
<input readonly="true" name="T_FeeCreateDate" type="text" id="T_FeeCreateDate" size="15" maxlength="30" value="<%=FeeCreateDate%>">
</FONT></TD>
<TD align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>最后修改日期:
<input readonly="true" name="T_FeeUpdateDate" type="text" id="T_FeeUpdateDate" size="15" maxlength="30" value="<%=FeeUpdateDate%>">
</FONT></TD>
</TR>
</form>
<SCRIPT FOR="T_FeeClientID" EVENT="onChange" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("saveFee")
TheForm.NotSave.value = 1
TheForm.action = "addnewFee.asp"
TheForm.submit()
</SCRIPT>
<!--保存按钮确认函数-->
<SCRIPT FOR="SaveButton" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm,SubmitFlag
Set TheForm = Document.forms("saveFee")
SubmitFlag = 1
if TheForm.T_FeeTopic.value = "" then
MsgBox "请填写费用主题",48,"警告"
SubmitFlag = 0
TheForm.T_FeeTopic.focus()
else if TheForm.T_FeeSort.value="" then
MsgBox "请填写费用类型",48,"警告"
SubmitFlag = 0
TheForm.T_FeeSort.focus()
else if TheForm.T_FeeDate.value="" then
MsgBox "请填写费用日期",48,"警告"
SubmitFlag = 0
TheForm.T_FeeDate.focus()
else if IsDate(TheForm.T_FeeDate.value)=false then
MsgBox "费用日期格式不对，请填写日期格式，参考:2004-03-05",48,"警告"
SubmitFlag = 0
TheForm.T_FeeDate.focus()
else if TheForm.T_FeeMoney.value="" then
MsgBox "请填写费用金额",48,"警告"
SubmitFlag = 0
TheForm.T_FeeMoney.focus()
else if TheForm.T_FeeOppID.value="" then
MsgBox "请填写费用相关机会",48,"警告"
SubmitFlag = 0
TheForm.T_FeeOppID.focus()
else if TheForm.T_FeeDetail.value="" then
MsgBox "请填写费用细节",48,"警告"
SubmitFlag = 0
TheForm.T_FeeDetail.focus()
else if TheForm.T_FeeTouchManID.value = "" then
MsgBox "至少选择一个联系人",48,"警告"
SubmitFlag = 0
TheForm.T_FeeTouchManID.focus()
end if
end if
end if
end if
end if
end if
end if
end if
if SubmitFlag = 1 then
TheForm.submit()
end if
</SCRIPT>
<!--保存按钮确认函数结束-->
<TR align=middle bgColor=#99ccff>
<TD height="25" colSpan=4 vAlign=middle></TD>
<TD width="29" vAlign=middle></TD>
<TD width="42" vAlign=middle></TD>
<TD width="27" vAlign=middle></TD>
<TD width="99" vAlign=middle></TD>
<TD width="53" vAlign=middle></TD>
<TD vAlign=middle></TD>
</TR>
<tr>
<td height="13"></TBODY>
<td></td>
<td width="95"></td>
<td width="33"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?