有这样一段ASP代码：
VB code:
<%
sub gq()
dim i,strTemp
on error resume next
Set grsqy= Server.CreateObject("ADODB.Recordset")
gqysql="select top 3 SupplyId,SupplyType,SupplyTitle,UpdateTime from PE_Supply where UserName = '杞县' order by UpdateTime desc"
grsqy.Open gqysql,mconn,1,3
Response.Write "<ul>"
i=1
Do While Not grsqy.EOF
strLb="<li>"&o_char
strLb=strLb & "<a href='../Supply/ShowSupply.asp?SupplyId="& grsqy("SupplyId") &"' target='_blank'>"& left(grsqy("SupplyTitle"),15) &"</a><span class='time'>"& left(grsqy("UpdateTime"),9) &"</span>" &o_char
strLb=strLb & "</li>"&o_char
Response.Write strLb
if i >=3 then exit do
grsqy.MoveNext
i=i+1
Loop
grsqy.close
Response.Write "</ul>"
end sub
%>
这段程序输出的结果为
<ul>
<li>供求信息标题</li>
<li>供求信息标题</li>
<li>供求信息标题</li>
……
</ul>
现在我想输出结果为：
<ul>
<li>[供应]供求信息标题</li>
&
