home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 March / VPR0003B.ISO / alpha / urlform.asp < prev    next >
Text File  |  1999-10-14  |  1KB  |  65 lines
  1. <%
  2.  @ LANGUAGE="VBSCRIPT"
  3. %>
  4. <%
  5.  Option Explicit
  6.  Dim i
  7.  Dim intID
  8.  Dim Theme
  9. %>
  10. <HTML>
  11. <!--
  12.     $Date: 9/24/97 9:22p $
  13.     $ModTime: $
  14.     $Revision: 6 $
  15.     $Workfile: urlform.asp $
  16. -->
  17. <HEAD>
  18. <TITLE></TITLE>
  19. <%                                                    ' FAVORITE LINKS SCRIPT
  20.  If Request.Form("addLink") <> "" Then                        'add links
  21.     call addLink
  22.  End If
  23.  
  24.  If Request.Form("removeLink") <> "" Then            'remove links
  25.      call removeLink
  26.  End If
  27.  call styleSheet
  28.  %>
  29. <!--#include virtual ="/iissamples/homepage/sub.inc"-->
  30. <!--#include file ='tempsubs.inc'-->
  31. </HEAD>
  32. <BODY TOPMARGIN="0" LEFTMARGIN="0" class=bg1>
  33. <FORM NAME="URLupdate" ACTION="urlform.asp" METHOD="POST">
  34. <TABLE border="0" CellSpacing="0" CellPadding="1">
  35.  
  36.     <%
  37.      If myinfo.intUrl <> "" Then
  38.         call urlArray
  39.      End If
  40.     %>
  41.  
  42. <TR>
  43.     <TD colspan=2>
  44.  
  45.     <Span ID=header>
  46.     <FONT size="-2"><A  Language="VBSCRIPT" HREF = <% response.write """#""" & " onClick = """ & HelpWindow("Links") %>">新しいリンクの追加</A>.
  47.         <BR>URL<BR>
  48.         <!--INPUT NAME="add" TYPE=HIDDEN VALUE="1"-->
  49.         <INPUT NAME=url TYPE=text size=20 maxlength=45 VALUE="http://"><BR>
  50.         説明<BR>
  51.         <INPUT NAME=urlWords size=20 maxlength=45 TYPE=text><BR>
  52.         <CENTER>
  53.         <INPUT Type="submit" NAME=addLink VALUE="リンクの追加"
  54.         Language="VBSCRIPT" onClick="SUBMIT">
  55.          
  56.         <INPUT Type="button" NAME=clear VALUE="フィールドのクリア"
  57.         Language="VBSCRIPT" onClick="reset">
  58.         </CENTER>
  59.     </FORM>
  60. </TD>
  61. </TR>
  62. </TABLE>
  63. </BODY>
  64. </HTML>
  65.