Case 1 SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,hits,Inputer As username,photourl ,intro From " & SQL(1,K)
LC=LoopContent
Dim intro :intro =rs(13) LC=Replace(LC,"{$intro }",intro)