📄 urlform.asp
字号:
<%
@ 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 face="宋体" 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></font>
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -