search.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<%
key_keyword=request("key_keyword")
key_type=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 class="head"> 您搜索的关键字为：<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")),"'","")
page1=clng(request("page"))
set rsclass=server.CreateObject("ADODB.recordset")

If key_type="key" Then	
sqlclass="select * from list_book where 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 like '%"&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=20
if page1=0 then page1=1
pages=rsclass.pagecount
if page1 > pages then page=pages
rsclass.AbsolutePage=page1

for j=1 to rsclass.pagesize
%><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
%></td>
										<td class="xt" vAlign="top" align="left" width="20%">
										<a target="_blank" href="look_book.asp?id=<%=rsclass("id")%>">
										<%=rsclass("list_name")%></a></td>
										<td class="xt" vAlign="top" align="left" width="35%"><%
set rsvclass=server.createobject("adodb.recordset")
	sqlvclass="select id,list_cookid,view_type,view_size,view_date from [list_view] where view_id="&rsclass("id")&" order by view_date desc"
	rsvclass.open sqlvclass,conn,1,1
	if rsvclass.eof and rsvclass.bof then
		response.write "暂无更新"
	else
dim list_cookid
list_cookid=rsvclass("list_cookid")
set rscclass=server.createobject("adodb.recordset")
sqlcclass="select list_cookname from [list_cook] where list_cookid="&list_cookid&""
rscclass.open sqlcclass,conn,1,1
if rscclass.eof and rscclass.bof then
	response.write "暂无更新"
else
%>						<a target="_blank" href="view_book.asp?id=<%=rsvclass("id")%>" title='本章字数：<%=rsvclass("view_size")%>

更新日期：<%=rsvclass("view_date")%>' ><%=rscclass("list_cookname")%>&nbsp;&nbsp;&nbsp;
<%=rsvclass("view_type")%></a><%
rscclass.close
set rscclass=nothing
	end if
rsvclass.close
set rsvclass=nothing
end if
%></td>
										<td class="xt" vAlign="top" align="middle" width="15%">
										<%=rsclass("list_gxdate")%></td>
										<td class="xt" vAlign="top" align="middle" width="10%">
										<%=rsclass("list_user")%></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;&nbsp;<%=left(rsclass("list_all"),500)%>...</font><br><br></td>
                                                                                       
                                                                </tr>
                                                                </table>
														<hr color="#163856"><%
rsclass.movenext
if rsclass.eof then exit for
next
%>
                                                            
                                                            <table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#1A405A" bordercolordark="#D5E7F2" bordercolor="#AED0E8">
                                                                <tr>
                                                                    <td>　</td>
                                                                </tr>
                                                                <tr>
                                                                    <td height="24" align="center"><%if Page1<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=search.asp?key_type="&key_type&"&key_keyword="&key_keyword&"&page=1>首页</a>&nbsp;"
    response.write "<a href=search.asp?key_type="&key_type&"&key_keyword="&key_keyword&"&page=" & (page1-1) & ">上一页</a>&nbsp;"
  end if
  if rsclass.pagecount-page1<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=search.asp?key_type="&key_type&"&key_keyword="&key_keyword&"&page=" & (page1+1) & ">"
    response.write "下一页</a> <a href=search.asp?key_type="&key_type&"&key_keyword="&key_keyword&"&page="&rsclass.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&page1&"</font>/"&rsclass.pagecount&"</strong>页 "
   response.write "&nbsp;共<b><font color='#FF0000'>"&rsclass.recordcount&"</font></b>条记录 <b>"&rsclass.pagesize&"</b>条记录/页"   
%></td>
                                                                </tr>
                                                            </table>
                              <% end if %></td>
                                                    </tr>
                                                </table>