level 1
汪汪汪汪汪汪傑
楼主
asp不会。求人帮助
先来代码
文件
function btn_ck_bh_Click()
{
var cx = document.form1.cxsj.value;
form1.action ="search.asp?cx="+cx;
}
#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all">
输入搜索内容:
#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all">
<%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
set rs=server.createobject("adodb.recordset")
conn.open "DBQ=" & server.mappath("./news.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
' 获取产品的名字记录集(从 news表中)
if cx <> "" then
sql = "select * from news where title like '%"&cx& "%' order by id desc"
else
sql ="select * from news order by id desc"
end if
rs.open sql,conn,3,3
'如果没有数据记录
if rs.bof then
errmsg=errmsg+""+""+keyword+"没有记录,请返回!!"
response.write errmsg
response.end
end if
' 设置记录集在每页的总行数,也就是 PageSize属性
RS.PageSize=40
'把rs.pageCount转换成整数和page才能作比较
pageCount = cint(rs.pageCount)
' 设置当前的页号( AbsolutePage属性)
if page = 0 then
page =1
end if
RS.AbsolutePage = page
x=1
' 显示当前页中的所有记录( PageSize中设置的行数)
WHILE NOT RS.EOF AND NumRows
<%RS.MoveNext
NumRows=NumRows+1
WEND%>
ID
标 题
<%=rs("id")%>
<%=rs("title")%>
共<%=PageCount%>页 第<%=page%>页★
<%if page=1 then%>首页<%end if%>
<%if page>1 then%>
首页
<%end if%>★
<%if page>1 then%>
<%end if%>上一页
<%
dim pagewhere
dim p
p = 1
'把pagewhere转换成整数
'pagewhere = cint(request("pagewhere"))
pagewhere = pageCount
if pagewhere>0 then
for p=1 to pagewhere
if p <> page then%>
<%=p%>
<%end if
if p =page then%>
<%=p%>
<% end if
next
end if%>
<%if page < PageCount then%>
<%end if %>下一页
★
<%if page=PageCount then%>尾页
<%end if%>
<%if page
尾页
<%end if%>
搜索内容:<%=cx%>
<%
rs.close
Set rs=nothing
conn.close
set conn=nothing
%>
access表ID 和title
2014年04月02日 11点04分
1
先来代码
文件
function btn_ck_bh_Click()
{
var cx = document.form1.cxsj.value;
form1.action ="search.asp?cx="+cx;
}
#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all">
输入搜索内容:
#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all">
<%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
set rs=server.createobject("adodb.recordset")
conn.open "DBQ=" & server.mappath("./news.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
' 获取产品的名字记录集(从 news表中)
if cx <> "" then
sql = "select * from news where title like '%"&cx& "%' order by id desc"
else
sql ="select * from news order by id desc"
end if
rs.open sql,conn,3,3
'如果没有数据记录
if rs.bof then
errmsg=errmsg+""+""+keyword+"没有记录,请返回!!"
response.write errmsg
response.end
end if
' 设置记录集在每页的总行数,也就是 PageSize属性
RS.PageSize=40
'把rs.pageCount转换成整数和page才能作比较
pageCount = cint(rs.pageCount)
' 设置当前的页号( AbsolutePage属性)
if page = 0 then
page =1
end if
RS.AbsolutePage = page
x=1
' 显示当前页中的所有记录( PageSize中设置的行数)
WHILE NOT RS.EOF AND NumRows
<%RS.MoveNext
NumRows=NumRows+1
WEND%>
ID
标 题
<%=rs("id")%>
<%=rs("title")%>
共<%=PageCount%>页 第<%=page%>页★
<%if page=1 then%>首页<%end if%>
<%if page>1 then%>
首页
<%end if%>★
<%if page>1 then%>
<%end if%>上一页
<%
dim pagewhere
dim p
p = 1
'把pagewhere转换成整数
'pagewhere = cint(request("pagewhere"))
pagewhere = pageCount
if pagewhere>0 then
for p=1 to pagewhere
if p <> page then%>
<%=p%>
<%end if
if p =page then%>
<%=p%>
<% end if
next
end if%>
<%if page < PageCount then%>
<%end if %>下一页
★
<%if page=PageCount then%>尾页
<%end if%>
<%if page
尾页
<%end if%>
搜索内容:<%=cx%>
<%
rs.close
Set rs=nothing
conn.close
set conn=nothing
%>
access表ID 和title