<%
'//¶ÁÐ´È¨ÏÞÅÐ¶Ï
function check_write(t0)
		check_write=true
		t0=server.MapPath(t0)
		on error resume next
		dim fso,objfolder,objsubfolders
		set fso=server.createobject("scripting.filesystemobject")
		set objfolder=fso.getfolder(t0) 
		set objsubfolders=objfolder.subfolders 
		dim subfcount:subfcount=objsubfolders.count 
		if err.number<>0 then 
			subfcount=-1
			err.clear()
		end if
		if subfcount=-1 then 
			check_write=false
			exit function
		else
			fso.createtextfile(t0&"\sdcms.asp") 
			if err then
				err.clear()
				check_write=false
				exit function
			else
				dim stm
				set stm=server.createobject("adodb.stream")
				with stm
					.type=2
					.mode=3
					.charset="utf-8"
					.open
					.writetext "²âÊÔ"
					.savetofile t0&"\test.asp",2
					.close
				end with
				if err then
					err.clear()
					check_write=false
					exit function
				end if
				set stm=nothing
				fso.deletefile(t0&"\sdcms.asp") 
				if err.number<>0 then 
					err.clear()
					check_write=false
					exit function
				end if
				fso.deletefile(t0&"\test.asp") 
				if err.number<>0 then 
					err.clear()
					check_write=false
					exit function
				end if
			end if
		end if
		set objfolder=nothing
		set objsubfolders=nothing
		set fso=nothing
End function
%>