home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 July / APC47-1.ISO / workshop / win95 / pws / iis4_06.cab / contents.asp < prev    next >
Encoding:
Text File  |  1997-11-13  |  2.2 KB  |  86 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.  
  62. <table width="262" height="31" border="0" cellspacing=2 bgcolor="white" bordercolor="white">
  63. <TR><TD width="208">
  64.  
  65. </TD>
  66. <TD align="right">
  67. <SPAN STYLE="position:  relative; left: 1; top: 0">
  68. <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>
  69. </SPAN>
  70. </td>
  71. <td align="left">
  72. <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>
  73. </td></tr></table>
  74.  
  75.  
  76. <OBJECT id=hhctrl type="application/x-oleobject"
  77.         classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
  78.         codebase="../../common/i386.cab#version=4,72,7291,0"
  79.         width="262"
  80.         height="74%">
  81.     <PARAM name="Command" value="Contents">
  82.     <PARAM name="flags" value="0x0,0x35,0xFFFFFFFF">
  83.     <PARAM name="Item1" value="cohhc.hhc">
  84. </OBJECT>
  85. </BODY>
  86. </HTML>