ASP小偷程序 多个内容替换的问题??

PageCode=ReplaceTest("小芹雀偷","美^_^女"嫌陆早,PageCode)

PageCode=ReplaceTest("美女","小^_^偷",PageCode)

PageCode=ReplaceTest("^_^"悉亏,"",PageCode)

Response.Write(PageCode)

用正则表达式来替换，给你一个例子，看你自己需要去修改吧。

Function RegUrl(TheStr)

Set RegEx = New RegExp

RegEx.IgnoreCase =True

RegEx.Pattern = "pic_list_mb\.asp\漏铅?id=(\d*)\&page=(\d*)"

RegUrl=RegEx.replace(TheStr,"pic_list_$1_$2.html")

End Function

你可以直接这样调用

content=RegUrl(content)

连接里面有更详细的介绍。派搜闹尘罩

---