function subword()
{  
<% Response.ContentType = "application/msword"
response.AddHeader "content-disposition", "inline; filename=个人资料.doc "
%>

}

上面代码存出来的文件都是同一个文件名，存时加上用户名成为“XXXX的个人资料”其中XXXX取当前用户名，该怎么改代码

没看懂你的程序结构。
subword函数是个空函数，而且是在客户端调用的。
无论是否执行subword，两个response操作都会先执行。

这函数只是另一个ASP文件中打印按钮调用到此ASP中的一个函数，用户并不直接操作它

还是那句话，代码结构有问题。

请不要把操作response对象的2行代码放在这么敏感的地方，可以放在代码头上。
注意操作response对象是服务器端的事情，那个subword函数是客户端的东西。
不会同时执行。执行subword（空函数）不会导致操作response对象。

明白了，谢谢

根据上面朋友的提示，不用放在脚本内，改一下代码，现在可以正常调用了，这样各次存出来的文件名更具特征，易于便认。
可能代码很不合规范，但能正常运行，还望高手们指教改正不妥之处。

还有就是存出来的WORD文档中没有图片，能有办法把图片也存下来吗？

要是技术要求太高就算了，新手理解能力有限

你怎么存Word文档的？用Word.Application对象吗？