修改成功了，只是下一页功能没有，不过在新窗口打开确实实现了，我找到插代码的地方了！就是要前一个的Function语句结束的地方就可以了，我插入的地方告诉大家一下：找到
'=======================================
'补足下载图片的显示地址，没有时不显示
if instr(1,TempletContent,"{DownLoad_Pic}")>0 then
if Not IsNull(DownLoadRecordObj("Pic")) then
TempletContent = Replace(TempletContent,"{DownLoad_Pic}",GetConfig(0) & DownLoadRecordObj("Pic"))
else
dim PicEnd,PicBegin
PicEnd=instr(1,TempletContent,"{DownLoad_Pic}")+14
PicBegin=InstrRev(TempletContent,"<img",PicEnd)
TempletContent = Replace(TempletContent,mid(TempletContent,PicBegin,PicEnd-PicBegin+2),"")
end if
end if
'=======================================
else
TempletContent = ""
end if
GetDownLoadContent = TempletContent
End Function
以上结束时大约是313行，然后插入楼主说的那两个函数，OK！
