search.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

<%
key_keyword=CheckSql(request("key_keyword"))
key_type=CheckSql(request("key_type"))
if key_keyword="" then
	response.write "<script language=javascript>alert('查询内容不能为空!');history.back(-1);</script>"
	response.end
end if
If key_type="none" Then
Response.Write ("<script>alert(' 操作错误! \n\n 请选择您需要的搜索类型!~ ');history.back();</script>")
	response.end
end if
%><table cellspacing="0" cellpadding="0" width="100%" align="center" border="0">
	<tr>
		<td><%=topsbook_search%></td>
	</tr>
	<tr>
		<td class="head" height="25">您搜索的关键字为：<font color="#FF0000"><%=key_keyword%></font></td>
	</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr>
		<td height="15"></td>
	</tr>
	<tr>
		<td><%
dim iidd,page1
iidd=replace(trim(request("id")),"'","")
Const MaxPerPage=100
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if
set rsclass=server.CreateObject("ADODB.recordset")

If key_type="key" Then	
sqlclass="select * from list_book where list_key like '%"&key_keyword&"%' ORDER BY ID desc"
ElseIf key_type="lei" Then	
sqlclass="select * from list_book where list_lei like '%"&key_keyword&"%' ORDER BY ID desc"
ElseIf key_type="tai" Then	
sqlclass="select * from list_book where list_tai like '%"&key_keyword&"%' ORDER BY ID desc"
ElseIf key_type="list_name" Then
sqlclass="select * from list_book where list_name like '%"&key_keyword&"%' ORDER BY ID desc"
ElseIf key_type="date" Then
sqlclass="select * from list_book where list_date like '%"&key_keyword&"%' ORDER BY ID desc"
ElseIf key_type="list_user" Then
sqlclass="select * from list_book where list_user = '"&key_keyword&"' ORDER BY ID desc"
else
end if
rsclass.open sqlclass,conn,1,1
if rsclass.eof and rsclass.bof then
	response.write "<td align=center><font color=red>没有相关内容</font></td>"
else
%> <%
dim classid
classid=rsclass("list_class")
set rsbclass=server.createobject("adodb.recordset")
sqlbclass="select * from list_type where typeid="&classid
rsbclass.open sqlbclass,conn,1,1
%>
		<table width="100%" height="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#1A405A" bordercolordark="#D5E7F2" bordercolor="#AED0E8">
			<tr align="middle" height="24">
				<td valign="center" align="middle" width="12%"><b>类别</b></td>
				<td valign="center" align="middle" width="20%"><b>书名</b></td>
				<td valign="center" align="middle" width="35%"><b>最新章节</b></td>
				<td valign="center" align="middle" width="15%"><b>更新时间</b></td>
				<td valign="center" align="middle" width="10%"><b>作者</b></td>
				<td valign="center" align="middle" width="8%"><b>状态</b></td>
			</tr>
		</table>
		<%
   Rsclass.PageSize=MaxPerPage
   Allpage=Rsclass.PageCount
   If Currentpage>Allpage Then Currentpage=1
   Num=Rsclass.RecordCount
   Rsclass.MoveFirst
   Rsclass.AbsolutePage=CurrentPage
   i=0
	Do While Not Rsclass.Eof%>
		<table width="100%" height="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#1A405A" bordercolordark="#D5E7F2" bordercolor="#AED0E8">
			<tr height="24">
				<td class="xt" valign="top" align="middle" width="12%"><%set rs1=server.CreateObject("ADODB.recordset")
sql="select list_classname from list_class where list_classid="&rsclass("list_lei")
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
	response.write "被删除"
else
%><%=rs1("list_classname")%><%end if
rs1.close
set rs1=nothing
if OpenInhtml=1 then
%></td>
				<td class="xt" valign="top" align="left" width="20%">
				<a target="_blank" href="<%=SiteSystemPath%>html/<%=rsclass("id")%>.<%=htmlphe%>"><%=replace(rsclass("list_name"),key_keyword,"<font color='red'>"&key_keyword&"</font>")%></a></td>
				<td class="xt" valign="top" align="left" width="35%">
				<a target="_blank" href="<%=SiteSystemPath%>html/<%=rsclass("id")%>/<%=rsclass("newviewid")%>.<%=htmlphe%>">
				<%if rsclass("newviewname")<>"" then
										response.write rsclass("newviewname")
										else
										response.write "暂无更新"
										end if
else%>
</td>
				<td class="xt" valign="top" align="left" width="20%">
				<a target="_blank" href="look_book.asp?id=<%=rsclass("id")%>"><%=replace(rsclass("list_name"),key_keyword,"<font color='red'>"&key_keyword&"</font>")%></a></td>
				<td class="xt" valign="top" align="left" width="35%">
				<a target="_blank" href="view_book.asp?id=<%=rsclass("newviewid")%>">
				<%if rsclass("newviewname")<>"" then
										response.write rsclass("newviewname")
										else
										response.write "暂无更新"
										end if%>
<%end if%></a></td>
				<td class="xt" valign="top" align="middle" width="15%"><%=replace(rsclass("list_gxdate"),key_keyword,"<font color='red'>"&key_keyword&"</font>")%></td>
				<td class="xt" valign="top" align="middle" width="10%"><%=replace(rsclass("list_user"),key_keyword,"<font color='red'>"&key_keyword&"</font>")%></td>
				<td class="xt" valign="top" align="middle" width="8%"><%if rsclass("list_tai")="1" then response.write("转载中...") end if%>
				<%if rsclass("list_tai")="2" then response.write("连载中...") end if%>
				<%if rsclass("list_tai")="3" then response.write("出版中...") end if%>
				<%if rsclass("list_tai")="4" then response.write("已暂停...") end if%>
				<%if rsclass("list_tai")="5" then response.write("已停止...") end if%>
				<%if rsclass("list_tai")="6" then response.write("已完成...") end if%></td>
			</tr>
			<tr>
				<td height="10" colspan="6" style="solid;color:#666666;padding-top:5;padding-bottom:5;padding-left:15;padding-right:15">
				<font color="#333333">&nbsp;&nbsp;&nbsp; <%=left(rsclass("list_all"),500)%>...</font><br>
				<br>
				</td>
			</tr>
		</table>
		<hr color="#163856" size="1"><%
      i=i+1
      If i>=MaxPerPage Then  Exit  Do
      Rsclass.MoveNext
   Loop
End If
rsclass.close
set rsclass=nothing
%>
		<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#1A405A" bordercolordark="#D5E7F2" bordercolor="#AED0E8">
			<tr>
				<td height="24" align="center"><%
Response.Write ShowPage("search.asp?key_type="&key_type&"&key_keyword="&key_keyword&"",CurrentPage,Num,MaxPerPage,True,True," 条纪录")
%></td>
			</tr>
		</table>
		</td>
	</tr>
</table>