tTitle = Lang_sAdmin_Me & "-" & Lang_OnOff
tMainName = Lang_OnOff
Response.Write replace(Style_Header,"$Title",tTitle)
Response.Write replace(Style_Admin_Top,"$Lang_Admin",Lang_sAdmin_Me)
Response.Write replace(Style_MainTop,"$MainName",tMainName)
Response.Write ""
if IsObj(CFG_StrFSO) then
OnOff=Request("OO")
select case OnOff
case "1"
writetxtfile server.MapPath("inc_config_iscan.asp"),""
if readtxtfile(server.MapPath("inc_config_iscan.asp"))="" then
Response.Write Lang_OnOff_OnOk & "" & Lang_OnOff_On
else
Response.Write Lang_OnOff_Err
end if
case "0"
writetxtfile server.MapPath("inc_config_iscan.asp"),""
if readtxtfile(server.MapPath("inc_config_iscan.asp"))="" then
Response.Write Lang_OnOff_OffOk & "" & Lang_OnOff_Off
else
Response.Write Lang_OnOff_Err
end if
case else
if CFG_isCan then
Response.Write Lang_OnOff_On & "[" & Lang_OnOff_TurnOff & "]"
else
Response.Write Lang_OnOff_Off & "[" & Lang_OnOff_TurnOn & "]"
end if
end select
else
if CFG_isCan then
Response.Write Lang_OnOff_On & ""
else
Response.Write Lang_OnOff_Off & ""
end if
Response.Write Lang_OnOff_NoFSO
end if
Response.Write ""
Response.Write Style_MainBottom
Response.Write Style_Bottom
%>
