Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Test URL From ASP 1
- Thread starter Michael42
- Start date
-
1
- #2
snowboardr
Programmer
Try this:
****** check.asp ****
'part 1: the post form
'*********************
<%
strFrom=request.form("result"
strResult=request.form("url"
%>
<HTML>
<HEAD>
<TITLE>URL check</TITLE>
</HEAD>
<BODY>
<FORM method="post" action="checkurl.asp">
<P><INPUT type="text" name="url"></P>
<P><INPUT type="submit" value="submit" name="submit"></P>
</FORM>
<P><%= strFrom %></P>
<P><%= strResult %></P>
</BODY>
</HTML>
'****** checkurl.asp ****
'part 2: the actual check
'************************
<%
strURL=request.form("url"
if strURL<>"" Then
if left(lcase(strURL),7)<>" Then
strURL=" & strURL
End if
On Error Resume Next
Dim objHTTP
Dim sHTML
Set objHTTP = Server.CreateObject ("Microsoft.XMLHTTP"
objHTTP.open "GET", strURL, False
objHTTP.send
sHTML=objHTTP.statusText
if err or sHTML<>"OK" Then
sTxt="fail"
else
sTxt="ok"
End if
Set objHTTP=nothing
else
sTxt="fail"
End if
strFrom=request.ServerVariables("HTTP_REFERER"
p=instr(1,strFrom,"?"
if p>0 Then
strFrom=left(strFrom,p-1)
End if
response.redirect "checkdone.asp?result=" & sTxt & "&ref=" & strURL & "&return=" & strFrom
%>
'****** checkdone.asp ****
'part 3: post the results back to the re
' ferer
'************************
<%
strRes=request.querystring("result"
strRef=request.querystring("ref"
strRet=request.querystring("return"
%>
<HTML>
<HEAD>
</HEAD>
<SCRIPT>
function postit(){
myform.submit();
}
</SCRIPT>
<BODY onLoad="postit()">
<FORM method="post" action="<%= strRet %>" name="myform">
<INPUT type="hidden" name="result" value="<%= strRes %>">
<INPUT type="hidden" name="url" value="<%= strRef %>">
</FORM>
</BODY>
</HTML>
www.vzio.com
****** check.asp ****
'part 1: the post form
'*********************
<%
strFrom=request.form("result"
strResult=request.form("url"
%>
<HTML>
<HEAD>
<TITLE>URL check</TITLE>
</HEAD>
<BODY>
<FORM method="post" action="checkurl.asp">
<P><INPUT type="text" name="url"></P>
<P><INPUT type="submit" value="submit" name="submit"></P>
</FORM>
<P><%= strFrom %></P>
<P><%= strResult %></P>
</BODY>
</HTML>
'****** checkurl.asp ****
'part 2: the actual check
'************************
<%
strURL=request.form("url"
if strURL<>"" Then
if left(lcase(strURL),7)<>" Then
strURL=" & strURL
End if
On Error Resume Next
Dim objHTTP
Dim sHTML
Set objHTTP = Server.CreateObject ("Microsoft.XMLHTTP"
objHTTP.open "GET", strURL, False
objHTTP.send
sHTML=objHTTP.statusText
if err or sHTML<>"OK" Then
sTxt="fail"
else
sTxt="ok"
End if
Set objHTTP=nothing
else
sTxt="fail"
End if
strFrom=request.ServerVariables("HTTP_REFERER"
p=instr(1,strFrom,"?"
if p>0 Then
strFrom=left(strFrom,p-1)
End if
response.redirect "checkdone.asp?result=" & sTxt & "&ref=" & strURL & "&return=" & strFrom
%>
'****** checkdone.asp ****
'part 3: post the results back to the re
' ferer
'************************
<%
strRes=request.querystring("result"
strRef=request.querystring("ref"
strRet=request.querystring("return"
%>
<HTML>
<HEAD>
</HEAD>
<SCRIPT>
function postit(){
myform.submit();
}
</SCRIPT>
<BODY onLoad="postit()">
<FORM method="post" action="<%= strRet %>" name="myform">
<INPUT type="hidden" name="result" value="<%= strRes %>">
<INPUT type="hidden" name="url" value="<%= strRef %>">
</FORM>
</BODY>
</HTML>
www.vzio.com
- Thread starter
- #3
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question
