📄 main.asp
字号:
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr>
<td bgcolor="#FFFFFF">
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr bgcolor="#29498C">
<td height="18" align=center valign="middle" bgcolor="4A699C">
<a href="main.asp?month=<%=lastMonth%>&year=<%=lastYear%>&day=<%=dateCounter%>&date=<%=lastmonth&"/"&dateCounter&"/"&lastyear%>">
<img src="images/cl03.gif" border=0></a>
<font color=#FFFFFF><%=navyear%>年<%=navMonth%>月</font>
<a href="main.asp?month=<%=nextMonth%>&year=<%=nextYear%>&day=<%=dateCounter%>&date=<%=nextMonth&"/"&dateCounter&"/"&nextYear%>">
<img src="images/cl04.gif" border=0></a> </td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" id="AutoNumber3" width="100%" height="164" bordercolor="#C6C3C6" >
<tr align="center" valign="middle" bgcolor="#FFFFFF">
<td bgcolor="EFEFEF" > </td>
<td height="24" bgcolor="EFEFEF" > <div align="center">日</div></td>
<td height="24" bgcolor="EFEFEF" > <div align="center">一</div></td>
<td height="24" bgcolor="EFEFEF" > <div align="center">二</div></td>
<td height="24" bgcolor="EFEFEF" > <div align="center">三</div></td>
<td height="24" bgcolor="EFEFEF" > <div align="center">四</div></td>
<td height="24" bgcolor="EFEFEF" > <div align="center">五</div></td>
<td height="24" bgcolor="EFEFEF" > <div align="center">六</div></td>
</tr>
<tr>
<td bgcolor="EFEFEF" align=center><a href="#" language=javascript onclick="window.open ('ShowWeek.asp?date=<%=navmonth & "/" & dateCounter & "/" & navyear%>','','scrollbars=yes,left= 100,top=50,height=350,width=600,menubar=no,location=no,toolbar=no,resizable=yes','')">周<%=Datepart("ww",navmonth & "/" & dateCounter & "/" & navyear)%></a></td>
<% Do while weekCount <= 7
dateSelect = navmonth & "/" & dateCounter & "/" & navyear %>
<% If (weekCount < firstDay) OR (dateCounter > lastDate) Then %>
<td bgcolor="#FFFFFF"><img src="im/clear.gif" height="1" width="1"></td>
<% else %>
<td bgcolor="#FFFFFF" valign="middle" align="center"> <a href="#" language=javascript onclick="window.open ('ShowDay.asp?date=<%=navyear & "-" & navmonth & "-" & dateCounter%>','','scrollbars=yes,left= 100,top=100,height=420,width=600,menubar=no,location=no,toolbar=no,resizable=yes','')">
<%if clng(navyear)=year(date) and clng(navmonth)=month(date) and datecounter=day(date) then%>
<font color="#CC0000"><%=dateCounter%></font>
<%elseif dateCounter=clng(navday) then%>
<font color="#0000FF"><%=dateCounter%></font>
<%else%>
<font color="#000000"><%=dateCounter%></font>
<%end if%>
<%
Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT * FROM Schedule where AssignedTo='"&session("loginid")&"' or Creator='"&Session("loginid")&"' or AssignedTo in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')", Conn, 1, 3
Do while NOT RSEVENT.EOF
rsdate = RSEVENT("ScheduleDate")
RSEVENT.movenext
Loop
RSEVENT.close
%>
</a></td>
<%
dateCounter = dateCounter + 1
end if
weekCount = weekCount + 1
Loop
weekCount = 1
%>
</tr>
<% Do while dateCounter <= lastDate %>
<tr>
<td bgcolor="EFEFEF" align=center><a href="#" language=javascript onclick="window.open ('ShowWeek.asp?date=<%=navmonth & "/" & dateCounter & "/" & navyear%>','','scrollbars=yes,left= 100,top=50,height=350,width=600,menubar=no,location=no,toolbar=no,resizable=yes','')">周<%=Datepart("ww",navmonth & "/" & dateCounter & "/" & navyear)%></a></td>
<% Do while weekCount <= 7
dateSelect = navmonth & "/" & dateCounter & "/" & navyear %>
<% If dateCounter > lastDate Then %>
<td bgcolor="#FFFFFF"><img src="im/clear.gif" height="1" width="1"></td>
<% else
if strscheduledate<>"" then
strdate=split(strscheduledate,",")
bdate=false
for i=0 to ubound(strdate)-1
if strdate(i)=navyear&"-"&navmonth&"-"&dateCounter then
bdate=true
end if
next
end if
%>
<td <%if bdate then Response.Write "background=../images/bg2.gif" else Response.Write "bgcolor=ffFFFF"%> valign="middle" align="center"><a href="#" language=javascript onclick="window.open ('ShowDay.asp?date=<%=navyear & "-" & navmonth & "-" & dateCounter%>','','scrollbars=yes,left= 100,top=100,height=420,width=600,menubar=no,location=no,toolbar=no,resizable=yes','')">
<%if clng(navyear)=year(date) and clng(navmonth)=month(date) and datecounter=day(date) then%>
<font color="#CC0000"><%=dateCounter%></font>
<%else%>
<%if dateCounter=clng(navday) then%>
<font color="#0000FF"><%=dateCounter%></font>
<%else%>
<font color="#000000"><%=dateCounter%></font>
<%end if%>
<%end if%>
<%
Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT * FROM Schedule where Creator='"&Session("loginid")&"' or AssignedTo='"&Session("loginid")&"'", Conn, 1, 3
Do while NOT RSEVENT.EOF
rsdate = RSEVENT("ScheduleDate")
If (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth)) AND (Year(rsdate) = CInt(navyear)) Then%>
<% End If
RSEVENT.movenext
Loop
RSEVENT.close
%>
</a></td>
<%
dateCounter = dateCounter + 1
end if
weekCount = weekCount + 1
Loop
weekCount = 1
%>
</tr>
<% Loop %>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height=19></td>
</tr>
</table>
<table width=100%><tr>
<td width=85 height="14" align=left background="../images/titlebg2.gif">
<div align="center"><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=700, height=480','../account/account.asp?orderbyfield=createdate&orderby=asc');"><font color="#FFFFFF" ><u>最新客户</u></font></a>
</div></td>
<td></td></tr></table>
<table width=100% border="0" cellpadding="1" cellspacing="0">
<%
set rsnew=conn.Execute("select top 3 account,createdate,accountid from v_account where (ownerid='"&session("loginid")&"' or ownerid in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) order by createdate desc")
k=1
do while not rsnew.eof
%>
<tr bgcolor=ffffff>
<td height="17" width=72% align=left>·<a href="javascript:opensubwin3('../account/accountdetail.asp?accountid=<%=rsnew("accountid")%>','客户<%=k%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');">
<%if len(rsnew("account"))>10 then%>
<%Response.Write left(rsnew("account"),10)&"..."%>
<%else%>
<%Response.Write rsnew("account")%>
<%end if%>
</a></td>
<td > <div align="left"><%if rsnew("createdate")<>"" then Response.write formatdatetime(rsnew("createdate"),2)%></div></td>
</tr>
<%
rsnew.movenext
k=K+1
loop
%>
</table>
<table width=100%><tr>
<td width=85 height="14" align=left background="../images/titlebg2.gif">
<div align="center"><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=700, height=480','../Deal/Deal.asp?orderbyfield=createdate&orderby=asc');"><font color=white><u>最新销售机会</u></font></a></div></td>
<td></td></tr></table>
<table width=100% border="0" cellpadding="1" cellspacing="0">
<%
set rsnew=conn.Execute("select top 3 subject,createdate,dealid from v_deal where (owner='"&session("loginid")&"' or owner in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) order by createdate desc")
k=1
do while not rsnew.eof
%>
<tr bgcolor=ffffff>
<td height="17" width=72% align=left>·<a href="javascript:opensubwin3('../deal/dealdetail.asp?dealid=<%=rsnew("dealid")%>','销售机会<%=k%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');">
<%if len(rsnew("subject"))>10 then%>
<%Response.Write left(rsnew("subject"),10)&"..."%>
<%else%>
<%Response.Write rsnew("subject")%>
<%end if%>
</a></td>
<td > <div align="left"><%if rsnew("createdate")<>"" then Response.write formatdatetime(rsnew("createdate"),2)%></div></td>
</tr>
<%
rsnew.movenext
k=k+1
loop
%>
</table>
<table width=100%><tr>
<td width=85 height="14" align=left background="../images/titlebg2.gif">
<div align="center"><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=700, height=480','../Event/Event.asp?orderbyfield=createdate&orderby=asc');"><font color=white><u>最新销售事件</u></font></a></div></td>
<td></td></tr></table>
<table width=100% border="0" cellpadding="1" cellspacing="0">
<%
set rsnew=conn.Execute("select top 3 subject,createdate,id from v_event where (username='"&session("loginid")&"' or username in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) order by createdate desc")
k=1
do while not rsnew.eof
%>
<tr bgcolor=ffffff>
<td height="17" width=72% align=left>·<a href="javascript:opensubwin3('../event/eventdetail.asp?eventid=<%=rsnew("id")%>','销售事件<%=k%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');">
<%if len(rsnew("subject"))>10 then%>
<%Response.Write left(rsnew("subject"),10)&"..."%>
<%else%>
<%Response.Write rsnew("subject")%>
<%end if%>
</a></td>
<td > <div align="left"><%if rsnew("createdate")<>"" then Response.write formatdatetime(rsnew("createdate"),2)%></div></td>
</tr>
<%
rsnew.movenext
k=k+1
loop
%>
</table> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table>
<br>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -