Sub TopicList
On Error Resume Next
set RS=server.CreateObject("adodb.recordset")
Rs.Open Sql,Conn
Do While Not Rs.Eof
Topic=ReplaceText(Rs("Topic"),".*>(.*)<.*","$1")
if Rs("isrenwu")=1 then
Response.Write "[¥"&Rs("money")&"]"&LeftStr(""&Topic,10)&"
"
else
Response.Write ""&LeftStr(""&Topic,13)&"
"
end if
Rs.MoveNext
Loop
Rs.Close
set Rs=nothing
End Sub
楼主试试这个看看怎么样?