蛙蛙推荐:asp中getrows的用法

最新推荐文章于 2019-01-08 01:17:08 发布

onlytiancai

最新推荐文章于 2019-01-08 01:17:08 发布

阅读量1k

点赞数

分类专栏：编程技巧文章标签： asp sql server sql database border server

本文链接：https://blog.csdn.net/onlytiancai/article/details/35823

版权

编程技巧专栏收录该内容

29 篇文章 0 订阅

订阅专栏

<%
Dim conn,strconn
Set conn = Server.CreateObject("ADODB.Connection")
strconn="Driver={sql server};server=192.168.0.110;database=new;uid=sa;pwd=sa;"
conn.Open strconn
dim rs_wawa,sql_wawa,arr_wawa
set rs_wawa = Server.CreateObject("ADODB.Recordset")
sql_wawa="select top 5 id,title from wen where lei=161 order by id desc"
rs_wawa.open sql_wawa,conn,1,1
arr_wawa=rs_wawa.getrows()
rs_wawa.close()
set rs_wawa=nothing
%>
<table width="100%" border="0" cellspacing="1">
<% If ubound(arr_wawa)<>0 Then %>
<% for i=0 to ubound(arr_wawa,2)-1 %>
<tr>
<td><a href="view.asp?id=<%= arr_wawa(0,i) %>"><%= arr_wawa(1,i) %></a></td>
</tr>
<% next %>
<% Else %>
<tr>
<td>还没有新闻呢</td>
</tr>
<% End If %>
</table>