|
主题:KS_Charge标签问题 [收藏主题] | 转到: |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
FileContent = KSRFObj.ReplaceNewsContent(ChannelID,RS, FileContent, ArticlePageStr)
If ArticleContent<>"True" Then Dim ChargeContent:ChargeContent=KS.CutFixContent(FileContent, "[KS_Charge]", "[/KS_Charge]", 0) FileContent=Replace(FileContent,"[KS_Charge]" & ChargeContent &"[/KS_Charge]",ArticleContent) Else FileContent=Replace(FileContent,"[KS_Charge]","") FileContent=Replace(FileContent,"[/KS_Charge]","") End If if Split(FileContent,"[KS_Charge]")(1)=null then response.write("") else dim A:A=split(Split(FileContent,"[KS_Charge]")(1),"[/KS_Charge]")(0) dim B:B="[KS_Charge]"&A&"[/KS_Charge]" FileContent=Replace(FileContent,B,"") end if Response.write FileContent RS.Close:Set RS=Nothing End Sub
以上代码是前段时间一个高手给我写的,不过只能让2对标签有效,到第3个就不行了,有没有高手在这个基础上修改一下,实现3个 |
|
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
cainiaofei 发表于:2011/9/2 17:38:56 | 只看该作者 查看该作者主题
9楼
|
|
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |