home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / iis4_03.cab / iirtels.asp < prev    next >
Encoding:
Text File  |  1997-08-28  |  7.9 KB  |  274 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <%Option Explicit %>
  3.  
  4.  
  5. <% 
  6. Const L_RATING_TEXT = "Rating"
  7. Const L_OPTIONAL_TEXT = "Optional Information"
  8. Const L_EMAIL_TEXT = "Email name of the person rating this content:"
  9. Const L_EXPIRES_TEXT = "Rating expires:"
  10. Const L_MODIFIED_TEXT = "Modification date:"
  11. Const L_NOSLIDER_TEXT = "This ratings file cannot be configured from the remote admin. Please use MMC to configure these ratings."
  12. Const L_MONTH_TEXT="Month"
  13. Const L_DAY_TEXT="Day"
  14. Const L_YEAR_TEXT="Year"
  15. Const L_TIME_TEXT="Time"
  16.  
  17. Dim level,quote
  18.  
  19. level = Request.QueryString("level")
  20. if (level = "") then
  21.     level = 0
  22. end if 
  23.  
  24. quote=chr(34)
  25.     
  26. function writeSlider(prop, stops, width, selnum)
  27.     dim slidestr, i
  28.     slidestr="<IMG SRC='images/sliderend.gif' WIDTH=1 HEIGHT=26 BORDER=0>"
  29.     for i=0 to stops-2
  30.         slidestr=slidestr & drawStop(i,prop, selnum) 
  31.         slidestr=slidestr & "<IMG SRC='images/slidersp.gif' WIDTH=" & width & " HEIGHT=26 BORDER=0>"
  32.     Next
  33.     slidestr=slidestr & drawStop(i, prop, selnum)
  34.     slidestr=slidestr & "<IMG SRC='images/sliderend.gif' WIDTH=1 HEIGHT=26 BORDER=0>"
  35.     writeSlider=slidestr
  36. end function 
  37.  
  38. function drawStop(curr,prop, selnum)
  39.     dim thisname, slidestr,formname
  40.     thisname=quote & prop & curr & quote 
  41.     if Session("IsIE") then 
  42.         formname = "parent.document.userform."
  43.     else
  44.         formname = "document.userform."
  45.     end if 
  46.     slidestr="<A HREF='javascript:moveSlider(" &  formname & prop & ", " & quote & prop & quote & "," & curr & ")'>"
  47.     if cInt(curr)=cInt(selnum) then
  48.         drawStop=slidestr & "<IMG NAME=" & thisname &  " SRC='images/slideron.gif' WIDTH=11 HEIGHT=26 BORDER=0></A>"
  49.     else
  50.         drawStop=slidestr & "<IMG NAME=" & thisname & " SRC='images/slideroff.gif' WIDTH=11 HEIGHT=26 BORDER=0></A>"
  51.     end if
  52. end function 
  53.  
  54.      %>
  55.     
  56.     <HTML>
  57.     <HEAD>
  58.         <TITLE></TITLE>
  59.     
  60.         <SCRIPT LANGUAGE="JavaScript">
  61.         
  62. <% if not Session("IsIE") then %>
  63.     slideron=new Image(11,26);
  64.     slideron.src="images/slideron.gif";    
  65.     slideroff=new Image(11,26);
  66.     slideroff.src="images/slideroff.gif";
  67.     lastslide="hdnPics<%= level %>";
  68. <% end if %>        
  69.  
  70.         theList = parent.head.cachedList;
  71.         uform = document.userform;
  72.         headform = parent.head.document.hiddenform;
  73.         
  74.         function moveSlider(control,prop,num){
  75.             top.head.Global.updated=true;            
  76.             <% if Session("IsIE") then %>
  77.                 slideurl="iislider.asp?selnum="+num+"&stops=5&width=80&prop="+prop;
  78.                 control.value=num;
  79.                 document.Slider.location.href=slideurl;                            
  80.             <% else %>
  81.                 turnSlideOff(lastslide);
  82.                 lastslide=prop+num;
  83.                 thisprop=prop+num;
  84.                 document [thisprop].src=slideron.src;
  85.                 control.value=num;
  86.             <% end if %>
  87.             setLevel(num);
  88.         }
  89.     
  90.         function turnSlideOff(prop){
  91.                     document [prop].src=slideroff.src;
  92.         }
  93.             
  94.         function setLevel(num){
  95.             setRatingString(num);
  96.             theList[headform.index.value].sel = num;
  97.             setUpdated();
  98.             showLevel();
  99.         }
  100.         
  101.         function showLevel(){
  102.             uform = document.userform;        
  103.             uform.level.value = theList[headform.index.value].level[uform.hdnPics.value];
  104.         }
  105.         
  106.         function setRatingString(num){
  107.             ratings = "r (";
  108.             for (i=0;i<theList.length;i++){
  109.                 ratings += theList[i].key + " " + theList[i].sel;    
  110.             }
  111.             ratings += ")";                
  112.         }
  113.         
  114.         function setUpdated(){
  115.             //parent.head.listFunc.seton = ""
  116.             parent.head.document.cacheform.chkEnableRatings.checked = true;
  117.             uform = document.userform;
  118.             dateObj=new Date();            
  119.             tzdiff=(dateObj.getTimezoneOffset()/60) + "00";
  120.             if (tzdiff.length < 4){
  121.                 tzdiff = "0" + tzdiff;
  122.             }
  123.             
  124.             if (dateComplete()){
  125.                 parent.head.listFunc.expon = uform.yyyy.value+"."+uform.mo.value+"."+uform.dd.value+"T"+uform.hh.value+":"+uform.mm.value+"-"+tzdiff;
  126.             }
  127.             else{
  128.                 parent.head.listFunc.expon = "";
  129.             }
  130.             
  131.             parent.head.listFunc.email = uform.email.value;            
  132.  
  133.             
  134.             var yyyy=dateObj.getYear();
  135.             if (yyyy < 100){
  136.                 yyyy="19" + yyyy;    
  137.             }            
  138.             var mo=rpad(2,"0",dateObj.getMonth()+1);
  139.             var dd=rpad(2,"0",dateObj.getDate());
  140.             var hh=rpad(2,"0",dateObj.getHours());
  141.             var mm=rpad(2,"0",dateObj.getMinutes());
  142.             parent.head.listFunc.seton =yyyy+"."+mo+"."+dd+"T"+hh+":"+mm+"-"+tzdiff;
  143.  
  144.                     
  145.         }
  146.         
  147.         function dateComplete(){
  148.             uform = document.userform;
  149.             completed = uform.yyyy.value != "";
  150.             completed = completed && (uform.mo.value != "");
  151.             completed = completed && (uform.dd.value != "");
  152.             completed = completed && (uform.hh.value != "");
  153.             completed = completed && (uform.mm.value != "");
  154.             return completed;                                
  155.         }
  156.         
  157.         function rpad(len,padchr,str){
  158.             str = str.toString();
  159.             if (str.length < len){
  160.                 str = padchr + str;
  161.             }            
  162.             return str;
  163.         }
  164.         
  165.  
  166.         function writeDate(ISOdate,readOnly){
  167.  
  168.             var yyyy = ISOdate.substring(0,4);
  169.             var mo = ISOdate.substring(5,7);
  170.             var dd = ISOdate.substring(8,10);
  171.             var hh = ISOdate.substring(11,13); 
  172.             var mm = ISOdate.substring(14,16); 
  173.             var s = ISOdate.substring(16,17); 
  174.             var tz = ISOdate.substring(17,21); 
  175.             
  176.             var dstr = "";
  177.             if (readOnly){
  178.                 dstr = mo + "-" + dd + "-" + yyyy + "  " + hh + ":" + mm
  179.             }
  180.             else{
  181.             dstr = "<TABLE>";
  182.             dstr += "<TR>";
  183.                 dstr += "<TD><FONT SIZE=1 FACE='Helv'><%= L_EXPIRES_TEXT %></FONT></TD>";
  184.                 dstr += "<TD><FONT SIZE=1 FACE='Helv'><INPUT MAXLENGTH=2 SIZE = 2 NAME='mo'  VALUE='" + mo + "' onChange='setUpdated();'></FONT></TD>";
  185.                 dstr += "<TD> </TD>";
  186.                 dstr += "<TD><FONT SIZE=1 FACE='Helv'><INPUT MAXLENGTH=2 SIZE = 2 NAME='dd' VALUE='" + dd + "' onChange='setUpdated();'></FONT></TD>";
  187.                 dstr += "<TD> </TD>";
  188.                 dstr += "<TD><FONT SIZE=1 FACE='Helv'><INPUT MAXLENGTH=4 SIZE = 4 NAME='yyyy' VALUE='" + yyyy + "' onChange='setUpdated();'></FONT></TD>";
  189.                 dstr += "<TD>  </TD>";
  190.                 dstr += "<TD><FONT SIZE=1 FACE='Helv'><INPUT MAXLENGTH=2 SIZE = 2 NAME='hh' VALUE='" + hh + "' onChange='setUpdated();'>: <INPUT MAXLENGTH=2 SIZE = 2 NAME='mm' VALUE='" + mm + "' onChange='setUpdated();'></FONT></TD>";
  191.             dstr += "</TR>";
  192.             dstr += "<TR>";
  193.                 dstr += "<TD> </TD>"
  194.                 dstr += "<TD ALIGN='center'><FONT SIZE=1 FACE='Helv'><%= L_MONTH_TEXT %></FONT></TD>";
  195.                 dstr += "<TD> </TD>";
  196.                 dstr += "<TD ALIGN='center'><FONT SIZE=1 FACE='Helv'><%= L_DAY_TEXT %></FONT></TD>";
  197.                 dstr += "<TD> </TD>";
  198.                 dstr += "<TD ALIGN='center'><FONT SIZE=1 FACE='Helv'><%= L_YEAR_TEXT %></FONT></TD>";
  199.                 dstr += "<TD>  </TD>";
  200.                 dstr += "<TD ALIGN='center'><FONT SIZE=1 FACE='Helv'><%= L_TIME_TEXT %></FONT></TD>";
  201.             dstr += "</TR>";
  202.             dstr += "</TABLE>";    
  203.             }
  204.             return (dstr + "<P>");
  205.         }
  206.             
  207.             
  208.             
  209.         
  210.  
  211.         </SCRIPT>
  212.         
  213.     </HEAD>
  214.     
  215.     <BODY BGCOLOR="#CCCCCC" TOPMARGIN=10 TEXT="#000000" LINK="#FFFFFF" OnLoad="showLevel();">
  216.  
  217.     <TABLE>
  218.     <TR>
  219.         <TD><FONT SIZE=1 FACE=HELV>
  220.         <TABLE>
  221.             <TR>                    
  222.                 <TD>
  223.                     <% if Session("IsIE") then %>
  224.                     <IFRAME NAME="Slider" HEIGHT=30 FRAMEBORDER=0 WIDTH=415 SRC="iislider.asp?stops=5&width=80&prop=hdnPics&selnum=<%= level %>">
  225.                     </IFRAME>
  226.                     <% else %>                
  227.                         <%= writeSlider("hdnPics", 5, 80, level) %>                     
  228.                     <% end if %>
  229.                 </TD>
  230.             </TR>
  231.             </TABLE>
  232.             </FONT>
  233.         </TD>
  234.     </TR>
  235.     </TABLE>
  236.     
  237.     <FORM NAME="userform">
  238.     <TABLE WIDTH = 100%>
  239.     <TR>
  240.         <TD><FONT SIZE=1 FACE=HELV>
  241.         <%= L_RATING_TEXT %>: <INPUT TYPE="text" SIZE = 40 NAME="level" VALUE="">
  242.         <INPUT TYPE="hidden" NAME="hdnPics" VALUE="<%= level %>">
  243.         <INPUT TYPE="hidden" NAME="HttpPics">    
  244.         </TD>
  245.     </TR>
  246.     </TABLE>
  247.         
  248.     <HR>
  249.     <TABLE WIDTH = 100%>
  250.     <TR>
  251.         <TD>
  252.  
  253.  
  254.         <FONT SIZE=1 FACE=HELV>
  255.         <B><%= L_OPTIONAL_TEXT %></B><P>
  256.         
  257.         <%= L_EMAIL_TEXT %>
  258.         
  259.         <SCRIPT LANGAUGE="JavaScript">            
  260.             document.write("<INPUT NAME='email' SIZE=35 VALUE='" + parent.head.listFunc.email + "' OnChange='setUpdated();'>"+ "<P>");                
  261.             document.write("<%= L_MODIFIED_TEXT %> ");
  262.             document.write(writeDate(parent.head.listFunc.seton,true));
  263.             document.write(writeDate(parent.head.listFunc.expon,false));    
  264.         </SCRIPT>
  265.  
  266.         </TD>
  267.     </TR>
  268.     </TABLE>
  269.     
  270. </FORM>
  271. </BODY>
  272. </HTML>
  273.  
  274.