oStream.Close
Set oStream = Nothing
SaveFile = True
If Err.number <> 0 Then
SaveFile = False
End If
End Function
Sub readAndSaveFile()
On Error Resume Next
Dim i
Dim sFileContent,sFileName, sRndFileName
Dim oXML
Set oXML = Server.CreateObject("Msxml2.DOMDocument")
oXML.async = false
oXML.load Request
Dim strDataStorePath
strDataStorePath = "c:\"
sFileContent = oXml.documentElement.childNodes.item(0).nodeTypedValue
sFileName = oXml.documentElement.childNodes.item(0).Attributes.getNamedItem("name").Text
'得到文件扩展名
Dim intP, strFileExName
intP = InStrRev(sFileName, ".")
strFileExName = Mid(sFileName, intP)
Randomize
sRndFileName = Year(now) & Month(now) & Day(now) & Hour(now) & Minute(now) & Second(now) & Int(Rnd*100000000000) & strFileExName
If SaveFile(strDataStorePath & sRndFileName, sFileContent) <> True Then
Exit For
End If
Next
Set oXml = Nothing
If Err.number <> 0 Then
strReturnString = "-1"
End If
End Sub
'执行文件
readAndSaveFile
</SCRIPT>