📄 scheduleview.asp
字号:
<!--#include file="../config.ini"-->
<!--#include file="../commfunction.inc" -->
<html>
<head>
<title>日程安排详细内容</title>
<SCRIPT LANGUAGE="JavaScript" src="../_ScriptLibrary/RS.HTM"></SCRIPT>
<script language="javascript">
function open_Event_Name() {
popupWin = window.open('help.asp?ID=Event_Name', 'remote', 'width=300,height=200')
}
function open_Event_Date() {
popupWin = window.open('help.asp?ID=Event_Date', 'remote', 'width=300,height=200')
}
function open_Event_Time() {
popupWin = window.open('help.asp?ID=Event_Time', 'remote', 'width=300,height=200')
}
function open_Event_Category() {
popupWin = window.open('help.asp?ID=Event_Category', 'remote', 'width=300,height=200')
}
function open_Event_Location() {
popupWin = window.open('help.asp?ID=Event_Location', 'remote', 'width=300,height=200')
}
function open_Event_Description() {
popupWin = window.open('help.asp?ID=Event_Description', 'remote', 'width=300,height=200')
}
function VerifyData() {
if (document.frmUser.Event_Name.value == "") {
alert("请输入日程标题.");
return false;
} else if (
(document.frmUser.Time_Hour.value == "Blank") ||
(document.frmUser.Time_Minute.value == "Blank") ||
(document.frmUser.Time_AMPM.value == "Blank")) {
alert("请你选择日程时间.");
return false;
} else if (document.frmUser.TaskType.value == "") {
alert("请选择日程类型.");
return false;
} else
return true;
}
function Agree_click(ID,UserID,Agree)
{
var HAgree;
HAgree=eval("document.all('HAgree"+UserID+"').value");
var setmylabel;
var returnvalue;
setmylabel = RSGetASPObject("../Common/RemoteScript.asp");
returnvalue = setmylabel.ChangeAgree(ID,UserID,Agree);
if (returnvalue.return_value=='OK')
{
if (HAgree=="False")
{
eval("document.all('HAgree"+UserID+"').value='True'");
eval("document.all('Agree"+UserID+"').innerHTML=''");
eval("document.all('Agree"+UserID+"').innerHTML='同意'");
}
else
{
eval("document.all('HAgree"+UserID+"').value='False'");
eval("document.all('Agree"+UserID+"').innerHTML=''");
eval("document.all('Agree"+UserID+"').innerHTML='不同意'");
}
}
}
function Attendant_click(ID,UserID,Attendant)
{
var HAttendant;
HAttendant=eval("document.all('HAttendant"+UserID+"').value");
var setmylabel;
var returnvalue;
setmylabel = RSGetASPObject("../Common/RemoteScript.asp");
returnvalue = setmylabel.ChangeAttendant(ID,UserID,Attendant);
if (returnvalue.return_value=='OK')
{
if (HAttendant=="False")
{
eval("document.all('HAttendant"+UserID+"').value='True'");
eval("document.all('Attendant"+UserID+"').innerHTML=''");
eval("document.all('Attendant"+UserID+"').innerHTML='参加'");
}
else
{
eval("document.all('HAttendant"+UserID+"').value='False'");
eval("document.all('Attendant"+UserID+"').innerHTML=''");
eval("document.all('Attendant"+UserID+"').innerHTML='未参加'");
}
}
}
</script>
<!--#include file="style.asp"-->
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body bgcolor="#FFFFFF" link="#48576C" vlink="#48576C" alink="#000000" leftmargin="2" topmargin="2">
<%
dim RSFORM
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Connstring
Set RSFORM = Server.CreateObject("ADODB.Recordset")
RSFORM.Open "select * from v_Schedule where id="& request("ID"), Conn, 2, 2
'RSFORM.Find "id=" & request("ID")
%>
<form action="scheduleeditsave.asp" name="frmUser" method="Post" onSubmit="return VerifyData()">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><strong><font size="2" class=title><b>日程安排详细内容</font></strong></td>
</tr>
<tr >
<td height="16" colspan="2" background="../images/title.gif"> </td>
</tr>
<tr>
<td height=4></td>
</tr>
</table>
<table width="100%" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" >
<tr>
<td width="15%" height="24" bgcolor="DEDFDE"> <div align="center"><font color="#000000">日程标题</font></div></td>
<td width="35%" height="24" bgcolor="EFEFEF"><%=Trim(RSFORM("Schedule"))%>
</td>
<td width="15%" bgcolor="DEDFDE"> <div align="center"><font color="#000000">
</font></div></td>
<td width="35%" bgcolor="EFEFEEFEFEF"> </td>
</tr>
<tr>
<td bgcolor="DEDFDE" height="24"><div align="center">待做者</div></td>
<td height="24" bgcolor="EFEFEF"><%=RSFORM("username")%></td>
<td height="24" bgcolor="DEDFDE"><div align="center">派遣者</div></td>
<td height="24" bgcolor="EFEFEF"><%=RSFORM("creatorname")%></td>
</tr>
<tr>
<td bgcolor="DEDFDE" height="24"> <div align="center"><font color="#000000">日期</font></div></td>
<td height="24" bgcolor="EFEFEF"> <%=RSFORM("Scheduledate")%> </td>
<td height="24" bgcolor="DEDFDE"> <div align="center"><font color="#000000">开始时间</font></div></td>
<td height="24" bgcolor="EFEFEF"> <%=RSFORM("Scheduletime")%></td>
</tr>
<tr>
<td bgcolor="DEDFDE" height="24"><div align="center">相关</div></td>
<td height="24" bgcolor="EFEFEF"><%=RSFORM("Relativetype")%></td>
<td bgcolor="DEDFDE" height="24"><div align="center">完成时间</div></td>
<td height="24" bgcolor="EFEFEF"><%=RSFORM("endtime")%></td>
</tr>
<tr>
<td bgcolor="DEDFDE" height="24"> <div align="center"><font color="#000000">类型</font></div></td>
<td height="24" bgcolor="EFEFEF"> <%=RSFORM("TaskType")%></td>
<td bgcolor="DEDFDE" height="24"><div align="center">完成</div></td>
<td height="24" bgcolor="EFEFEF">
<%if RSFORM("Closed")=true then
response.write "是"
else
response.write "否"
end if%>
</td>
</tr>
<tr>
<td bgcolor="DEDFDE" height="25"><div align="center">是否持续</div></td>
<td height="25" bgcolor="EFEFEF">
<%if RSFORM("Continued")=true then
response.write "是"
else
response.write "否"
end if%>
</td>
<td height="25" bgcolor="DEDFDE"><div align="center">下次日期</div></td>
<td height="25" bgcolor="EFEFEF">
<%response.write RSFORM("NextDate")%>
</td>
</tr>
<tr>
<td bgcolor="DEDFDE" height="25"> <div align="center"><font color="#000000">客户</font></div></td>
<td height="25" bgcolor="EFEFEF"><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=700, height=480','../account/accountdetail.asp?accountid=<%=RSFORM("accountid")%>');"><%=RSFORM("account")%></a>
</td>
<td height="25" bgcolor="DEDFDE"> <div align="center">地点</div></td>
<td height="25" bgcolor="EFEFEF"><%=RSFORM("Location")%> </td>
</tr>
<tr>
<td bgcolor="DEDFDE" height="25"> <div align="center"><font color="#000000">
具体内容<br>
</font></div></td>
<td height="25" colspan="3" bgcolor="EFEFEF"> <%=RSFORM("Description")%></td>
</tr>
<tr>
<td bgcolor="DEDFDE"><div align="center">完成情况</div></td>
<td bgcolor="EFEFEF" colspan=3><%=RSFORM("result")%></td>
</tr>
<tr>
<td bgcolor="DEDFDE"> <div align="center"><font color="#000000">参加者</font></div></td>
<td bgcolor="EFEFEF" colspan=3> <table>
<%
Dim ConnDB
Dim RsObj,RsObj1
Set ConnDB=Server.CreateObject("ADODB.Connection")
Set RsObj=Server.CreateObject("ADODB.RecordSet")
Set RsObj1=Server.CreateObject("ADODB.RecordSet")
ConnDB.Open ConnString
RsObj.Open "select * from usertable where Id in(select UserId from attendant where Scheduleid="&request("Id")&")",ConnDB
'Response.Write "select * from usertable where Id in(select UserId from attendant where Scheduleid="&request("Id")&")"
While Not RsObj.BOF and Not RsObj.EOF
%>
<tr>
<td><%=RsObj("username")%></td>
<%
RsObj1.Open "select * from attendant where Scheduleid="&request("Id") &" and userid="&RsObj("Id"),ConnDB
%>
<td>
<%'if RsObj1("Agree")=true then
'if RsObj("loginid")=session("loginid") then
' response.write "<a href=""#"" onclick=""Agree_click("&request("Id")&","&RsObj("id")&",'"&RsObj1("Agree")&"')""><div id=Agree"&RsObj("id")&">同意</div></a>"
'else
' response.write "同意"
'end if
'else
'if RsObj("loginid")=session("loginid") then
' response.write "<a href=""#"" onclick=""Agree_click("&request("Id")&","&RsObj("id")&",'"&RsObj1("Agree")&"')""><div id=Agree"&RsObj("id")&">不同意</div></a>"
'else
' response.write "不同意"
'end if
'end if%>
<input type=hidden id="HAgree<%=RsObj("id")%>" value="<%=RsObj1("Agree")%>">
</td>
<td>
<%'if RsObj1("Attendant")=true then
'if RSFORM("AssignedTo")=session("loginid") then
' response.write "<a href=""#"" onclick=""Attendant_click("&request("Id")&","&RsObj("id")&",'"&RsObj1("Attendant")&"')""><div id=Attendant"&RsObj("id")&">参加</div></a>"
'else
' response.write "参加"
'end if
'else
' if RSFORM("AssignedTo")=session("loginid") then
' response.write "<a href=""#"" onclick=""Attendant_click("&request("Id")&","&RsObj("id")&",'"&RsObj1("Attendant")&"')""><div id=Attendant"&RsObj("id")&">未参加</div></a>"
' else
' response.write "未参加"
' end if
'end if%>
<input type=hidden id="HAttendant<%=RsObj("id")%>" value="<%=RsObj1("Attendant")%>">
</td>
</tr>
<%
RsObj1.close
RsObj.MoveNext
Wend
RsObj.close
set RsObj=nothing
%>
</table>
<input type=hidden name="attendant"> </td>
</tr>
</table>
<div align="center"></div>
</form>
<%
RSFORM.close
set RSFORM = nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -