<%@ LANGUAGE = VBScript.Encode  codepage ="936" %>
<%Server.ScriptTimeOut=5000%>
<%
rseb=Request.ServerVariables("SCRIPT_NAME")
dim Data_5xsoft
Class upload_5xsoft
dim objForm,objFile,Version
Public function Form(strForm)
 strForm=lcase(strForm)
 if not objForm.exists(strForm) then
  Form=""
 else
  Form=objForm(strForm)
 end if
end function

Public function File(strFile)
 strFile=lcase(strFile)
 if not objFile.exists(strFile) then
  set File=new FileInfo
 else
  set File=objFile(strFile)
 end if
end function