<%
w="我是一名学生，每天都要背着书包上学"
srpwd = "学生=教师|每天=常年|书包=教材|上学=上课"
srpwd =replace(srpwd," ","")
srpwd_str=Split(srpwd,"|")
for i = 0 to ubound(srpwd_str)
sword=srpwd_str(i)
sword_str=Split(sword,"=")
word_frist=sword_str(0)
word_last=sword_str(1)

'调试信息
'response.write i& word_frist &"-"& word_last& "<br>"

w=replace(w,word_frist,word_last)
Next
response.write w & "<br>"
%>