<% Server.ScriptTimeOut = 999999 Dim sType, sStyleName Dim sAllowExt, nAllowSize, sUploadDir %> <% Dim up Set up=new LBUpload up.eWebList() If Request.QueryString("action")="ewebsave" Then up.eWebAdd() End if Set up=Nothing call connclose %> <% ' Êä³ö¿Í»§¶Ë½Å±¾ Sub OutScript(str) Response.Write "" End Sub %>