home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iirtels.asp < prev    next >
Text File  |  1997-11-12  |  11KB  |  376 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5.  
  6. <% 
  7. Const L_RATING_TEXT = "Rating"
  8. Const L_OPTIONAL_TEXT = "Optional Information"
  9. Const L_EMAIL_TEXT = "Email name of the person rating this content:"
  10. Const L_EXPIRES_TEXT = "Rating expires:"
  11. Const L_MODIFIED_TEXT = "Ratings were last modified on:"
  12. Const L_NOSLIDER_TEXT = "This ratings file cannot be configured from the remote admin. Please use MMC to configure these ratings."
  13. Const L_MONTH_TEXT="Month"
  14. Const L_DAY_TEXT="Day"
  15. Const L_YEAR_TEXT="Year"
  16. Const L_TIME_TEXT="Time"
  17.  
  18. Const L_JAN_TEXT = "January"
  19. Const L_FEB_TEXT = "February"
  20. Const L_MAR_TEXT = "March"
  21. Const L_APR_TEXT = "April"
  22. Const L_MAY_TEXT = "May"
  23. Const L_JUN_TEXT = "June"
  24. Const L_JUL_TEXT = "July"
  25. Const L_AUG_TEXT = "August"
  26. Const L_SEP_TEXT = "September"
  27. Const L_OCT_TEXT = "October"
  28. Const L_NOV_TEXT = "November"
  29. Const L_DEC_TEXT = "December"
  30.  
  31. Const L_MON_TEXT = "Monday"
  32. Const L_TUE_TEXT = "Tuesday"
  33. Const L_WED_TEXT = "Wednesday"
  34. Const L_THU_TEXT = "Thursday"
  35. Const L_FRI_TEXT = "Friday"
  36. Const L_SAT_TEXT = "Saturday"
  37. Const L_SUN_TEXT = "Sunday"
  38.  
  39.  
  40. Dim level,quote
  41.  
  42. level = Request.QueryString("level")
  43. if (level = "") then
  44.     level = 0
  45. end if 
  46.  
  47. quote=chr(34)
  48.     
  49. function writeSlider(prop, stops, width, selnum)
  50.     dim slidestr, i
  51.     slidestr="<IMG SRC='images/sliderend.gif' WIDTH=1 HEIGHT=26 BORDER=0>"
  52.     for i=0 to stops-2
  53.         slidestr=slidestr & drawStop(i,prop, selnum) 
  54.         slidestr=slidestr & "<IMG SRC='images/slidersp.gif' WIDTH=" & width & " HEIGHT=26 BORDER=0>"
  55.     Next
  56.     slidestr=slidestr & drawStop(i, prop, selnum)
  57.     slidestr=slidestr & "<IMG SRC='images/sliderend.gif' WIDTH=1 HEIGHT=26 BORDER=0>"
  58.     writeSlider=slidestr
  59. end function 
  60.  
  61. function drawStop(curr,prop, selnum)
  62.     dim thisname, slidestr,formname
  63.     thisname=quote & prop & curr & quote 
  64.     if Session("IsIE") then 
  65.         formname = "parent.document.userform."
  66.     else
  67.         formname = "document.userform."
  68.     end if 
  69.     slidestr="<A HREF='javascript:moveSlider(" &  formname & prop & ", " & quote & prop & quote & "," & curr & ")'>"
  70.     if cInt(curr)=cInt(selnum) then
  71.         drawStop=slidestr & "<IMG NAME=" & thisname &  " SRC='images/slideron.gif' WIDTH=11 HEIGHT=26 BORDER=0></A>"
  72.     else
  73.         drawStop=slidestr & "<IMG NAME=" & thisname & " SRC='images/slideroff.gif' WIDTH=11 HEIGHT=26 BORDER=0></A>"
  74.     end if
  75. end function 
  76.  
  77.      %>
  78.     
  79.     <HTML>
  80.     <HEAD>
  81.         <TITLE></TITLE>
  82.     
  83.         <SCRIPT LANGUAGE="JavaScript">
  84.         
  85.         MONTHS = new Array()
  86.         MONTHS[0] = "<%= L_JAN_TEXT %>";
  87.         MONTHS[1] = "<%= L_FEB_TEXT %>";
  88.         MONTHS[2] = "<%= L_MAR_TEXT %>";
  89.         MONTHS[3] = "<%= L_APR_TEXT %>";
  90.         MONTHS[4] = "<%= L_MAY_TEXT %>";
  91.         MONTHS[5] = "<%= L_JUN_TEXT %>";
  92.         MONTHS[6] = "<%= L_JUL_TEXT %>";
  93.         MONTHS[7] = "<%= L_AUG_TEXT %>";
  94.         MONTHS[8] = "<%= L_SEP_TEXT %>";
  95.         MONTHS[9] = "<%= L_OCT_TEXT %>";
  96.         MONTHS[10] = "<%= L_NOV_TEXT %>";
  97.         MONTHS[11] = "<%= L_DEC_TEXT %>";
  98.         
  99.         
  100.         DAYS = new Array()
  101.         DAYS[0] = "<%= L_SUN_TEXT %>";
  102.         DAYS[1] = "<%= L_MON_TEXT %>";
  103.         DAYS[2] = "<%= L_TUE_TEXT %>";
  104.         DAYS[3] = "<%= L_WED_TEXT %>";
  105.         DAYS[4] = "<%= L_THU_TEXT %>";
  106.         DAYS[5] = "<%= L_FRI_TEXT %>";
  107.         DAYS[6] = "<%= L_SAT_TEXT %>";
  108.         
  109.         
  110. <% if not Session("IsIE") then %>
  111.     slideron=new Image(11,26);
  112.     slideron.src="images/slideron.gif";    
  113.     slideroff=new Image(11,26);
  114.     slideroff.src="images/slideroff.gif";
  115.     lastslide="hdnPics<%= level %>";
  116. <% end if %>        
  117.  
  118.         theList = parent.head.cachedList;
  119.         uform = document.userform;
  120.         headform = parent.head.document.hiddenform;
  121.         
  122.         function moveSlider(control,prop,num){
  123.             top.title.Global.updated=true;            
  124.             <% if Session("IsIE") then %>
  125.                 slideurl="iislider.asp?selnum="+num+"&stops=5&width=80&prop="+prop;
  126.                 control.value=num;
  127.                 document.Slider.location.href=slideurl;                            
  128.             <% else %>
  129.                 turnSlideOff(lastslide);
  130.                 lastslide=prop+num;
  131.                 thisprop=prop+num;
  132.                 document [thisprop].src=slideron.src;
  133.                 control.value=num;
  134.             <% end if %>
  135.             setLevel(num);
  136.         }
  137.     
  138.         function turnSlideOff(prop){
  139.                     document [prop].src=slideroff.src;
  140.         }
  141.             
  142.         function setLevel(num){
  143.             setRatingString(num);
  144.             theList[headform.index.value].sel = num;
  145.             setUpdated();
  146.             showLevel();
  147.         }
  148.         
  149.         function showLevel(){
  150.             uform = document.userform;        
  151.             uform.level.value = theList[headform.index.value].level[uform.hdnPics.value];
  152.         }
  153.         
  154.         function setRatingString(num){
  155.             ratings = "r (";
  156.             for (i=0;i<theList.length;i++){
  157.                 ratings += theList[i].key + " " + theList[i].sel;    
  158.             }
  159.             ratings += ")";                
  160.         }
  161.         
  162.         function setUpdated(){
  163.             //parent.head.listFunc.seton = ""
  164.             parent.head.document.cacheform.chkEnableRatings.checked = true;
  165.             uform = document.userform;
  166.  
  167.             dateObj=parseUIDate(uform.hdnExpiresDate);
  168.             var yyyy=fullYear(dateObj.getYear());    
  169.             var mo=rpad(2,"0",dateObj.getMonth()+1);
  170.             var dd=rpad(2,"0",dateObj.getDate());
  171.             var hh=rpad(2,"0",dateObj.getHours());
  172.             var mm=rpad(2,"0",dateObj.getMinutes());
  173.             var tzdiff=dateObj.getTimezoneOffset()
  174.             parent.head.listFunc.expon =yyyy+"."+mo+"."+dd+"T"+hh+":"+mm+"-"+tzdiff;
  175.  
  176.             dateObj=new Date();
  177.             var yyyy=fullYear(dateObj.getYear());    
  178.             var mo=rpad(2,"0",dateObj.getMonth()+1);
  179.             var dd=rpad(2,"0",dateObj.getDate());
  180.             var hh=rpad(2,"0",dateObj.getHours());
  181.             var mm=rpad(2,"0",dateObj.getMinutes());
  182.             parent.head.listFunc.seton =yyyy+"."+mo+"."+dd+"T"+hh+":"+mm+"-"+tzdiff;                            
  183.  
  184.             parent.head.listFunc.email = uform.email.value;            
  185.             
  186.         }
  187.         
  188.         function dateComplete(){
  189.             uform = document.userform;
  190.             completed = uform.yyyy.value != "";
  191.             completed = completed && (uform.mo.value != "");
  192.             completed = completed && (uform.dd.value != "");
  193.             completed = completed && (uform.hh.value != "");
  194.             completed = completed && (uform.mm.value != "");
  195.             return completed;                                
  196.         }
  197.         
  198.         function rpad(len,padchr,str){
  199.             str = str.toString();
  200.             if (str.length < len){
  201.                 str = padchr + str;
  202.             }            
  203.             return str;
  204.         }
  205.         
  206.  
  207.         function writeDates(){
  208.         
  209.             var dstr = "";
  210.             dstr += "<%= L_EXPIRES_TEXT %> ";            
  211.             dstr += "<TABLE>";                
  212.             dstr += "<TR>";            
  213.             dstr += "<TD><FONT SIZE=1 FACE='Helv'>";
  214.             dstr += "<INPUT READONLY NAME='hdnExpiresDate' VALUE='' SIZE = 35 OnBlur='setUpdated();'>";
  215.             dstr += "<INPUT TYPE='button' VALUE='...' OnClick='popCalendar(\"document.userform.hdnExpiresDate\",document.userform.hdnExpiresDate.value);'>";                                                                                
  216.             dstr += "</FONT></TD>"        
  217.             dstr += "</TR>";
  218.             dstr += "</TABLE>";    
  219.             dstr += "<BR>";
  220.             dstr += "<%= L_MODIFIED_TEXT %> ";
  221.             dstr += "<TABLE>";                
  222.             dstr += "<TR>";            
  223.             dstr += "<TD><FONT SIZE=1 FACE='Helv'>"
  224.             dstr += "<INPUT DISABLED NAME='hdnModifiedDate' VALUE=''  SIZE = 35 >";
  225.             dstr += "</FONT></TD>"    
  226.             dstr += "</TR>";
  227.             dstr += "</TABLE>";                
  228.             
  229.             return (dstr + "<P>");            
  230.         }
  231.  
  232.  
  233.         function fullYear(yearStr)
  234.         {
  235.             if (yearStr < 100){
  236.                 yearStr="19" + yearStr;    
  237.             }
  238.             return yearStr        
  239.         }
  240.                             
  241.         function replaceStr(fullStr,oldStr,newStr)
  242.         {
  243.             newFullStr = fullStr;
  244.             if (fullStr.indexOf(oldStr) != 0)
  245.             {
  246.                 newFullStr = fullStr.substring(0,fullStr.indexOf(oldStr));
  247.                 newFullStr += newStr;
  248.                 newFullStr += fullStr.substring(fullStr.indexOf(oldStr)+(oldStr.length),fullStr.length);        
  249.             }
  250.             return newFullStr;
  251.         }
  252.  
  253.  
  254.         function parseUIDate(dateCntrl){
  255.             if (dateCntrl.value != "")
  256.             {
  257.                 datestr = dateCntrl.value;
  258.                 datestr = datestr.substring(datestr.indexOf(",")+2, datestr.length);
  259.                 newDate = new Date(datestr);
  260.             }
  261.             else{
  262.                 newDate = new Date();
  263.             }
  264.             return newDate;
  265.         }
  266.                                     
  267.         function parseRatingsDate(dateStr){
  268.         
  269.             dateStr = replaceStr(dateStr,"T",".");
  270.             dateStr = replaceStr(dateStr,"-",".");
  271.             dateStr = replaceStr(dateStr,":",".");                        
  272.  
  273.         
  274.             dateObj = new Date();
  275.             
  276.             dateArray = dateStr.split(".");
  277.  
  278.             if (dateArray[0] != "")
  279.             {
  280.             dateObj.setYear(dateArray[0]);
  281.             dateObj.setMonth(dateArray[1]-1);
  282.             dateObj.setDate(dateArray[2]);            
  283.             }
  284.             return dateObj;
  285.         }
  286.         
  287.  
  288.         function setDateCntrl(dateCntrl,dateObj){
  289.             year=fullYear(dateObj.getYear());
  290.             datestr = DAYS[dateObj.getDay()] + ", " + MONTHS[dateObj.getMonth()] + " " + dateObj.getDate() + ", " + year;
  291.             dateCntrl.value = datestr;
  292.         }        
  293.                 
  294.         function popCalendar(cntrlname,someDate){
  295.             if (someDate == ""){
  296.                 newdate = new Date();
  297.                 someDate = newdate.toGMTString();
  298.             }
  299.             thefile="calendar.asp?cntrl="+cntrlname + "¤tDate=" + escape(someDate);
  300.             <% if Session("FONTSIZE") = "LARGE" then %>
  301.             popbox=window.open(thefile,"Calendar","resizable=yes,toolbar=no,scrollbars=no,directories=no,menubar=no,width=250,height=260");
  302.             <% else %>
  303.             popbox=window.open(thefile,"Calendar","resizable=yes,toolbar=no,scrollbars=no,directories=no,menubar=no,width=250,height=240");            
  304.             <% end if %>
  305.             if(popbox !=null){
  306.                 if (popbox.opener==null){
  307.                     popbox.opener=self;
  308.                 }
  309.             }
  310.         }                
  311.         
  312.  
  313.         </SCRIPT>
  314.         
  315.     </HEAD>
  316.     
  317.     <BODY BGCOLOR="#CCCCCC" TOPMARGIN=10 TEXT="#000000" LINK="#FFFFFF" OnLoad="showLevel();">
  318.  
  319.     <TABLE>
  320.     <TR>
  321.         <TD><FONT SIZE=1 FACE="HELV,ARIAL">
  322.         <TABLE>
  323.             <TR>                    
  324.                 <TD>
  325.                     <% if Session("IsIE") then %>
  326.                     <IFRAME NAME="Slider" HEIGHT=30 FRAMEBORDER=0 WIDTH=415 SRC="iislider.asp?stops=5&width=80&prop=hdnPics&selnum=<%= level %>">
  327.                     </IFRAME>
  328.                     <% else %>                
  329.                         <%= writeSlider("hdnPics", 5, 80, level) %>                     
  330.                     <% end if %>
  331.                 </TD>
  332.             </TR>
  333.             </TABLE>
  334.             </FONT>
  335.         </TD>
  336.     </TR>
  337.     </TABLE>
  338.     
  339.     <FORM NAME="userform">
  340.     <TABLE WIDTH = 100%>
  341.     <TR>
  342.         <TD><FONT SIZE=1 FACE="HELV,ARIAL">
  343.         <%= L_RATING_TEXT %>: <INPUT READONLY TYPE="text" SIZE = 40 NAME="level" VALUE="">
  344.         <INPUT TYPE="hidden" NAME="hdnPics" VALUE="<%= level %>">
  345.         <INPUT TYPE="hidden" NAME="HttpPics">    
  346.         </TD>
  347.     </TR>
  348.     </TABLE>
  349.         
  350.     <HR>
  351.     <TABLE WIDTH = 100%>
  352.     <TR>
  353.         <TD>
  354.  
  355.  
  356.         <FONT SIZE=1 FACE="HELV,ARIAL">
  357.         <B><%= L_OPTIONAL_TEXT %></B><P>
  358.         
  359.         <%= L_EMAIL_TEXT %>
  360.         
  361.         <SCRIPT LANGAUGE="JavaScript">            
  362.             document.write("<INPUT NAME='email' SIZE=35 VALUE='" + parent.head.listFunc.email + "' OnChange='setUpdated();'>"+ "<P>");                
  363.             document.write(writeDates());
  364.             setDateCntrl(document.userform.hdnExpiresDate,parseRatingsDate(parent.head.listFunc.expon));
  365.             setDateCntrl(document.userform.hdnModifiedDate,parseRatingsDate(parent.head.listFunc.seton));            
  366.         </SCRIPT>
  367.         
  368.         </TD>
  369.     </TR>
  370.     </TABLE>
  371.     
  372. </FORM>
  373. </BODY>
  374. </HTML>
  375.  
  376.