📄 search.asp

📁 一个ＡＳＰ网站博克程序
💻 ASP
字号:
<% Option Explicit %>
<!-- #Include File = "common/LarrixDBMS.asp" -->
<!-- #Include File = "object/Category.asp" -->
<!-- #Include File = "object/Item.asp" -->
<!-- #Include File = "object/Member.asp" -->
<!-- #Include File = "object/Link.asp" -->
<!-- #Include File = "object/Comment.asp" -->
<!-- #Include File = "object/Interface.asp" -->

<%
	Dim objCategory
	Dim objItem
	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>&nbsp;<br>
				<%
					Set objInterface = New Interface
					objInterface.Navigation
					Set objInterface = Nothing
				%>
				<br>&nbsp;<br>
				<%
					Set objCategory = New Category
					objCategory.CategoryList
					Set objCategory = Nothing
				%>
				<br>&nbsp;<br>
				<%
					Set objItem = New Items
					objItem.ItemSearch
					Set objItem = Nothing
				%>
				<br>&nbsp;<br>
				<%
					Set objMember = New Member
					objMember.MemberLogin
					Set objMember = Nothing
				%>
				<br>&nbsp;<br>
				<%
					Set objLink = New Link
					objLink.LinkList
					Set objLink = Nothing
				%>
				<br>&nbsp;<br>
				<%
					Set objInterface = New Interface
					objInterface.Counter
					Set objInterface = Nothing
				%>
				<br>&nbsp;<br>
				<%
					Set objInterface = New Interface
					objInterface.Today
					Set objInterface = Nothing
				%>
				<br>&nbsp;<br>
				<a href="RSS1.asp?order=src&keyword=<% = Request.QueryString("keyword") %>&page=<% = Request.QueryString("page") %>" target="_blank" title="RSS 1.0 聚合列表" type="application/rss+xml"><img src="images/rss1.gif" border="0"></a>
				<br>
				<a href="RSS2.asp?order=src&keyword=<% = Request.QueryString("keyword") %>&page=<% = Request.QueryString("page") %>" target="_blank" title="RSS 2.0 聚合列表" type="application/rss+xml"><img src="images/rss2.gif" border="0"></a>
				<br>&nbsp;<br>
			</td>
			<td align="left" width="582">
				<br>&nbsp;<br>
				<%
					Set objItem = New Items
					objItem.ItemResult "SELECT [Items].*,[Members].[MemberUID],[Categories].[CategoryLAB] FROM [Items],[Members],[Categories] WHERE [Items].[MemberID]=[Members].[MemberID] AND [Items].[CategoryID]=[Categories].[CategoryID] AND ([ItemLAB] LIKE '%" & Trim(Request.QueryString("keyword")) & "%' OR [ItemVAL] LIKE '%" & Trim(Request.QueryString("keyword")) & "%') AND [ItemHID]=0 ORDER BY [ItemTOP],[ItemID] DESC", Trim(Request.QueryString("keyword")), Trim(Request.QueryString("page"))
					Set objItem = Nothing
				%>
				<br>&nbsp;<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 + -