g_plan.asp

一个很好的在线购物系统

          document.form1.txtobject.options[0] = new Option('','');

          for (n=0;n<tj;n++)
          {  
            if(document.form1.khxh.value==shu[n][0])   
              {      
              document.form1.txtobject.options[document.form1.txtobject.length] = new Option(shu[n][1],shu[n][1]);
 
              }  
          }   
          

     }     
  </script> 
<%
'**********************
'将客户计划表中数据放入数组中，然后判断有否重复
'**********************
set myrs=server.createobject("ADODB.RecordSet")
sql="select * from G_TblClosePlan"
myrs.open sql,pubconn,1
%>
<script language = "JavaScript">
//当一天相同的时间段内有两个计划安排时，则报错
var Pcount;
Pcount=0;
lucy1 = new Array();
<%
Icount=0
do while not myrs.eof
'response.write trim(myrs("closedate"))
%>
lucy1[<%=Icount%>] = new Array("<%=trim(myrs("closedate"))%>","<%=trim(myrs("closetime"))%>","<%=trim(myrs("StuffNum"))%>");
<%Icount=Icount + 1
myrs.movenext
loop
%>
Pcount=<%=Icount%>;
function zsm(dateid,timeid,ywyid)
{
var Y;
for (Y=0;Y< Pcount;Y++)
{
if ((lucy1[Y][0]==dateid)&&(lucy1[Y][1]==timeid)&&(lucy1[Y][2]==ywyid))
{
    alert("对不起，当日该时间段有计划！");
    document.form1.txttime.value="";
break;
}
}
}//zsm事件完毕
</script>

<%
'客户的重要人员放入数组中， 然后根据选中的人员，自动显示其职务
set rst=server.createobject("ADODB.RecordSet")
str="select * from D_linkman"
rst.open str,pubconn,1
%>
<script language = "JavaScript">
//客户重要人员的职务连动事件
var txt;
txt=0;
lucy = new Array();
<%
count=0
do while not rst.eof
%>
lucy[<%=count%>] = new Array("<%=trim(rst("linkman"))%>","<%=trim(rst("headship"))%>");
<%count=count + 1
rst.movenext
loop
%>
txt=<%=count%>;
function changelocation(personid)
{

var p;
for (p=0;p< txt;p++)
{
if (lucy[p][0]==personid)
{
document.form1.dxzw.value=lucy[p][1];
}
}
}
</script>
 
 <script language="vbscript">
 'sub tmonth_onkeyup()
 '    if document.form1.khxh.value="" then
 '       alert("请先选择客户！")
 '       exit sub
 '    end if 
' 
' end sub
 
'在该表单提交前，检验字段是否为空，否则不许提交   
Sub datacheck() 
   

    if form1.kfkhlx.value="" then       
        MsgBox "请选择开发新/已有客户！", 64, "提示："
        focusto(2)
        Exit Sub
    end if 
  
    if form1.Tyear.value="" then       
        MsgBox "年份不能为空！", 64, "提示："
        focusto(6)
        Exit Sub
    end if 
    if form1.Tmonth.value="" then       
        MsgBox "月份不能为空！", 64, "提示："
        focusto(8)
        Exit Sub
    end if 
    if form1.Tdate.value="" then       
        MsgBox "日期不能为空！", 64, "提示："
        focusto(9)
        Exit Sub
    end if 
    if form1.txttime.value=""  then 
        MsgBox "跟进时间不能为空！", 64, "提示："
        focusto(10)
        Exit Sub
    end if 
     if form1.txtway.value="" then       
        MsgBox "跟进方式不能为空！", 64, "提示："
        focusto(13)
        Exit Sub
    end if 
    if form1.txtmd.value="" then       
        MsgBox "跟进目的不能为空！", 64, "提示："
        focusto(14)
        Exit Sub
    end if 
    nian=form1.Tyear.value
    yue=form1.Tmonth.value
    ri=form1.Tdate.value
    total=nian+"-"+yue+"-"+ri
    if not isdate(total)  then   '检验输入的日期是否有误，否则不能算出星期几
       alert"日期输入有误！"
       exit sub
    end if
   form1.submit