导航

一个单词查询程序

Posted on 2004-07-11 18:20  成就荣耀  阅读(787)  评论(0编辑  收藏  举报

 

<html>
<hea>
<title>Words list</title>
<STYLE TYPE="text/css">
 <!-- 
/* $WEFT -- Created by: Alex (hezhengyu@bit.edu.cn) on 2004-6-14 -- */
  @font-face 
{
    font-family
: HMPhone BDC;
    font-style
:  normal;
    font-weight
: normal;
    src
: url(HMPHONE0.eot);
  
}

-->
    body 
{
        font-family
: "Tahoma";
    
}

</STYLE>
</head>
<body>
<form action="find.asp" id=form1 name=form1>
<input name="name" maxlength="15" size=15>
<input type="submit" value="Find it" name="find">
</form>

<%
sql
=""
name=request("name")
sql
="select * from words where word like '%"&name&"%'"
set rs=server.createobject("adodb.recordset")
conn 
= "DBQ="&server.mappath("word.mdb")&";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
rs.open sql,conn,1,1
maxperpage
=30
rs.pagesize
=maxperpage
if trim(request("page"))<>"" and isnumeric(request("page")) then
    currentpage
=clng(request("page"))
    
if currentpage<1 then
        currentpage
=1
    
elseif currentpage>rs.pagecount then
        currentpage
=rs.pagecount
    
end if
else
    currentpage
=1
end if
if rs.eof then
    response.write 
"<p align='center'>没有这个单词</p>"
else
    totalput
=rs.recordcount'记录
    if currentpage=1 then
        showpages
        showcontent
    
else
        
if (currentpage-1)*maxperpage<totalput then
            rs.move(currentpage
-1)*maxperpage
            
dim bookmark
            bookmark
=rs.bookmark'移动至开始显示的记录位置
            showpages
            showcontent
        
else
            currentpage
=1
            showcontent
        
end if
    
end if
    rs.close
end if
set rs=nothing
set conn=nothing

sub showcontent
dim i
i
=0
do while not (rs.eof or err)
result
=replace(rs("word"),name,"<font color=black>"&name&"</font>")
response.write rs(
"id")&"&nbsp;&nbsp;&nbsp;<font color=red><b>"&result&"</b></font>"&"&nbsp;&nbsp;&nbsp;[<font face=""HMPhone BDC"">"&rs("phonetic")&"</font>]&nbsp;&nbsp;&nbsp;<font color=blue face=""隶书""><b>"&rs("remark")&"</b></font><br>"
i=i+1
if i>=maxperpage then exit do
    rs.movenext
loop
end sub

sub showpages()
     
dim n,k
    
if(totalput mod maxperpage)=0 then
        n
=totalput/maxperpage
    
else
        n
=int(totalput/maxperpage)+1
    
end if
%>
Total 
<%=rs.recordcount%> words. 
<%k=currentpage
if k=1 then
    response.write 
"First page Previous "
else
    response.write 
"<b><a href=find.asp?name="&name&"&page=1>First page</a></b> "
    response.write "<b><a href=find.asp?name="&name&"&page="&k-1&">Previous</a></b> "
end if
if k=then
    response.write 
" Next Last page<br>"
else
    response.write 
" <b><a href=find.asp?name="&name&"&page="&k+1&">Next</a></b> "
    response.write "<b><a href=find.asp?name="&name&"&page="&n&">Last page</a></b><br>"
end if
end sub
%>
</body>

</html>

演示地址http://www.hzsghj.gov.cn/g7/data/find.asp