📄 scheduleedit.asp
字号:
<input type="text" name="Event_Name" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal" size="20" maxlength="255" value="<%=Trim(RSFORM("Schedule"))%>" <%if rsform("creator")<>Session("loginid") then response.Write("readonly")%>>
<%'response.write Trim(RSFORM("Schedule"))%>
</font></td>
<td width="10%" bgcolor="DEDFDE"> <div align="center"><font color="#FF0000">*</font>
<font color="#000000" size="2">待做者 </font></div></td>
<td width="40%" bgcolor="efefef"> <font size="2">
<input name="owner" type="hidden" size="8" value="<%=RSFORM("Assignedto")%>">
<input name="ownername" type="text" size="12" value="<%=strAssignedto%>" readonly>
<input type="button" name="bnowner" onClick="JavaScript:opensubwin2('form1','owner')" value=... class=black <%if rsform("creator")<>Session("loginid") then response.Write("disabled")%>>
</font></td>
</tr>
<tr>
<td width="10%" height="24" bgcolor="DEDFDE"> <div align="center"><font color="#FF0000">* </font>日期</div></td>
<td width="40%" height="24" bgcolor="efefef"> <font size="2">
<input type="text" name="date" size="12" language=javascript id=dupdatetime1 value="<%=RSFORM("Scheduledate")%>" >
<%if rsform("creator")=Session("loginid") then call AddImg("date1") %>
<input type = hidden name=clicksource>
<input type = hidden name=clickresult >
<!-- <a href="javascript:show_calendar('form1.date');" onMouseOver="window.status='Date Picker'; overlib('选择日期'); return true;" onMouseOut="window.status=''; nd(); return true;"><img src="../images/show-calendar.gif" border=0></a>
-->
</font></td>
<td width="10%" height="24" bgcolor="DEDFDE"> <div align="center"><font color="#FF0000">* </font>开始时间</div></td>
<td width="40%" height="24" bgcolor="efefef"> <font size="2">
<input name="time" type="text" value="<%=RSFORM("ScheduleTime")%>" size="12" >
<a href="#" onClick="javascript:window.open ('../tools/clock.asp?theName=form1.time','','scrollbars=no,left= 200,top=150,height=40,width=200,menubar=no,location=no,toolbar=no,resizable=no','');" >
<%if rsform("creator")=Session("loginid") then%>
<img src="../images/show-time.gif" border=0></a>
<%end if%>
</font></td>
</tr>
<tr>
<td width="10%" height="24" bgcolor="DEDFDE"> <div align="center">相关</div></td>
<td width="40%" height="24" bgcolor="efefef"> <select name=relativetype onchange="relativetype_onchange()" <%if rsform("creator")<>Session("loginid") then response.Write("disabled")%>>
<option value="<%=RSFORM("relativetype")%>"><%=RSFORM("relativetype")%></option>
<option value="其他">其他</option>
<option value="客户">客户</option>
</select></td>
<td width="10%" height="24" bgcolor="DEDFDE"><div align="center"><font color="#FF0000">* </font>结束时间</div></td>
<td width="40%" height="24" bgcolor="efefef"><font size="2"><input name="endtime" type="text" value="<%=RSFORM("endtime")%>" size="12" >
<a href="#" onClick="javascript:window.open ('../tools/clock.asp?theName=form1.endtime','','scrollbars=no,left= 200,top=150,height=40,width=200,menubar=no,location=no,toolbar=no,resizable=no','');" >
<%if rsform("creator")=Session("loginid") then%>
<img src="../images/show-time.gif" border=0></a>
<%end if%>
</font></td>
</tr>
<tr>
<td width="10%" height="24" bgcolor="DEDFDE"><div align="center">日程类型</div></td>
<td width="40%" height="24" bgcolor="efefef"> <div id=TaskType1 <%if rsform("relativetype")="客户" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="TaskType1" class="stedit" <%if rsform("creator")<>Session("loginid") then response.Write("disabled")%>>
<option value="-1">--选择类型--</option>
<%getdefinepeprotery "日程类型","客户",RSFORM("TaskType")%>
</select>
</div>
<div id=TaskType2 <%if rsform("relativetype")="其他" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="TaskType2" class="stedit" <%if rsform("creator")<>Session("loginid") then response.Write("disabled")%>>
<option value="-1">--选择类型--</option>
<%getdefinepeprotery "日程类型","其他",RSFORM("TaskType")%>
</select>
</div></td>
<td width="10%" height="24" bgcolor="DEDFDE"> <div align="center" id=accountnamesub
<%if rsform("relativetype")="客户" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<font color="#FF0000">* </font>客户</div></td>
<td width="40%" height="24" bgcolor="efefef"> <div id=accountname
<%if rsform("relativetype")="客户" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<input name="account" type="hidden" size="8" value="<%=RSFORM("account")%>">
<input name="accountname" type="text" size="35" value="<%=strAccount%>" readonly>
<input type="button" name="bnaccount" onClick="JavaScript:opensubwin2('form1','account')" value=... class=black <%if rsform("creator")<>Session("loginid") then response.Write("disabled")%>>
</div></td>
</tr>
<tr>
<td width="10%" height="24" bgcolor="DEDFDE"> <div align="center">是否连续</div></td>
<td width="40%" height="24" bgcolor="efefef"> <select name="Continued" onchange="Continued_onchange()" <%if rsform("creator")<>Session("loginid") then response.Write("disabled")%>>
<option value="0">否</option>
<option value="1" <%if RSFORM("Continued")=true then response.write "selected"%>>是</option>
</select> </td>
<td width="10%" height="24" bgcolor="DEDFDE"><div align="center">地点</div></td>
<td width="40%" height="24" bgcolor="efefef"><font size="2">
<input type="text" name="Location" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal" size="20" maxlength="255" value="<%=Trim(RSFORM("Location"))%>" <%if rsform("creator")<>Session("loginid") then response.Write("readonly")%>>
</font> </td>
</tr>
<tr id=ContinueDate style="display:<%if RSFORM("Continued")=true then
response.write "block"
else
response.write "none"
end if%>">
<td width="10%" height="24" bgcolor="DEDFDE"> <div align="center"><font color="#000000" size="2">连续日期</font></div></td>
<td width="40%" height="24" bgcolor="efefef"> <font size="2">
<select name="ContinuedDate" onchange="ContinuedDate_onchange()" <%if rsform("creator")<>Session("loginid") then response.Write("disabled")%>>
<option value="1">一周</option>
<option value="2">二周</option>
<option value="3">一月</option>
<option value="4">二月</option>
<option value="5">自定义</option>
</select>
</font></td>
<td width="10%" height="24" align="center" bgcolor="DEDFDE">
<div id="TDCustDateSub" style="display:block"> <font color="#000000" size="2">自定义日期</font></div></td>
<td width="40%" height="24" bgcolor="efefef" > <div id="TDCustDate" style="display:block">
<font size="2">
<input type="text" name="CustDate" size="12" language=javascript id=dupdatetime2 value="<%=RSFORM("NextDate")%>" >
<%if rsform("creator")=Session("loginid") then call AddImg("date2") %>
<input type = hidden name=clicksource>
<input type = hidden name=clickresult >
</font></div></td>
</tr>
<tr>
<td width="10%" height="25" bgcolor="DEDFDE"> <div align="center"><font color="#000000" size="2">
具体内容<br>
</font></div></td>
<td height="25" colspan="3" bgcolor="efefef"> <font size="2">
<textarea name="Description" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal" cols="45" rows="5" <%if rsform("creator")<>Session("loginid") then response.Write("readonly")%>><%=Trim(RSFORM("Description"))%></textarea>
</font></td>
</tr>
<tr>
<td bgcolor="DEDFDE"><div align="center"><font color="#000000" size="2">完成情况</font></div></td>
<td bgcolor="efefef" colspan=3><font size="2">
<textarea name="result" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal" cols="45" rows="5" ><%=Trim(RSFORM("result"))%></textarea>
</font></td>
</tr>
<tr>
<td width="10%" bgcolor="DEDFDE"> <div align="center"><font color="#000000" size="2">参加者</font></div></td>
<td bgcolor="efefef" colspan=3> <table bgcolor="efefef">
<tr>
<td> <font size="2">
<select name=Left size="5" style="width:80pt" ondblclick="adddata()" <%if rsform("creator")<>Session("loginid") then response.Write("disabled")%>>
<%
Dim ConnDB
Dim RsObj
Set ConnDB=Server.CreateObject("ADODB.Connection")
Set RsObj=Server.CreateObject("ADODB.RecordSet")
ConnDB.Open ConnString
RsObj.Open "select * from usertable where Id not in(select UserId from attendant where Scheduleid="&request("Id")&")",ConnDB
While Not RsObj.BOF and Not RsObj.EOF
%>
<option value="<%response.write RsObj("Id") &"/"&RsObj("UserName")%>" >
<%response.write RsObj("UserName") %>
</option>
<%
RsObj.MoveNext
Wend
RsObj.close
set RsObj=nothing
%>
</select>
</font></td>
<td> </td>
<td bgcolor="efefef"> <p> <font size="2">
<input type="button" name="add" value=">>" onClick="adddata()">
</font></p>
<p> <font size="2">
<input type="button" name="add" value="<<" onClick="deldata()">
</font></p></td>
<td> </td>
<td bgcolor="#FFFFFF"> <font size="2">
<select name=Right size=5 style="width:80pt" ondblclick="deldata()" <%if rsform("creator")<>Session("loginid") then response.Write("disabled")%>>
<%
dim RsObj1
Set RsObj1=Server.CreateObject("ADODB.RecordSet")
RsObj1.Open "select * from usertable where Id in(select UserId from attendant where Scheduleid="&request("Id")&")",ConnDB
While Not RsObj1.BOF and Not RsObj1.EOF
%>
<option value="<%response.write RsObj1("Id") &"/"&RsObj1("UserName")%>" >
<%response.write RsObj1("UserName") %>
</option>
<%
RsObj1.MoveNext
Wend
RsObj1.close
set RsObj1=nothing
ConnDB.close
set ConnDB=nothing
%>
</select>
</font></td>
</tr>
</table>
<font size="2">
<input type=hidden name="attendant">
</font></td>
</tr>
</table>
</td></tr></table>
</font></td>
</tr>
</table>
</FORM>
</body>
</html>
<%
RSFORM.close
set RSFORM = nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -