ASP Batch sending URL from a text file
$10-30 USD
货到付款
I have text files of URL's that I need to call from ASP. The current code will read the file but will not execute the URL.
see example file
Current Code From ASP
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
' Create a filesystem object
Dim FSO
set FSO = [url removed, login to view]("[url removed, login to view]")
' Map the logical path to the physical system path
Dim Filepath
Filepath = [url removed, login to view](Filename)
Filepath = mPathName & "\" & mFileName
if [url removed, login to view](Filepath) Then
' Get a handle to the file
Dim file
set file = [url removed, login to view](Filepath)
' Get some info about the file
Dim FileSize
FileSize = [url removed, login to view]
'[url removed, login to view] "File: " & Filename & " (size " & FileSize &_
' " bytes)"
'[url removed, login to view] ""
' Open the file
Dim TextStream
Set TextStream = [url removed, login to view](ForReading, TristateUseDefault)
' Read the file line by line
i = 0
Set objHTTP=[url removed, login to view]("MSXML2.ServerXMLHTTP.3.0")
Do While Not [url removed, login to view]
Dim Line
Line = [url removed, login to view]
' Do something with "Line"
mURLIG = Line
session("sURL") = mURLIG
[url removed, login to view] "POST", mUrlIG
[url removed, login to view] "Content-Type", "application/x-www-form-urlencoded"
[url removed, login to view] mParam
strRetval = [url removed, login to view]
[url removed, login to view] strRetval & ""
Loop
'[url removed, login to view] ""
Set TextStream = nothing
Else
[url removed, login to view] " File " & Filename &_
" does not exist"
End If
Set FSO = nothing
项目ID: #5079284
关于项目
授予:
Hello Sir, Thanks for the invitation. Can do the job. Looking forward for your reply. Regards, Abhi
有4名威客正在参与此工作的竞标,均价$56/小时
Hi, Do you want the Classic ASP code redirect to each url by going line by line ?? Please advise Sach
Hi, Please provide ASP project (visual studio) for review. thanks Narendra --------------------------------------------------