请假一个asp调用数据库分类的问题
我想实现ht.asp?ddcl=no意思就是列出数据库ddcl表中全部等于no的数据我应该在分列中加入一段什么代码<%'数据库查询'获得搜索内容cx=request("c...
我想实现 ht.asp?ddcl=no 意思就是列出数据库ddcl表中全部等于no的数据我应该在分列中加入一段什么代码
<%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
' 获取产品的名字记录集(从 news表中)
act=request.QueryString("act")
if act="search" then '删除
id=request.QueryString("id")
sql="delete from web where id="&id
conn.execute(sql)
response.Redirect("search.asp")
end if
set rs=server.createobject("adodb.recordset")
if cx ="" then
sql ="select * from web order by id desc"
else
if isnumeric(cx)=true then
sql="select * from web where id="&cx&" or s_ddcl like '%"&cx&"%' or s_hym like '%"&cx&"%' or s_dh like '%"&cx&"%'"
end if
end if
rs.open sql,conn,1,1
'如果没有数据记录
if rs.bof and rs.eof then
response.write "没有记录,请返回!!"
response.end
end if
' 设置记录集在每页的总行数,也就是 PageSize属性
RS.PageSize=10
'把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.PageSize
%> 展开
<%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
' 获取产品的名字记录集(从 news表中)
act=request.QueryString("act")
if act="search" then '删除
id=request.QueryString("id")
sql="delete from web where id="&id
conn.execute(sql)
response.Redirect("search.asp")
end if
set rs=server.createobject("adodb.recordset")
if cx ="" then
sql ="select * from web order by id desc"
else
if isnumeric(cx)=true then
sql="select * from web where id="&cx&" or s_ddcl like '%"&cx&"%' or s_hym like '%"&cx&"%' or s_dh like '%"&cx&"%'"
end if
end if
rs.open sql,conn,1,1
'如果没有数据记录
if rs.bof and rs.eof then
response.write "没有记录,请返回!!"
response.end
end if
' 设置记录集在每页的总行数,也就是 PageSize属性
RS.PageSize=10
'把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.PageSize
%> 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询