📄 activity.asp
字号:
</TR>
</form>
<TR>
<TD height="16" colspan="10" valign="top" ><!--DWLayoutEmptyCell--> </TD>
</TR>
<FORM name=saveActivity action=saveActivity.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>活动主题:
<input name="T_ActivityTopic" type="text" id="T_ActivityTopic" size="20" maxlength="50" value="<%=ActivityTopic%>">
<input name="ActivityID" type="hidden" value=<%=ActivityID%>>
<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_ActivityClientID" >
<%
while not (rcs.bof or rcs.eof)
%>
<option value="<%=rcs("ClientID")%>" <%if ActivityClientID = rcs("ClientID") then%>selected<%end if%>><%=rcs("ClientName")%></option>
<%
rcs.movenext
wend
rcs.close
%>
</select>
</span></TD>
<%
Sqlstr = "Select TouchManID,TouchmanName from Touchman where TouchmanClientID =" & ActivityClientID
rcs.open Sqlstr,conn,3,2
%>
</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>活动类型:
<input name="T_ActivitySort" type="text" id="ActivitySort" size="20" maxlength="50" value="<%=ActivitySort%>">
</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_ActivityTouchManID">
<%
while not (rcs.bof or rcs.eof)
%>
<option value="<%=rcs("TouchManID")%>" <%if ActivityTouchManID = 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>开始日期</FONT><FONT color=#ff6600>:
<input name="T_ActivityDate" type="text" size="13" maxlength="30" value="<%=ActivityDate%>">
</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 name="T_ActivityOverDate" type="text" size="15" maxlength="30" value="<%=ActivityOverDate%>">
</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>优先级</FONT><FONT color=#ff6600>:
<select name="T_ActivityPriority">
<option value="0" <%if ActivityPriority = 0 then%>selected<%end if%>>低</option>
<option value="1" <%if ActivityPriority = 1 then%>selected<%end if%>>中</option>
<option value="2" <%if ActivityPriority = 2 then%>selected<%end if%>>高</option>
</select>
</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_ActivityDetail" cols="90" rows="10"><%=ActivityDetail%></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 onClick="javacript:location.href='NewActivity.asp?ActivityClientID =<%=ActivityClientID%>';" name="NewActivity" type="button" class="button_all" value="新建">
<input name="SaveButton" type="button" class="button_all" id="SaveButton" value="保存">
<input name="DeleteButton" type="button" class="button_all" id="DeleteButton" value="删除">
<input onclick="javascript:location.href='../menu.asp';" name="BackButton" type="button" class="button_all" id="BackButton" value="返回">
<input name="DelPage" type="hidden" value="DeleteActivity.asp?Activityid=<%=ActivityID%><%if rspre=1 then%>&backid=<%=ActivityPreID%><%else if rsnext=1 then%>&backid=<%=ActivityNextID%><%end if%><%end if%>"></TD>
<TD colspan="3" align="center" valign="middle" ><%if rsfirst=1 then%><a href="Activity.asp?Activityid=<%=FirstID%>"><%end if%><img src="../images/rsarrow_leftend_H.gif" width="16" height="14"><%if rsfirst=1 then%></a><%end if%> <%if rspre=1 then%><a href="Activity.asp?Activityid=<%=ActivityPreID%>"><%end if%><img src="../images/rsarrow_left_H.gif" width="16" height="14"><%if rspre=1 then%></a><%end if%> 共有记录<%=TotalNum%>条，当前为第<%=Rnum+1%>条 <%if rsnext=1 then%><a href="Activity.asp?Activityid=<%=ActivityNextID%>"><%end if%><img src="../images/rsarrow_right_H.gif" width="16" height="14"><%if rsnext=1 then%></a><%end if%> <%if rslast=1 then%><a href="Activity.asp?Activityid=<%=LastID%>"><%end if%><img src="../images/rsarrow_rightend_H.gif" width="16" height="14"><%if rslast=1 then%></a><%end if%></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_ActivityCreator" type="text" id="T_TouchManIncome22" size="15" maxlength="30" value="<%=ActivityCreatorName%>">
<input name="T_ActivityCreatorID" type="hidden" value = <%=ActivityCreatorID%>>
</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_ActivitySection" type="text" size="15" maxlength="30" value="<%=ActivityCreatorSName%>">
<input name="T_ActivitySectionID" type="hidden" value=<%=ActivityCreatorSNum%>>
</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 ActivityOpenFlag = 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_ActivityOperator" type="text" id="T_ActivityOperator" size="15" maxlength="30" value="<%=ActivityOperatorName%>">
<input name="T_ActivityOperatorID" 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_ActivityCreateDate" type="text" id="T_ActivityCreateDate" size="15" maxlength="30" value="<%=ActivityCreateDate%>">
</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_ActivityUpdateDate" type="text" id="T_ActivityUpdateDate" size="15" maxlength="30" value="<%=ActivityUpdateDate%>">
</FONT></TD>
</TR>
</form>
<!--删除按钮确认函数-->
<SCRIPT FOR="DeleteButton" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("saveActivity")
if TheForm.T_ActivityOperatorID.value<>TheForm.T_ActivityCreatorID.value then
MsgBox "你不能删除当前活动信息资料!",48,"警告"
else
Dim MyVar
MyVar = MsgBox ("你确认要删除该活动的信息资料么？",52, "确认删除")
if MyVar = 6 then
location.replace(TheForm.DelPage.Value)
end if
end if
</SCRIPT>
<!--删除按钮确认函数结束-->
<SCRIPT FOR="T_ActivityClientID" EVENT="onChange" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("saveActivity")
TheForm.NotSave.value = 1
TheForm.action = "Activity.asp"
TheForm.submit()
</SCRIPT>
<!--保存按钮确认函数-->
<SCRIPT FOR="SaveButton" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm,SubmitFlag
Set TheForm = Document.forms("saveActivity")
SubmitFlag = 1
if TheForm.T_ActivityTopic.value = "" then
MsgBox "请填写活动主题",48,"警告"
SubmitFlag = 0
TheForm.T_ActivityTopic.focus()
else if TheForm.T_ActivitySort.value="" then
MsgBox "请填写活动类型",48,"警告"
SubmitFlag = 0
TheForm.T_ActivitySort.focus()
else if TheForm.T_ActivityDate.value="" then
MsgBox "请填写活动开始日期",48,"警告"
SubmitFlag = 0
TheForm.T_ActivityDate.focus()
else if IsDate(TheForm.T_ActivityDate.value)=false then
MsgBox "活动开始日期格式不对，请填写日期格式，参考:2004-03-05",48,"警告"
SubmitFlag = 0
TheForm.T_ActivityDate.focus()
else if TheForm.T_ActivityOverDate.value="" then
MsgBox "请填写活动结束日期",48,"警告"
SubmitFlag = 0
TheForm.T_ActivityOverDate.focus()
else if IsDate(TheForm.T_ActivityOverDate.value)=false then
MsgBox "活动结束日期格式不对，请填写日期格式，参考:2004-03-05",48,"警告"
SubmitFlag = 0
TheForm.T_ActivityOverDate.focus()
else if TheForm.T_ActivityDetail.value="" then
MsgBox "请填写活动细节",48,"警告"
SubmitFlag = 0
TheForm.T_ActivityDetail.focus()
else if TheForm.T_ActivityTouchManID.value = "" then
MsgBox "至少选择一个联系人",48,"警告"
SubmitFlag = 0
TheForm.T_ActivityTouchManID.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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -