📄 newevent.asp
字号:
alert('请先选择销售流程!');
return false;
}
else{
opensubwinwithsearch('../deal/Selectdealstage.asp','form1','dealstage','dealrate',form1.prcDealProcess.value);
}
}
function adddata()
{
if (form1.Left.value!="")
{ var A=form1.Left.value.split("/");
form1.Right.options.add(new Option( A[1],form1.Left.value) );
form1.Left.options.remove(form1.Left.selectedIndex);
}
}
function deldata()
{
if (form1.Right.value!="")
{
var A=form1.Right.value.split("/");
form1.Left.options.add(new Option( A[1],form1.Right.value) );
form1.Right.options.remove(form1.Right.selectedIndex);
}
}
</script>
<body>
<form name=form1 method="post" id=form1>
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><strong><font size="2" class=title><b><%=request("type")%>销售事件</b></font></strong></td>
<td> </td>
</tr>
<tr >
<td height="16" colspan="2" background="../images/title.gif"> </td>
</tr>
<tr>
<td height=4></td>
</tr>
<tr><td><div align="center" style="cursor:hand">
<a onclick="save();"><img src="../images/button_save.gif"></a>
<a onclick="window.close();"><img src="../images/button_cancel.gif"></a></DIV></td>
</tr>
</table>
<table width="100%" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="white">
<td width="15%" bgcolor="DEDFDE"> <div align="center"><font color="#ff0000">* </font>主题</div></td>
<td width="35%" bgcolor="EFEFEF" >
<%if request("id")<>"" then%>
<input name=subject type=hidden value="<%=strsubject%>" size="20">
<font color="#ff0000"> <%response.write strsubject%></font>
<%else%>
<input name=subject type=text value="<%=strsubject%>" size="20">
<%end if%>
</td>
<td width="15%" bgcolor="DEDFDE"> <div align="center">待做者</div></td>
<td width="35%" bgcolor="EFEFEF"> <input name="owner" type="hidden" size="8" value="<%=strowner%>">
<input name="ownername" type="text" size="8" value="<%=strownername%>" readonly>
<input type="button" name="bnowner" onClick="JavaScript:opensubwin2('form1','owner')" value=... class=black>
</td>
</tr>
<tr bgcolor="white">
<td width="15%" nowrap bgcolor="DEDFDE"> <div align="center">事件日期</div></td>
<td width="35%" bgcolor="EFEFEF">
<input type="text" name="eventdate" size="14" language=javascript id=dupdatetime1 value="<%=streventdate%>" readonly>
<% call AddImg("date1") %>
<input type = hidden name=clicksource>
<input type = hidden name=clickresult >
</td>
<td width="15%" bgcolor="DEDFDE"> <div align="center">事件时间</div></td>
<td width="35%" bgcolor="EFEFEF"> <input name="eventtime" type="text" value="<%=streventtime%>" size="12" readonly>
<a href="#" onClick="javascript:window.open ('../tools/clock.asp?theName=form1.eventtime','','scrollbars=yes,left= 200,top=150,height=40,width=200,menubar=no,location=no,toolbar=no,resizable=yes','');" ><img src="../images/show-time.gif" border=0></a></td>
</tr>
<tr bgcolor="white">
<td width="15%" nowrap bgcolor="DEDFDE"> <div align="center">相关</div></td>
<td width="35%" bgcolor="EFEFEF">
<%if request.QueryString("dealid")<>"" or request.QueryString("accountid")<>"" or request.QueryString("contactid")<>"" then%>
<select name=relativetype onchange="relativetype_onchange()" disabled>
<%else%>
<select name=relativetype onchange="relativetype_onchange()">
<%end if%>
<%if strrelativetype<>"" then %>
<option value="<%=strrelativetype%>"><%=strrelativetype%></option>
<%end if%>
<option value="其他">其他</option>
<option value="客户">客户</option>
</select></td>
<td width="15%" bgcolor="DEDFDE"> <div align="center">相关销售机会</div></td>
<td width="35%" bgcolor="EFEFEF">
<input name="prcDealProcess" type="hidden" size="8" value="<%=strdealprocessid%>">
<input name="deal" type="hidden" size="8" value="<%=strdealid%>">
<input name="dealname" type="text" size="20" value="<%=strdeal%>" readonly>
<%if request.QueryString("dealid")="" then%>
<input type="button" name="bndeal" onClick="selectdealno();" value=... class=black>
<input type="button" name="bnclrdealno" onClick="cleardealno();" value=C class=black>
<%end if%>
</td>
</tr>
<tr bgcolor="white">
<td width="15%" nowrap bgcolor="DEDFDE"> <div align="center"><font color="#FF0000">* </font>事件类型</div></td>
<td width="35%" bgcolor="EFEFEF">
<div id=EventType1 <%if strrelativetype="客户" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="EventType1" class="stedit">
<option value="-1">--选择类型--</option>
<%getdefinepeprotery "销售事件类型","客户",strtype%>
</select>
</div>
<div id=EventType2 <%if strrelativetype="其他" or strrelativetype="" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="EventType2" class="stedit">
<option value="-1">--选择类型--</option>
<%getdefinepeprotery "销售事件类型","其他",strtype%>
</select>
</div></td>
<td width="15%" nowrap bgcolor="DEDFDE"> <div align="center"><font color="#FF0000">* </font>销售机会阶段</div></td>
<td width="35%" bgcolor="EFEFEF">
<input name="dealstage" type="hidden" size="8" value="<%=strdealstage%>">
<input name="dealstagename" type="text" size="8" value="<%=strdealstagename%>" readonly>
<%if request.QueryString("dealid")="" then%>
<input type="button" name="bndealprocess" onClick="selectdealstage();" value=... class=black>
<%end if%>
</td>
</tr>
<tr>
<td nowrap bgcolor="DEDFDE" align="center">地址</td>
<td bgcolor="EFEFEF"><input name=address type=text value="<%=straddress%>" size="30"></td>
<td bgcolor="DEDFDE" align="center">成功几率</td>
<td width="35%" bgcolor="EFEFEF"> <input name=dealrate type=text value="<%=strdealrate%>" size="12" readonly>
%</td></tr>
<tr div id=accountname <%if strrelativetype="客户" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<td width="15%" nowrap bgcolor="DEDFDE" align="center"> <font color="#FF0000">* </font>客户</td>
<td width="35%" bgcolor="EFEFEF"> <input name="account" type="hidden" size="8" value="<%=straccount%>">
<input name="accountname" type="text" size="25" value="<%=straccountname%>" readonly>
<%if request.QueryString("dealid")="" and request.QueryString("accountid")="" and request.QueryString("contactid")="" then%>
<input type="button" name="bnaccount" onClick="JavaScript:opensubwin2('form1','account')" value=... class=black>
<%end if%>
</td>
<td width="15%" bgcolor="DEDFDE" align="center">联系人</td>
<td width="35%" bgcolor="EFEFEF"> <input name="contact" type="hidden" size="8" value="<%=strcontact%>">
<input name="contactname" type="text" size="8" value="<%=strcontactname%>" readonly>
<%if request.QueryString("contactid")="" then%>
<input type="button" name="bncontact" onClick="JavaScript:if(form1.account.value!=-1){opensubwinwithsearch('../contact/SelectAccountContact.asp','form1','contact','accountid',form1.account.value)}else{alert('请先选择客户')}" value=... class=black>
<input type="button" name="bnclrcontact" onClick="clearcontact();" value=C class=black>
<%end if%>
</td></div>
</tr>
<tr bgcolor="white">
<td width="15%" bgcolor="DEDFDE" > <div align="center">参加人</div></td>
<td colspan="3" bgcolor="EFEFEF"><table border="0" cellspacing="0" cellpadding="1">
<tr>
<td><select name=Left size="5" style="width:80pt" ondblclick="adddata()">
<%
Dim ConnDB
Dim RsObj
Set ConnDB=Server.CreateObject("ADODB.Connection")
Set RsObj=Server.CreateObject("ADODB.RecordSet")
ConnDB.Open ConnString
if Request.QueryString("id")<>"" then
RsObj.Open "select * from usertable where id not in(select userid from eventattendant where eventid="&Request.QueryString("id")&")",ConnDB
else
RsObj.Open "select * from usertable",ConnDB
end if
While Not RsObj.BOF and Not RsObj.EOF
%>
<option value="<%response.write RsObj("Id") &"/"&RsObj("UserName")%>" >
<%response.write RsObj("UserName") %>
</option>
<%
RsObj.MoveNext
Wend
%>
</select></td>
<td width="40"> <div align="center">
<input type="button" name="add" value=">>" onClick="adddata()">
<br>
<br>
<input type="button" name="add2" value="<<" onClick="deldata()">
</div></td>
<td><select name=Right size=5 style="width:80pt" ondblclick="deldata()">
<% if Request.QueryString("id")<>"" then
sql="select * from v_EventAttendant where eventid="&Request.QueryString("id")
set rsat=ConnDB.Execute(sql)
do While not rsat.eof
%>
<option value="<%response.write rsat("userid") &"/"&rsat("username")%>" >
<%response.write rsat("username") %>
</option>
<%
rsat.MoveNext
loop
end if
%>
</select> </td>
</tr>
</table></td>
</tr>
<tr bgcolor="white">
<td width="15%" bgcolor="DEDFDE" > <div align="center">事件目的</div></td>
<td colspan="3" bgcolor="EFEFEF"><textarea name="description" cols="45" rows="4"><%=strdescription%></textarea>
</td>
</tr>
<tr bgcolor="white">
<td width="15%" bgcolor="DEDFDE" > <div align="center">事件结果</div></td>
<td colspan="3" bgcolor="EFEFEF"> <textarea name="result" cols="45" rows="4"><%=strresult%></textarea>
</td>
</tr>
</table>
<input type=hidden name=attendant>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -