数据库连接的问题,是高手的就进来看看
我想实现的是查询数据库里有多少条为“1”,,当点击显示的数目后可以连接到另外一个页面,高手来看看这段错在那里,我没有写连接的句子,还请高手帮忙写一下
<%
dim rr,sql,conn,count
'set set conn=server.CreateObject("adodb.connection")
conn.open application("dsn")
rs=select count(*)=from bookdetail where rr="1"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn
if rs.eof then
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Write"没有符合的"
response.write</body></html>"
response.End
end if
rs.pagesize=20
rs.absolutepage=cint(strpage)
select_count=rs.recordcount
select_count=rs.pagecount
response.write"共有<b>"&select_count&" 未解决"//我想在这里做成可以点击的,点击后连接到xmian.asp页面。
%>