28,390
社区成员
发帖
与我相关
我的任务
分享
str3="/2017"
body=Replace(body,str3,"/2017<hr style=""border:1px dashed #ccc;border-bottom:0;border-right:0;border-left:0;width:100%;"" />")
body=LoseScriptTag(body)
str4="HA<a onfocus"
body=Replace(body,str4,"<a onfocus")
str5="HA<a onfocus"
body=Replace(body,str5,"<a onfocus")
str6="??"
body=Replace(body,str6,"")
str6=" "
body=Replace(body,str6,"")
str7="HideListViewRows(""{4F5E27B5-B3CB-4AD7-8CCA-A8D1DAA6AF8F}-{7C376DEB-A4CA-4BE3-ACF3-DD0F53B8DDB0}"");1 - 30"
body=Replace(body,str7,"")
if body<>"" then
'if right(body,1)="," then
' body=mid(body,1,len(body)-1)
'end if
LcString=body
LcString=Split(LcString,"<hr style=""border:1px dashed #ccc;border-bottom:0;border-right:0;border-left:0;width:100%;"" />")
max=ubound(LcString)
LcString1=""
for i=0 to 9
LcString1=LcString1&""&LcString(i)&""
if i<9 then
LcString1=LcString1&"<hr style=""border:1px dashed #ccc;border-bottom:0;border-right:0;border-left:0;width:100%;"" />"
end if
Next
'response.write LcString1
bodynew=lcString1
Else
bodynew=body
End If
response.write "<div class=""notice"">"&bodynew&"</div>"
%>