dim a as string=取得模版文件的值 while a.read a=a.replace("cc","dd") a=a.replace("cc","dd") .... 生成html end while ----------------- 這種情況下,字符串a已經改變了,衹有第一條記錄可以正確生成HTML,後面的都可能有問題. (另外你有兩個a變量,a.Read的a是一個datareader?我下面的代碼改為da.read,以區別字符串a) 改為如下: dim a as string=取得模版文件的值 while da.read dim tmpstr as string=a tmpstr=tmpstr.replace("cc","dd") tmpstr=tmpstr.replace("cc","dd") .... 生成html end while