📄 addnewactivity.asp
字号:
<%
%>
<!--#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
ActivityID=0
ActivityCreatorID = User_ID
ActivityCreateDate = now()
ActivityOpenFlag = 1
ActivityOperatorID = User_ID
ActivityUpdateDate = now()
ActivityClientID = rcs("ClientID")
if request("NotSave")=1 then
ActivityClientID = request("T_ActivityClientID")
end if
ActivityClientID = Cint(ActivityClientID)
Sqlstr = "select * from [User] where UserID=" & ActivityCreatorID
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
ActivityCreatorName = rs("UserName")
ActivityCreatorSnum = rs("UserSection")
else
ActivityCreatorName = "未知"
ActivityCreatorSnum = 0
end if
rs.close
Sqlstr = "select * from Section where SectionID =" & ActivityCreatorSnum
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
ActivityCreatorSName = rs("SectionName")
else
ActivityCreatorSName = "未知"
end if
rs.close
Sqlstr = "select * from [User] where UserID=" & ActivityOperatorID
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
ActivityOperatorName = rs("UserName")
else
ActivityOperatorName = "未知"
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=SearchActivity action=Activitylist.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=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
Sqlstr = "Select TouchManID,TouchmanName from Touchman where TouchmanClientID =" & ActivityClientID
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>活动类型:
<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 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_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="T_ActivityClientID" EVENT="onChange" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("saveActivity")
TheForm.NotSave.value = 1
TheForm.action = "addnewActivity.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 + -