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