📄 linkexplor.asp
字号:
<% Option Explicit %>
<!-- #Include File = "common/LarrixDBMS.asp" -->
<!-- #Include File = "object/Member.asp" -->
<!-- #Include File = "object/Link.asp" -->
<!-- #Include File = "object/Interface.asp" -->
<%
If Session("Passport") = "" Or Session("Passport") <= 0 Or Session("UsrLevel") <> True Then
Response.Redirect("../Default.asp")
End If
%>
<%
Dim objMember
Dim objLink
Dim objInterface
%>
<html>
<head>
<title>欢迎光临 Larrix BLOG 官方网站</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../images/Style.css" type="text/css">
</head>
<body>
<%
Set objInterface = New Interface
objInterface.Header
Set objInterface = Nothing
%>
<table width="776" cellpadding="0" cellpadding="0" border="0" align="center" class="ground">
<tr valign="top">
<td align="center" width="194">
<br> <br>
<%
Set objInterface = New Interface
objInterface.Navigation
Set objInterface = Nothing
%>
<%
If Session("UsrLevel") = True Then
%><br> <br><%
Set objMember = New Member
objMember.MemberPanel()
Set objMember = Nothing
End If
%>
<br> <br>
</td>
<td align="left" width="582">
<br> <br>
<%
Set objLink = New Link
objLink.LinkExplor
Set objLink = Nothing
%>
<br> <br>
</td>
</tr>
</table>
<%
Set objInterface = New Interface
objInterface.Footer
Set objInterface = Nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -