user_selecttime.asp

江西旅行网整站源码下载 希望对大家有用 经过测试 安全可用

    Response.Write "var oldLesson="""";" & vbCrLf
    Response.Write "function add(obj)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "    if(obj==""""){return false;}" & vbCrLf
    Response.Write "    if(a==0){" & vbCrLf
    Response.Write "        opener.myform.all(DaySelect[0]).value="""";" & vbCrLf
    Response.Write "        a=1;" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "    if(opener.myform.all(DaySelect[0]).value==""""){" & vbCrLf
    Response.Write "        for(i=0;i<parentTd.length;i++){" & vbCrLf
    Response.Write "            opener.myform.all(DaySelect[i]).value=obj;          " & vbCrLf
    Response.Write "            parentTd[i].innerHTML=strLinka+DaySelect[i]+strLinkb+'<span class=""style3"">'+DaySelect[i].substring(8,DaySelect[i].length)+'</span><br><span class=""style2"">'+opener.myform.all(DaySelect[i]).value+'</span></a>';" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "        myform.LessonList.value=opener.myform.all(DaySelect[0]).value;  " & vbCrLf
    Response.Write "        return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    var singleLesson=obj.split("","");" & vbCrLf
    Response.Write "    var ignoreLesson="""";" & vbCrLf
    Response.Write "    for(i=0;i<singleLesson.length;i++)" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        if(checkLesson(opener.myform.all(DaySelect[0]).value,singleLesson[i]))" & vbCrLf
    Response.Write "        {" & vbCrLf
    Response.Write "            ignoreLesson=ignoreLesson+singleLesson[i]+"" """ & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "        else" & vbCrLf
    Response.Write "        {" & vbCrLf
    Response.Write "            for(j=0;j<parentTd.length;j++){" & vbCrLf
    Response.Write "                opener.myform.all(DaySelect[j]).value=opener.myform.all(DaySelect[j]).value+"",""+singleLesson[i];                          " & vbCrLf
    Response.Write "                parentTd[j].innerHTML=strLinka+DaySelect[j]+strLinkb+'<span class=""style3"">'+DaySelect[j].substring(8,DaySelect[j].length)+'</span><br><span class=""style2"">'+opener.myform.all(DaySelect[j]).value+'</span></a>';" & vbCrLf
    Response.Write "                }" & vbCrLf
    Response.Write "            myform.LessonList.value=opener.myform.all(DaySelect[0]).value;" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if(ignoreLesson!="""")" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        alert(ignoreLesson+"" 此课时已经存在，此操作已经忽略！"");" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "function del(num)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "    if (num==0 || opener.myform.all(DaySelect[0]).value=="""" || opener.myform.all(DaySelect[0]).value=="","")" & vbCrLf
    Response.Write "    {   " & vbCrLf
    Response.Write "        for(i=0;i<parentTd.length;i++){" & vbCrLf
    Response.Write "            opener.myform.all(DaySelect[i]).value="""";         " & vbCrLf
    Response.Write "            parentTd[i].innerHTML=strLinka+DaySelect[i]+strLinkb+'<span class=""style3"">'+DaySelect[i].substring(8,DaySelect[i].length)+'</span></a>';;" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "        myform.LessonList.value="""";" & vbCrLf
    Response.Write "        return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "    var strDel=opener.myform.all(DaySelect[0]).value;" & vbCrLf
    Response.Write "    var s=strDel.split("","");" & vbCrLf
    Response.Write "    for(i=0;i<parentTd.length;i++){" & vbCrLf
    Response.Write "        opener.myform.all(DaySelect[i]).value=strDel.substring(0,strDel.length-s[s.length-1].length-1);     " & vbCrLf
    Response.Write "        parentTd[i].innerHTML=strLinka+DaySelect[i]+strLinkb+'<span class=""style3"">'+DaySelect[i].substring(8,DaySelect[i].length)+'</span><br><span class=""style2"">'+opener.myform.all(DaySelect[0]).value+'</span></a>';;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    myform.LessonList.value=opener.myform.all(DaySelect[0]).value;" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "" & vbCrLf
Else
    Response.Write "<script language=""javascript"">" & vbCrLf
    Response.Write "var DaySelect      ='" & Request("DaySelect") & "'" & vbCrLf
    Response.Write "var parentTd=opener.document.getElementById('s'+DaySelect)" & vbCrLf
    Response.Write "var strLink='<a href=""#"" onclick=\'window.open(""User_SelectTime.asp?ShowStyle=0&DaySelect='+DaySelect+'"", ""strLesson"", ""width=600,height=450,toolbar=yes,menubar=yes, scrollbars=yes, resizable=yes, location=yes, status=yes"");\'>';" & vbCrLf
    Response.Write "myform.LessonList.value=opener.myform.all(DaySelect).value;" & vbCrLf
    Response.Write "parentTd.innerHTML=strLink+'<span class=""style3"">'+DaySelect.substring(8,DaySelect.length)+'</span><br><span class=""style2"">'+myform.LessonList.value+'</span></a>';" & vbCrLf
    Response.Write "var oldLesson="""";" & vbCrLf
    Response.Write "function add(obj)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "    if(obj==""""){return false;}" & vbCrLf
    Response.Write "    if(opener.myform.all(DaySelect).value=="""")" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        opener.myform.all(DaySelect).value=obj;" & vbCrLf
    Response.Write "        myform.LessonList.value=opener.myform.all(DaySelect).value;" & vbCrLf
    Response.Write "        parentTd.innerHTML=strLink+'<span class=""style3"">'+DaySelect.substring(8,DaySelect.length)+'</span><br><span class=""style2"">'+myform.LessonList.value+'</span></a>';;" & vbCrLf
    Response.Write "        return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    var singleLesson=obj.split("","");" & vbCrLf
    Response.Write "    var ignoreLesson="""";" & vbCrLf
    Response.Write "    for(i=0;i<singleLesson.length;i++)" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        if(checkLesson(opener.myform.all(DaySelect).value,singleLesson[i]))" & vbCrLf
    Response.Write "        {" & vbCrLf
    Response.Write "            ignoreLesson=ignoreLesson+singleLesson[i]+"" """ & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "        else" & vbCrLf
    Response.Write "        {" & vbCrLf
    Response.Write "            opener.myform.all(DaySelect).value=opener.myform.all(DaySelect).value+"",""+singleLesson[i];" & vbCrLf
    Response.Write "            myform.LessonList.value=opener.myform.all(DaySelect).value;" & vbCrLf
    Response.Write "            parentTd.innerHTML=strLink+'<span class=""style3"">'+DaySelect.substring(8,DaySelect.length)+'</span><br><span class=""style2"">'+myform.LessonList.value+'</span></a>';" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if(ignoreLesson!="""")" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        alert(ignoreLesson+"" 此课时已经存在，此操作已经忽略！"");" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "function del(num)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "    if (num==0 || opener.myform.all(DaySelect).value=="""" || opener.myform.all(DaySelect).value=="","")" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        opener.myform.all(DaySelect).value="""";" & vbCrLf
    Response.Write "        myform.LessonList.value="""";" & vbCrLf
    Response.Write "        parentTd.innerHTML=strLink+'<span class=""style3"">'+DaySelect.substring(8,DaySelect.length)+'</span><br><span class=""style2"">'+myform.LessonList.value+'</span></a>';;" & vbCrLf
    Response.Write "        return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "    var strDel=opener.myform.all(DaySelect).value;" & vbCrLf
    Response.Write "    var s=strDel.split("","");" & vbCrLf
    Response.Write "    opener.myform.all(DaySelect).value=strDel.substring(0,strDel.length-s[s.length-1].length-1);" & vbCrLf
    Response.Write "    myform.LessonList.value=opener.myform.all(DaySelect).value;" & vbCrLf
    Response.Write "    parentTd.innerHTML=strLink+'<span class=""style3"">'+DaySelect.substring(8,DaySelect.length)+'</span><br><span class=""style2"">'+myform.LessonList.value+'</span></a>';;" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "" & vbCrLf
End If
Response.Write "function checkLesson(LessonList,thisLesson)" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write "  if (LessonList==thisLesson){" & vbCrLf
Response.Write "        return true;" & vbCrLf
Response.Write "  }" & vbCrLf
Response.Write "  else{" & vbCrLf
Response.Write "    var s=LessonList.split("","");" & vbCrLf
Response.Write "    for (j=0;j<s.length;j++){" & vbCrLf
Response.Write "        if(s[j]==thisLesson)" & vbCrLf
Response.Write "            return true;" & vbCrLf
Response.Write "    }" & vbCrLf
Response.Write "    return false;" & vbCrLf
Response.Write "  }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "" & vbCrLf

Function PE_CLng(ByVal str1)
    If IsNumeric(str1) Then
        PE_CLng = CLng(str1)
    Else
        PE_CLng = 0
    End If
End Function

Response.Write "</fieldset>" & vbCrLf
Response.Write "</form>" & vbCrLf
%>
</body>
</html>