ASP读取数据库二级菜单的代码怎么写

menu:

id | tit | bid

1 大类一 0

2 大类二 0

3 小类11 1

4 小类12 1

5 小类21 2

6 小类22 2

读取大类和小类

sql="select from menu where bid=0"

rsopen sql,conn,1,1

if rseof and rsbof then

else

responsewrite("<ul>")

while not rseof

responsewrite("<li>"&rs("tit")&"</li>")

call readSclas(rs("id"))

rsmovenext

wend

responsewrite("</ul>")

end if

rsclose

function readSclas(x)

sql="select from menu where bid="&x

rs1open sql,conn,1,1

if rs1eof and rs1bof then

else

responsewrite("<ul>")

while not rs1eof

responsewrite("<li>"&rs1("tit")&"</li>")

rs1movenext

wend

responsewrite("</ul>")

end if

rs1close

end function

<%

sql2="select cj from site where id=1"

set rs2=connexecute(sql2)

c=rs2(0)

ipt=RequestServerVariables("Remote_Addr")

set rs=serverCreateObject("adodbrecordset")

rsopen"select from IP where ip='"&ipt&"'",conn,1,3

if not rseof then

rs("ipcounter")=rs("ipcounter")+1

rs("datesj")=now()

if rs("ipcounter")=c then

rs("kill_ip")=true

end if

rsupdate

else

rsaddnew

rs("ip")=ipt

rs("ipcounter")=1

rsupdate

end if

%>

我写的如下：

<%

set cn=ServerCreateobject("adodbconnection")

cnopen "Driver={sql server};server=127001;database=gdb;uid=sa;pwd=123456;" '请改为你的账号密码

set rs=serverCreateObject("adodbrecordset")

rsopen "select from chara",cn,1,1

if rseof=false then

%>

编号：<%=rs("cha-id")%><br/>

姓名：<%=rs("cha-name")%><br/>

钱：<%=rs("gd")%><br/>

<%end if%>

<script>

setTimeout("windowlocationreload()",5000); //每5秒刷新网页

</script>

<%

      SET  Conn=ServerCreateObject("ADODBConnection")

      Dim i,j,Sql

       Set rt=ServerCreateObject("ADODBRecordset")

      'ConnOpen  "Server=IP地址;Provider=sqloledb;Database=库名称;UID=用户名;PWD=密码;"

      ConnOpen  "Server=19216811;Provider=sqloledb;Database=mysql;UID=sa;PWD=mysql;"

 %>

<table bordercolor="#808000" border="1" cellspacing="0" bgcolor="#EEEEEE">

   <%' 读SqlServer库中的表名:

      Set  rs=ConnOpenSchema(20)

      While not rsEOF

      if rs(3)="TABLE" then

         'responsewrite(rs(2)&"<br>")'表的类型

         'ResponseWrite("所在数据库名:" &  rs(0) )

         'ResponseWrite("所有者:" &  rs(1)  )

         'ResponseWrite("表 名:" &  rs(2) &"<br>" )

       %>

    <tr>

    <td><%=rs(2)%></td>    

      <%    

      '这样，知道表名了，现在再来看看怎么对表的字段进行 *** 作。假设：其中数据库中有表：[admin] 获取该表的所有字段名：

       x="[admin]"

       rtopen"select  from "&rs(2)&" where 1<>1",conn,1,3

       j=rtFieldscount

       For i=0 to (j-1)

       'ResponseWrite("第" & i+1 & "个字段名：" & rtFields(i)Name & "<br><br>")

       responsewrite("<td>"&rt(i)name)

       Next

       rtclose

      end if

      rsMoveNext

      Wend 

     %>

     </table>

首先需要连接数据库，access还是SQL是不同的请度娘。我只说说你后面的问题。在连接成功后存在一个conn

(

看到了楼主的是rsClassBm

,请替换即可

)调用的方法按照楼主的则是<%set

rsnews=connexecute("select

from

ArtBigClass")do

while

not

rsnews

eof

%>"><%=

rsnews("BigClassName")

%><%

rsnewsmovenext

loop%>

首先连接数据库,然后:

<%

Set Rs = ServerCreateObject("ADODBRecordSet") '创建一个对象

SQL = "Select 作者字段名 From [表1]" '查询表1中的作者字段

RsOpen SQL,Conn,1,1 '执行查询

Do While Not RsEof '开始循环显示

ResponseWrite Rs("作者字段名") '显示查询出的字段名下的内容

ResponseWrite "<br>" '显示一次输出一个回车来换行(便于查看)

RsMoveNext '开始输出下一条内容

Loop '结束循环

Set Rs = Nothing '关闭创建的对象

%>

以上就是关于ASP读取数据库二级菜单的代码怎么写全部的内容，包括:ASP读取数据库二级菜单的代码怎么写、求ASP读取数据库多个表的代码、asp网页读取sql数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！