asp读取数据库代码

<!--#include file="conn.asp"-->

<%

dim ip

ip=Request.ServerVariables("REMOTE_ADDR")

set rs=server.CreateObject("adodb.recordset")

rs.open"select * from ad where ip='"&ip&"'",conn,1,3

if not rs.eof then

rs("c")=rs("c")+1

rs.update

else

rs.addnew

rs("ip")=ip

rs("c")=1

rs.update

end if

%>

'给分吧

<!--日志列表.asp-->

<%

Set rs= Server.CreateObject("ADODB.Recordset")

rs.open"select * from blog_content",conn,1,1

if rs.eof and rs.bof then

response.write （"没有数据"）

else

response.write ("<table>")

for i=1 to 50 '打开数据从1到50循环'

response.write ("<tr><td><a href=日志显示页面.asp?id=")&rs("log_id")&(">")&rs("日志字段名")&("</a></td><tr>") '这句话显示日志的题目链接'

rs.movenext

if rs.eof then exit for

next

response.write ("</table>")

end if

rs.close:set rs=nothing

%>

<!--日志显示页面.asp-->

<%

id=request("id") '这儿的ID是获取上页面的ID号'

if not isnumeric id then id = "" '这儿是判断ID是否数字，如果不是则ID为空'

pwd=request("pwd") '这儿是获取密码'

Set rs= Server.CreateObject("ADODB.Recordset")

rs.open"select * from blog_content where log_id="&id&"",conn,1,1 '这儿是打开log_id与ID相等的数据'

if rs.eof then

response.write （"没有找到相关文章"）

else

if pwd = "" or pwd=rs("log_pwd") then

response.write rs("日志字段")

rs.close:set rs=nothing

else

%>

<form action="日志显示页面.asp?id=<%rs("log_id")%>" method="post" name="pwd">

<input name="pwd" type="text">

<input type="submit" name="Submit" value="提交">

</form>

<%

end if

end if

%>

没测试，不知道对不对，如果还有问题请加QQ148087061

---