<!--#include file="../Inc/Conn.asp"-->
<!--#include file="../Inc/Function.asp"-->
<%
Mingyan=request("keyword")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="IP地址查询,ip数据库,手机号码归属地,邮政编码,长途电话区号,身份证号码验证,世界时间,万年历,">
<meta name="keywords" content="ip,查ip,ip查询,ip,IP地址查询,ip数据库,手机号码归属地,邮政编码,长途电话区号,身份证号码验证,世界时间,万年历">
<title>古今名言名句辞典搜索、ip,查ip、IP查询 查IP地址 ip数据库 手机号码归属地、邮政编码 身份证号码验证、便民查询网</title>
<link href="/Skins/Style_1.css" rel="stylesheet" type="text/css">
</head>

<body>
<!--#include virtual="/Inc/Head.asp" -->
<table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="50"><table width="770"  border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#F0F0F0">
      <tr>
        <td>
		<table width="100%" border="1"  align="center" cellpadding="0" cellspacing="0" bordercolor="#cacaca" bgcolor="#FFFFFF" style="border-collapse:collapse">
            <tr>
              <td colspan="2" height="25" align="center" style="font-size:14.8px"><font color="green"><strong>古今名言名句辞典查询</strong></font></td>
            </tr>
            <tr>
              <td height="25" colspan="2" align="center"><span class="Font_1">·</span><span class="font14">古今名言名句辞典</span><span class="Font_1">目前收录了总共</span><span class="Red">12841</span><span class="Font_1">个名言名句辞典。（</span><span class="Red">支持模糊查询</span><span class="Font_1">）</span></td>
            </tr>
            <form action="./?act=Mingyan" method="post" name="form1" id="form1">
              <tr>
                <td width="26%" height="25" align="center"><span class="Font_1">·</span>请输入名言名句</td>
                <td width="74%">&nbsp;
                    <input name="keyword" type="text" id="keyword" style="border:1px solid #666666; color:#000000; height:20px; " value="<%=Mingyan%>" size="22" maxlength="250" onfocus="this.value=''" />
                    <input name="Submit_Mingyan" type="submit" class="bdtj" id="Submit_Mingyan" value="名言查询" /></td>
              </tr>
            </form>
        </table></td>
      </tr>
    </table>
    <!--#include virtual="/Ads/google4.htm" --></td>
  </tr>
  <tr>
    <td>
<%if request("act")="Mingyan" then%> 
<%
if request("keyword")&""="" then
Response.Write("<script language=""JavaScript"">alert(""错误：请输入名言名句！！"");history.go(-1);</script>")
response.end
else 
end if


dim objRs,strSql
Set objRs=Server.CreateObject("ADODB.RecordSet")
strSql="select * from Free_Mingyan where Title Like '%"& Mingyan &"%' or Content Like '%"& Mingyan &"%' "
objrs.Open strSql,strConn,1,3

if objRs.eof then
	response.write "<SCRIPT language=JavaScript>alert('对不起，没有找到您要找的名言名句！');"
	response.write ";history.go(-1);this.location.href='vbscript:history.back()';</SCRIPT>"
   	response.end
else
%>
<div align="center">
  <center>
    <table border="1" width="770" bordercolorlight="#3399FF" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bgcolor="#ECF5FF">
      <tr>
        <td width="100%" height="25"><p align="center">您输入的关键字是：<font color="red"><%=Mingyan%></font>&nbsp;  
          以下是搜索结果：</p></td>
      </tr>
    </table>
  </center>
</div>
<div align="center">
  <center>
    <table border="1" width="770" bordercolorlight="green" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF">
      <tr>
        <td width="42" height="25" align="center" bgcolor="#F0F0F0" class="Bold">序号</td>
        <td width="192" height="25" align="center" bgcolor="#F0F0F0" class="Bold">&nbsp;名人/地区</td>
        <td width="528" height="25" align="left" bgcolor="#F0F0F0" class="Bold">&nbsp;名言/名句词典</td>
        </tr>
<%                        
'分页设置
const maxperpage=20               
dim currentpage               
objrs.pagesize=maxperpage               
currentpage=request.querystring("pageid")               
if currentpage="" then               
currentpage=1               
elseif currentpage<1 then               
currentpage=1               
else               
currentpage=clng(currentpage)               
	if currentpage > objrs.pagecount then               
	currentpage=objrs.pagecount               
	end if               
end if               
               
if not isnumeric(currentpage) then               
currentpage=1               
end if               
dim totalput,n               
totalput=objrs.recordcount               
if totalput mod maxperpage=0 then               
n=totalput\maxperpage               
else               
n=totalput\maxperpage+1               
end if               
if n=0 then               
n=1               
end if               
objrs.move(currentpage-1)*maxperpage               
i=0      
w=1          
do while i< maxperpage and not objrs.eof   
red_Title = replace(objrs("Title"),Mingyan,"<font color=#ff0000>"&Mingyan&"</font>")          
red_Content = replace(left(objrs("Content"),36),Mingyan,"<font color=#ff0000>"&Mingyan&"</font>")          

%>
      <tr class=tdc1>
        <td height="25" bgcolor="#ECF5FF" class="Blue"><p align="center"><font color="#800000"><%=w%></font></p></td>
        <td width="192" align="center" bgcolor="#ECF5FF">&nbsp;
		  <font class="Blue"><%=red_Title%></font></td>
        <td align="left" bgcolor="#ECF5FF" class="Blue">&nbsp;<a href="Show.asp?id=<%= objrs("id")%>" target="_blank">
		<font color="#008080" class="Butn"><%=red_Content%></font></a>...</td>
        </tr>
    <%                                                                                       
    '搜索结果循环
	i=i+1   
    w=w+1                                                                   
    objrs.movenext                                                                          
    loop                                                                                               
    end if     
	objrs.close                                                
	set objRs=Nothing
%>
      <tr>
        <td height="25" bgcolor="#F0F0F0" colspan="3"><p align="center">页数：<%=currentpage%>/
                <% =n%>
                <%k=currentpage                                                                                          
   	if k<>1 then%>
                <a href="./?act=Mingyan&pageid=1&keyword=<%=Mingyan%>">首页</a> <a href="./?act=Mingyan&pageid=<%=k-1%>&keyword=<%=Mingyan%>">上一页</a>
                <%else%>
          首页&nbsp;上一页
          <%end if%>
          <%if k<>n then%>
          <a href="./?act=Mingyan&pageid=<%=k+1%>&keyword=<%=Mingyan%>">下一页</a> <a href="./?act=Mingyan&pageid=<%=n%>&keyword=<%=Mingyan%>">尾页</a>
          <%else%>
          下一页&nbsp;尾页
          <%end if%>
          共找到<%=totalput%>条成语</p></td>
      </tr>
      <tr>
        <td colspan="3"><p align="center" style="margin-top: 2; margin-bottom: 2">
        </td>
      </tr>
    </table>
  </center>
</div>
<%
end if
%>
</td>
  </tr>
  <tr>
    <td><br>
    <!--#include virtual="/Inc/Foot.asp" -->
</td></tr>
  <tr> </tr>
</table>
</body>
</html>
