home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 2000 March
/
VPR0003B.ISO
/
i386
/
urlform.asp
< prev
next >
Wrap
Text File
|
1999-10-14
|
1KB
|
65 lines
<%
@ LANGUAGE="VBSCRIPT"
%>
<%
Option Explicit
Dim i
Dim intID
Dim Theme
%>
<HTML>
<!--
$Date: 9/24/97 9:22p $
$ModTime: $
$Revision: 6 $
$Workfile: urlform.asp $
-->
<HEAD>
<TITLE></TITLE>
<% ' FAVORITE LINKS SCRIPT
If Request.Form("addLink") <> "" Then 'add links
call addLink
End If
If Request.Form("removeLink") <> "" Then 'remove links
call removeLink
End If
call styleSheet
%>
<!--#include virtual ="/iissamples/homepage/sub.inc"-->
<!--#include file ='tempsubs.inc'-->
</HEAD>
<BODY TOPMARGIN="0" LEFTMARGIN="0" class=bg1>
<FORM NAME="URLupdate" ACTION="urlform.asp" METHOD="POST">
<TABLE border="0" CellSpacing="0" CellPadding="1">
<%
If myinfo.intUrl <> "" Then
call urlArray
End If
%>
<TR>
<TD colspan=2>
<Span ID=header>
<FONT size="-2"><A Language="VBSCRIPT" HREF = <% response.write """#""" & " onClick = """ & HelpWindow("Links") %>">新しいリンクの追加</A>.
<BR>URL<BR>
<!--INPUT NAME="add" TYPE=HIDDEN VALUE="1"-->
<INPUT NAME=url TYPE=text size=20 maxlength=45 VALUE="http://"><BR>
説明<BR>
<INPUT NAME=urlWords size=20 maxlength=45 TYPE=text><BR>
<CENTER>
<INPUT Type="submit" NAME=addLink VALUE="リンクの追加"
Language="VBSCRIPT" onClick="SUBMIT">
<INPUT Type="button" NAME=clear VALUE="フィールドのクリア"
Language="VBSCRIPT" onClick="reset">
</CENTER>
</FORM>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>