"
if PlRs.recordcount<>0 then
for i=1 to PlRs.recordcount
Str_FriendComment = PlRs("NetFriendComment")
Set GRs = CreateRs(Cn,"select * from newsinfo_gl")
Str_BadWord = split(GRs("BadWord"),"|")
Str_rBadWord = Grs("rBadWord")
for y = 0 to ubound(Str_BadWord)
Str_FriendComment = trim(CleanHTML(Str_FriendComment))
Str_FriendComment = replace(Str_FriendComment,Str_BadWord(y),Str_rBadWord)
Str_FriendComment = Replace(Str_FriendComment,"""","")
Str_FriendComment = Replace(Str_FriendComment,vbcrlf,"")
Str_FriendComment = Replace(Str_FriendComment,CHR(32),"") '空格
Str_FriendComment = Replace(Str_FriendComment,"
","") 'TAB键的空格
next
DistoryRs(GRs)
pl_content=pl_content&Str_FriendComment
pl_content=pl_content&"
网友: "
pl_content=pl_content&trim(PlRs("NetFriendName"))
pl_content=pl_content&" 发布时间:"
pl_content=pl_content&trim(PlRs("WriteDate"))
'pl_content=pl_content&" IP:"
'pl_content=pl_content&left(PlRs("LoginIp"),7)&"******"
pl_content=pl_content&"
"
PlRs.movenext
next
end if
NumSQL="select count(NetFriendId) AS num from netfriendcomments where AnnounceState=0 and newsid="+cstr(news_id)
Set NumRs=CreateRs(Cn,NumSQL)
strnum=NumRs("num")
DistoryRs(NumRs)
if strnum="" then
strnum=0
end if
pl_content=pl_content&"
"
pl_content=pl_content&"