[Quote=引用 5 楼 wapaa 的回复:]
软件相关: <br />
<%
'软件相关
dim rs3,sql3
sql3 ="select * from desktop where DesktopName like '%bq%' and DesktopId <>
2"
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.OPEN sql3,Conn,0,1
if rs3.eof then
%>
还没有软件 <br /> <%end if %>
<%
i=0
do while not rs3.eof and i <=10 %>
· <a href="wapDISPLAY.asp?id= <%=rs3("Deskt…
[/Quote]
给你代码精简一下
[Quote=引用 25 楼 自己 的回复:]
dim rs3
set rs=conn.execute("select top 10 DesktopName,DesktioId from desktop where DesktopName like '%bq%' and DesktopId <>2" )
if rs3.eof and rs3.bof then
%>
还没有软件 <br />
<%
else
do while not rs3.eof%>
· <a href="wapDISPLAY.asp?id= <%=rs3("DesktopId")%>"> <%=rs3("DesktopName")%> </a> <br />
<% rs3.movenext
loop
end if%>
软件相关: <br />
<%
'软件相关
dim rs3,sql3
sql3 ="select * from desktop where DesktopName like '%bq%' and DesktopId <>
2"
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.OPEN sql3,Conn,0,1
if rs3.eof then
%>
还没有软件 <br /> <%end if %>
<%
i=0
do while not rs3.eof and i <=10 %>
· <a href="wapDISPLAY.asp?id= <%=rs3("DesktopId")%>"> <%=rs3("DesktopName")%