ASP问题 帮帮忙

来源：百度知道 编辑：UC知道 时间：2024/06/04 19:43:36
帮我把下面代码改成随机读去的

<%
set rs=Server.CreateObject("ADODB.recordset")
rs.open "select top 8 id,title from love_onlinetest order by id desc",conn,1,1
IF (rs.State =adStateClosed) or (rs.BOF=true and rs.EOF =true) or rs.RecordCount=0 THEN
RESPONSE.Write"<BR><BR> 暂时还没有信息... <br>"
ELSE
%>
<table width="162" border="0" align="center" cellpadding="2" cellspacing="0">
<%for i=1 to 8%>
<tr>
<td width="18" align="right"><img src="images/05_16.gif" width="9" height="9" hspace="2" ></td>
<td width="136" valign="bottom" style="padding-top:4px;"><a href=OnlineTest_show.asp?ClassID=<%=rs("id")%> target="_blank" cla

<%
'-------------------------数据库连接-----------------------
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & Server.MapPath("data.mdb")
objConn.Open
'-------------------------数据库连接-----------------------

'-------------------------检索数据-----------------------
strSQL = "SELECT id,DataColumn FROM DataTable"
'Sql语句，检索数据库
Set objRS = Server.CreateObject("ADODB.Recordset")
'创建记录集
objRS.Open strSQL, objConn, 1, 1
'执行检索
Count=objRS.RecordCount
'得到记录总数
Item=4
'显示记录数
'-------------------------检索数据-----------------------

'-------------------------------------------------------------------------------
redim a(Item, 2),t