<%dim fso
dim strobjectfso ' FSO组件名
    strobjectfso = "scripting.filesystemobject"

dim strobjectads ' 流
    strobjectads = "adod" & "b.S" & "tream"

dim strobjectxmlhttp
    strobjectxmlhttp = "Microsof" & "t.X" & "MLHTTP"
	
dim strobjectjpeg
    strobjectjpeg = "persits.jpeg"

Class Cls_Setting
	
	Dim vLanguage
	Dim vUpdatepath

	Private Sub Class_Initialize()
		vLanguage = "zh-cn"
		vUpdatepath = False
	End Sub

	Public Function UpDate()

		Dim Rs,GetValue
		Set Rs = DB("Select [templatepath] From ["&Datapre&"_Config]",3)
		if Not Rs.Eof then
			GetValue = Request.Form("otemplatepath")
			
			Rs(0) = GetValue
			Rs.Update
		end if
		Rs.Close : Set Rs = Nothing
		Call Refresh()
		UpDate = True
	End Function

	Public Function Refresh()
		call saveconfig() ' 生成配置文件
		Refresh = True
	End Function
End Class
%>