home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_06.cab / contents.asp < prev    next >
Text File  |  1997-11-13  |  2KB  |  89 lines
  1.  
  2. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  3.  
  4. <HTML>
  5. <HEAD>
  6.     <TITLE>Contents</TITLE>
  7. </HEAD>
  8.  
  9. <BODY bgcolor="black">
  10. <SCRIPT LANGUAGE="VBScript">
  11. <!--
  12. Function Dec(strHex)
  13.     Dec = InStr("123456789ABCDEF", UCase(Left(strHex,1))) * 16
  14.     Dec = Dec + InStr("123456789ABCDEF", UCase(Mid(strHex,2,1)))
  15. End Function
  16.  
  17. Function FixHex(ByVal strURL)
  18.     Dim x
  19.     FixHex = ""    
  20.     x = InStr(1,strURL,"%")
  21.     Do While (x > 0)
  22.         FixHex = FixHex & Left(strURL,x-1)
  23.         FixHex = FixHex & Chr(Dec(Mid(strURL,x+1)))
  24.         strURL = Mid(strURL,x+3)
  25.         x = InStr(1,strURL,"%")
  26.     Loop
  27.     FixHex = FixHex & strURL
  28. End Function
  29.  
  30. Sub TOCSynch_Click()
  31. MyUrl=parent.frames(2).location
  32. x=InStr(MyUrl,"/iishelp")
  33. y=Len(MyUrl)
  34. NewUrl=FixHex(Right(MyUrl,y-(x-1)))
  35. call hhctrl.syncURL(NewUrl)
  36. call hhctrl.syncURL(NewUrl)
  37. end sub
  38.  
  39.  
  40. Sub TOCPrint_Click()
  41. MyUrl=parent.frames(2).location
  42. x=InStr(MyUrl,"/iishelp")
  43. y=Len(MyUrl)
  44. NewUrl=FixHex(Right(MyUrl,y-(x-1)))
  45. hhctrl.syncURL(NewUrl)
  46. hhctrl.syncURL(NewUrl)
  47. hhctrl.Print()
  48. End Sub
  49. -->
  50.     </SCRIPT>
  51.  
  52. <SPAN STYLE="position:  relative; left: 0; top: 4">
  53. <IMG SRC="Cont.gif" border="0" alt="Contents">
  54. </Span>
  55.  
  56. <SPAN STYLE="position:  relative; left: -4; top: 4">
  57. <A HREF="Index.asp"><IMG SRC="NoIndex.gif" border="0" alt="Index"></A>
  58. </Span>
  59.  
  60.  
  61. <SPAN STYLE="position:  relative; left: -8; top: 4">
  62. <A HREF="Search.asp"><IMG SRC="NoSearch.gif" border="0"  ALT="Search"></A>
  63. </Span>
  64.  
  65. <table width="262" height="31" border="0" cellspacing=2 bgcolor="white" bordercolor="white">
  66. <TR><TD width="208">
  67.  
  68. </TD>
  69. <TD align="right">
  70. <SPAN STYLE="position:  relative; left: 1; top: 0">
  71. <a href="#Ptoc" onclick="TOCPrint_Click()"><img src="print.gif" border="0" alt="Print a topic or node from the TOC"></a><a name="Ptoc"></a>
  72. </SPAN>
  73. </td>
  74. <td align="left">
  75. <a href="#Stoc" onclick="TOCSynch_Click()"><img src="synch.gif" border="0" alt="Synchronize the TOC with the right-hand frame"></a><a name="Stoc"></a>
  76. </td></tr></table>
  77.  
  78.  
  79. <OBJECT id=hhctrl type="application/x-oleobject"
  80.         classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
  81.         codebase="../../common/i386.cab#version=4,72,7291,0"
  82.         width="262"
  83.         height="74%">
  84.     <PARAM name="Command" value="Contents">
  85.     <PARAM name="flags" value="0x0,0x35,0xFFFFFFFF">
  86.     <PARAM name="Item1" value="cohhc.hhc">
  87. </OBJECT>
  88. </BODY>
  89. </HTML>