|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。显现index.asp
读进数据库链接!
<!--#includefile="articleconn.asp"-->
<html>
<%
每页最年夜显现数为20
constMaxPerPage=20
dimtotalPut
dimCurrentPage
dimTotalPages
dimi,j
dimtypename
dimkeyword
keyword=trim(request("keyword"))
ifnotisempty(request("page"))then
currentPage=cint(request("page"))
else
currentPage=1
endif
%>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>ASP动感在线</title>
<metaname="GENERATOR"content="MicrosoftFrontPage3.0">
<linkrel="stylesheet"href="../CSS/style.css">
</head>
<bodybgcolor="#FFFFFF">
<tablewidth="90%"cellpadding="0"cellspacing="0"align="center">
<tr>
<tdcolspan="3"height="203">
<tableborder="1"width="100%"bordercolorlight="#000000"bordercolordark="#FFFFFF"cellpadding="0"cellspacing="0"align="center">
<trbgcolor="#ACD6FF">
<tdwidth="100%"height="20">
<palign="center"><fontcolor="#000000"><b>站务公告</b></font>
</td>
</tr>
<tr>
<tdwidth="100%"height="152">
<formmethod="post"action="index.asp">
<br>
<fontcolor="#FF0000"></font>
<tableborder=0cellpadding=0cellspacing=0width="54%"align="center">
<tr>
<tdvalign=centercolspan="3"align="right">
<divalign="center">查询关头字<fontcolor="#FF0000"><%=keyword%></font>
</div>
</td>
</tr>
<tbody>
<tr>
<tdwidth="27%"align="right">请输出搜刮字符:</td>
<tdvalign=centerwidth="54%"align="center">
<inputclass=TextBordermaxlength=25
name=keywordsize=26>
</td>
<tdvalign=buttomwidth="19%"align="left">
<inputalt=站内搜刮border=0
name=submitsrc=http://www.163design.net/a/d/".images/search.gif"type=image>
</td>
</tr>
</tbody>
</table>
</form>
<palign="left"><%
翻开数据库内容安ARTICLEID的倒数分列!
titlelike%"&keyword&"%为对搜刮字的查找,空者暗示全体!
sql="select*fromlearningwheretitlelike%"&keyword&"%orderbyarticleiddesc"
dimsql,rs
Setrs=Server.CreateObject("ADODB.Recordset")
rs.opensql,conn,1,1
判别数据库是不是为空!假如为空显现还没有任何文章
ifrs.eofandrs.bofthen
response.write"<palign=center>还没有任何文章</p>"
else
上面是对文章数,每页显现数的判别!人人可作别的程序的参考!!
totalPut=rs.recordcount
totalPut=rs.recordcount
ifcurrentpage<1then
currentpage=1
endif
if(currentpage-1)*MaxPerPage>totalputthen
if(totalPutmodMaxPerPage)=0then
currentpage=totalPutMaxPerPage
else
currentpage=totalPutMaxPerPage+1
endif
endif
ifcurrentPage=1then
showpagetotalput,MaxPerPage,"index.asp"
showContent
showpagetotalput,MaxPerPage,"index.asp"
else
if(currentPage-1)*MaxPerPage<totalPutthen
rs.move(currentPage-1)*MaxPerPage
dimbookmark
bookmark=rs.bookmark
showpagetotalput,MaxPerPage,"inde</p>使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。 |
|