📄 display.asp
字号:
<%
Sub CheckAccess
If Instr(Request.ServerVariables("SCRIPT_NAME"), "login.asp") = 0 Then
If Session("auth") <> True Then
Response.Buffer = True
Response.Redirect "login.asp"
Response.End
End If
End If
End Sub
'_______________________________________________________________
Sub CreateTop
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="style.css">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body bgcolor="black" link="yellow" vlink="yellow">
<table border="0" width="800" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3" valign="center">
<img SRC="images/aspsea1[1].gif" align="left">
<br><font size="5"><em><b>The total
solution for quickly adding a directory search engine to your site.</b></em></font>
<br><b>Version 1.5b</b></p>
</td>
</tr>
<tr valign="top">
<td align="center" size="150">
<b><u>App Options</u></b><br>
<a href="default.asp">Main Page</a>
<br>
<a href="action.asp?Action=Add">Add a Site</a>
<br>
<a href="action.asp?Action=MOD">Modify Sites</a>
<br>
<a href="utils.asp">Utilities</a>
<br>
<a href="logs.asp">View Logs</a>
<br>
<a href="system.asp">System Settings</a>
<br>
<% If Session("auth") = True Then %>
<a href="login.asp?action=updateuser">My Info</a>
<% End If %>
<p><b>
<a href="../default.asp">Your Directory</a></b>
<img src="images/spacer.gif" width="120" height="1">
</td>
<td bgcolor="silver"><img src="images/spacer.gif" width="1" height="1"></td>
<td width="100%">
<table width="100%" cellpadding="5"><tr><td>
<%
End Sub
'_________________________________________________________________________________
Sub CreateBottom
%>
</td></tr></table>
</td></tr>
<tr><td colspan="3" bgcolor="silver"><img src="images/spacer.gif" width="1" height="1"></td></tr>
</table>
<p align="center"><font face="Arial" size="1"><em>Copyright (c) 1999 <a href="mailto:patrick@santry.com">Patrick J. Santry</a>, All Rights
Reserved.</em></font></p>
</body>
</html>
<%
End Sub
Call CheckAccess
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -