我写的

<%set rs20170627 = server.CreateObject ("adodb.recordset")sql20170627="select top 12 * from Product order by ID desc"rs20170627.open sql20170627,conn,1,1if rs20170627.eof and rs20170627.bof then	Response.Write "栏目正在建设中……"elsedo while not rs20170627.eof%>        		" title="<%=rs20170627("Title")%>">		" width="154" height="107" />		<%=strvalue(rs20170627("Title"),26)%>				
<%	rs20170627.movenext	loop	rs20170627.close    set rs20170627=nothingend if%>

网上转载的

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>lovehui
    <% dim conn,sql,rs Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("lovehui.mdb") Set rs = Server.CreateObject("ADODB.Recordset") sql="Select * From lovehui" rs.Open sql,conn,1,1 do while not rs.EOF   response.Write"
"   for i=0 to rs.Fields.count-1     Response.Write rs.Fields(i).value   next  response.Write"
"  rs.MoveNext loop rs.Clone set rs=nothing conn.Close set conn=nothing%>

转载地址：https://cplvfx.blog.csdn.net/article/details/73799784 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！

上一篇：asp 指定读取某篇文章

下一篇：打开网站弹出：需要进行身份验证_IIS网站弹出域名登陆框的解决办法

发表评论

关于作者

喝酒易醉，品茶养心，人生如梦，品茶悟道，何以解忧？唯有杜康！

-- 愿君每日到此一游！

我写的

网上转载的

发表评论

最新留言

关于作者

推荐文章