swfupload之前好的,现在异常500

swfupload之前好的,现在错误500
从换了系统后不能使用了，以前是win2003 因为一些特殊原因，系统换成win2008 r2了，上传文件成功就就提示500错误，文件写不进去，网站的目录给了读写的权限，可以确定不是权限问题，请问哪里还要设置下权限呢？求指教！
------解决方案--------------------
Function MakeFileName()
Dim fname,i
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,"/","") fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
for i = 1 to 8
randomize()
fname = fname & Int(9 * Rnd + 0)
next
MakeFileName = fname
End Function 

红字行为新增。