这个还不容易啊 你在数据库里面应该有信息的id 和 信息的 标题title吧 首先调用数据库, 就是我们说的标题列表 如果是用表格布局的话 列表的代码应该是这样写的 <% set rs = serverCreateObject("ADODBRecordset") sql = "select from 表名 where 条件" rsopen sql,conn,1,1 do while not rseof %> <tr> <td width="10"> </td> <td height="21">·<%=left(rs("title"),10)%> <td> <td width="10"> </td> </tr> <% rsmovenext loop rsclose set rs = nothing %> </table> 这样文章的标题列表就显示出来了 再加个连接到显示文章的内容页 就是在 <%=left(rs("title"),10)%>上加链接<a href = "内容页显示页面id = <%=rs("id")%>"> <%=left(rs("title"),10)%></a> 最后就是内容显示页 要显示内容的话就是先读取传过来的id参数 <% set rs = serverCreateObject("ADODBRecordset") sql = "select from 表名 where id = '"&request("id")&"'" rsopen sql,conn,1,1 %> <tr> <td width="10"> </td> <td height="21"><%=rs("title")%> <td> <td width="10"><%=rs("content")%></td> </tr> <% rsclose set rs = nothing %> </table> 这样就显示出来了 追问: 列表页的代码:<!--#include file="connasp"--> <% exec="select from PS" set rs=servercreateobject("adodbrecordset") rsopen exec,conn,1,1 %> <div><%do while not rseof%> <a href = "showaspid = <%=rs("id")%>"><%=rs("psname")%></a> <% rsmovenext loop %> </div> 这是显示内容页的代码: <!--#include file = "connasp" --> <% set rs=servercreateobject("adodbrecordset") exec="select from ps where id = '"&request("id")&"'" rsopen exec,conn,1,1 %> <table><tr><td><%=rs("pstitle")%></td></tr></table> 总是提示: Microsoft OLE DB Provider for ODBC Drivers (0x80040E21) ODBC 驱动程序不支持所需的属性。 /myweb2/showasp, 第 5 行 麻烦你了 回答: exec="select from PS" set rs=servercreateobject("adodbrecordset") 把两行位置换下看 追问: 已经换过了是一样的不知道是怎么回事 回答: exec="select from ps where id = '"&request("id")&"'" 改成 exec="select from ps where id = "&request("id")&"" 追问: 也不行还是同样的错误方便加QQ吗 我的278455170
求采纳
rsopen"select from tushumingxi",bb
换成 rsopen "select from tushumingxi",bb,1,1
试试
给你一个我现在在用的,应该能学到不少基础。
XP SP3+IIS51+IE8本地测试通过
静态表单页 testhtml
<script language="javascript">
function Str(){
var temp_s;
temp_s = documentgetElementById('Stra')value;
//必须判断一下输入的数据长度,如果不合法就不执行下面的,
//<6的地方你可以定义至少输入几个字符。
//(这里把汉字一个字2字符的判断去掉了,你可以找找资料然后改改。)
if(temp_slength<6){
documentgetElementById("showmsg")innerHTML='<span style="color:red;font-size:12px;">字符长度不够!</span>';
return false;
}
var ttemp_s;
ttemp_s = temp_ssubstring(2,5)
var xml>
你可以用loadxml把这个字符串当成XML来 *** 作,很简单。
我写个例子给你:
<%
'write by ahuinan 2010-9-13
Dim str:str="<config><address>188 OUGAO Road Pudong Area</address><code>200122</code><phone>68760111</phone></config>"
'ResponseWrite(str)
set myxml = ServerCreateObject("MSXMLDOMDocument")
'LoadXML 直接写入 xml 文件字符串。
myxmlLoadXML("<xml version=""10"" encoding=""gb2312"" >" & _
"<root>" & _
str& _
"</root>")
Set myroot = myxmlDocumentElement
ResponseWrite(myrootgetElementsByTagName("address")item(0)text)
ResponseWrite(myrootgetElementsByTagName("code")item(0)text)
set myxml=nothing
set myroot=nothing
%>
呵呵,你这个是flash六图轮换,没必要作数组,在<script></script>中间直接循环就行了,我之前做过一个,希望能对你有所帮助。
需要该flash的话我发给你
<script type="text/javascript">
<%dim ij
ij=0
set rs=serverCreateObject("adodbrecordset")
rsopen "select top 5 id,title,imgprev from Conews where imgprev<>'' and Publick=True order by id desc",conn,1,1
if rseof and rsbof then
responsewrite "<center>目前还没有新闻!</center>"
else
do while not rseof
ij=ij+1
%>
<%
responsewrite "imgUrl"&ij&"="&chr(34)&">
以上就是关于ASP读取数据库内容全部的内容,包括:ASP读取数据库内容、asp提取数据库信息的问题、asp如何无刷新获取数据库数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)