科讯 6.x~8.x getshell 0day

Dim KS:Set KS=New PublicCls

Dim ID:ID = Replace(KS.S("ID")," ","")

Dim ChannelID:ChannelID=KS.G("ChannelID")

If ChannelID="" Then ChannelID=2

If KS.G("LocalFileName")<>"" And KS.G("RemoteFileUrl")<>"" Then

   If KS.SaveBeyondFile(KS.G("LocalFileName"),KS.G("RemoteFileUrl"))= True Then

      Response.write KS.G("LocalFileName")'错误提示

   End If

End If



代码略……





        '==================================================

        '过程名：SaveBeyondFile

        '作  用：保存远程的文件到本地

        '参  数：LocalFileName ------ 本地文件名

        '参  数：RemoteFileUrl ------ 远程文件URL

        '==================================================

        Function SaveBeyondFile(LocalFileName,RemoteFileUrl)

            On Error Resume Next

                SaveBeyondFile=True

                dim Ads,Retrieval,GetRemoteData

                Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")

                With Retrieval

                        .Open "Get", RemoteFileUrl, False, "", ""

                        .Send

                        If .Readystate<>4 then

                                SaveBeyondFile=False

                                Exit Function

                        End If

                        GetRemoteData = .ResponseBody

                End With

                Set Retrieval = Nothing

                Set Ads = Server.CreateObject("Adodb.Stream")

                With Ads

                        .Type = 1

                        .Open

                        .Write GetRemoteData

                        .SaveToFile server.MapPath(LocalFileName),2

                        .Cancel()

                        .Close()

                End With

                If Err.Number<>0 Then

                   Err.Clear

                   SaveBeyondFile=False

                   Exit Function

                End If

                Set Ads=nothing

        End Function

If KS.G("LocalFileName")<>"" And KS.G("RemoteFileUrl")<>"" Then

   If KS.SaveBeyondFile(KS.G("LocalFileName"),KS.G("RemoteFileUrl"))= True Then

      Response.write KS.G("LocalFileName")'错误提示

   End If

End If