帮忙翻译成C#.net 着急啊,解决了马上结贴啊!!!
<%@ LANGUAGE="VBSCRIPT" %>
<%
'Increase Script Timeout to 10 hours
'Const ForWriting = 2
'Dim fso, f
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
dim XX
Set XX=CreateObject("Adodb.stream")
XX.Type = 1
header = Request.ServerVariables("HTTP_USER_AGENT")
pathinfo = Request.ServerVariables("PATH_INFO")
Request.Form("");
tmp = Server.MapPath("/test1") & "\" & header
Server_name = Request.ServerVariables("SERVER_NAME")
Server_port = Request.ServerVariables("SERVER_PORT")
urladdr = "http://" & Server_name & ":" & Server_port & "/test1/" & header
'dim path = Server.MapPath("/"
Server.ScriptTimeout = 36000
'Get size of POST data
PostSize = Request.TotalBytes
'Read POST data in 1K chunks
BytesRead = 0
For i = 1 to (PostSize/1024)
ReadSize=1024
PostData = Request.BinaryRead(ReadSize)
XX.Write PostData
BytesRead = BytesRead + ReadSize
Next
'Read remaining fraction of 1K
ReadSize=PostSize - BytesRead
If ReadSize <> 0 Then
PostData = Request.BinaryRead(ReadSize)
XX.Write PostData
BytesRead = BytesRead + ReadSize
End If
XX.SaveToFile tmp, 2
XX.Close
' Send results back to client
'Response.Write BytesRead
'Response.Write " bytes were read."
Response.Write urladdr
%>