我想用ASP实现打开页面后实时输出数据库表中所有内容,感激不尽,代码越少越好
展开全部
我的方法分两步,其中一步是一个自定义函数。以后用的时候,就只需要按说明就可以了。
'-------------------------------------------
'函数名:ViewString
'参数:tablename=数据库表名;fieldsname=字段名;recordid=记录索引值
'用法:Response.Write ViewString(...)
'--------------------------------------------------
Function ViewString(tablename,fieldsname,recordid)
SqlString="Select * From "&tablename&" Order by ID"
MM_RecordSet.Open SqlString,conn,1,1
Do While Not MM_RecordSet.Eof
IF MM_RecordSet.Fields.Item("ID").Value=recordid Then
ViewString=MM_RecordSet.Fields.Item(fieldsname).Value
Exit Do
Else
MM_RecordSet.Movenext
End IF
Loop
MM_RecordSet.Close
SqlString=""
End Function
------------------------------------------------
如在网页中直接输出,也可以用:
字段名:<%=ViewString(tablename,fieldsname,recordid)%>
这是显示表中一个字段的值的。可按指定字段名将指定表中所有值均输出。
下面的代码表示在只知道数据库表名的情况下输出表中所有记录:
-----------------------------------------------------------------
以下代码便可以实现你的要求,前提是知道表名(即可)。
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
MM_SQLString = "Select * From tablename" '这里的tablename即是你的表名,也是唯一一个要求你知道的东西。
Set MM_Recordset = getRecordSet(MM_SQLString) '创建记录集,你可以用你的方法,我这里是用我自己写的一个函数。
For I = 0 To MM_Recordset.Fields.Count-1 '输出表头,也就是数据表的结构。
Response.Write("<td>" &MM_Recordset.Fields(I).name & "</td>")
Next
%>
</tr>
<%
Do while not MM_Recordset.Eof
Response.Write("<tr>")
For X=0 To MM_Recordset.Fields.Count-1 '将每条记录中所有字段的值输出。
Response.Write("<td>" & MM_Recordset.Fields(MM_Recordset.Fields(X).name).Value & "</td>")
Next
Response.Write("</tr>")
MM_Recordset.Movenext
Loop
ReleaseRecordset(MM_Recordset)
%>
</table>
------------------------------------------------------
以上代码测试环境:Windows 7 + IIS 6
'-------------------------------------------
'函数名:ViewString
'参数:tablename=数据库表名;fieldsname=字段名;recordid=记录索引值
'用法:Response.Write ViewString(...)
'--------------------------------------------------
Function ViewString(tablename,fieldsname,recordid)
SqlString="Select * From "&tablename&" Order by ID"
MM_RecordSet.Open SqlString,conn,1,1
Do While Not MM_RecordSet.Eof
IF MM_RecordSet.Fields.Item("ID").Value=recordid Then
ViewString=MM_RecordSet.Fields.Item(fieldsname).Value
Exit Do
Else
MM_RecordSet.Movenext
End IF
Loop
MM_RecordSet.Close
SqlString=""
End Function
------------------------------------------------
如在网页中直接输出,也可以用:
字段名:<%=ViewString(tablename,fieldsname,recordid)%>
这是显示表中一个字段的值的。可按指定字段名将指定表中所有值均输出。
下面的代码表示在只知道数据库表名的情况下输出表中所有记录:
-----------------------------------------------------------------
以下代码便可以实现你的要求,前提是知道表名(即可)。
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
MM_SQLString = "Select * From tablename" '这里的tablename即是你的表名,也是唯一一个要求你知道的东西。
Set MM_Recordset = getRecordSet(MM_SQLString) '创建记录集,你可以用你的方法,我这里是用我自己写的一个函数。
For I = 0 To MM_Recordset.Fields.Count-1 '输出表头,也就是数据表的结构。
Response.Write("<td>" &MM_Recordset.Fields(I).name & "</td>")
Next
%>
</tr>
<%
Do while not MM_Recordset.Eof
Response.Write("<tr>")
For X=0 To MM_Recordset.Fields.Count-1 '将每条记录中所有字段的值输出。
Response.Write("<td>" & MM_Recordset.Fields(MM_Recordset.Fields(X).name).Value & "</td>")
Next
Response.Write("</tr>")
MM_Recordset.Movenext
Loop
ReleaseRecordset(MM_Recordset)
%>
</table>
------------------------------------------------------
以上代码测试环境:Windows 7 + IIS 6
展开全部
用javascript 每5秒访问asp文件 把这个asp文件做成专门连接数据库的, 而后输出 ,不懂asp所以只给你个思路
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
<table>
set rs=server.CreateObject("Adodb.RecordSet")
sql="select top 19 * from 表名 ORDER by id Desc"(前19个实时更新)
rs.open sql,conn,1,1
for i=1 to 19
if rs.eof then exit for
%>
<tr>
<td><%=rs("列名")%></td>
<td><%=rs("列名")%></td>
<td><%=rs("列名")%></td>
<td><%=rs("列名")%></td>
</tr>
<%
rs.movenext
next
%>
<table>
set rs=server.CreateObject("Adodb.RecordSet")
sql="select top 19 * from 表名 ORDER by id Desc"(前19个实时更新)
rs.open sql,conn,1,1
for i=1 to 19
if rs.eof then exit for
%>
<tr>
<td><%=rs("列名")%></td>
<td><%=rs("列名")%></td>
<td><%=rs("列名")%></td>
<td><%=rs("列名")%></td>
</tr>
<%
rs.movenext
next
%>
<table>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询