Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
Heippa!
käyttäjätunnus Axuu tässä taannoin kyseli tällaista, enkä malttanut olla puuttumatta aiheeseen...
<HTML>
<HEAD>
<TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=UTF-8">
<script language="vbscript">
Sub getSomeAction
Dim xhttp, url, xurl, str
Dim xref, xcss, xsrc
'huom! putka käyttää EDIT: näemmä iso-8859-1,
'eikä UTF-7 koodausta, kuten virheellisesti luulin...
'joten esimerkistä putoilee ääkköset/siä
url = "https://www.ohjelmointiputka.net/"
xurl = url + "index.php"
Set xhttp = createObject("msxml2.XMLHTTP")
xhttp.open "GET", xurl, false
xhttp.send()
xhttp.getAllResponseHeaders
str = xhttp.responseText
Set xhttp = nothing
xref = "href=" + chr(34)
xcss = "css/"
xsrc = "src=" + chr(34)
' parsitaan linkit
str = Replace(str, xref, xref + url)
' parsitaan tyyli-osoitteet
str = Replace(str, xcss, url + xcss)
' parsitaan sorsa-osoitteet
str = Replace(str, xsrc, xsrc + url)
' parsitaan mahd. tuplat pois linkeistä
str = Replace(str, url + url, url)
' joko
Document.Write(str)
' tai jos halutaan esim. vain <body> - </body> osuus
' niin parsitaan vielä hieman lisää...
'If instr(str, LCase("<body")) > 0 And instr(str, LCase("</body")) > 0 Then
'Dim xs, xe
'xs = Cint(instr(str, LCase("<body")))
'xe = Cint(instr(str, LCase("</body")))
'str = mid(str, xs, xe-xs)
'Huom! <BODY id
'xbody.innerHTML=str
'End if
End Sub</script>
</HEAD>
<BODY id="xbody">
<INPUT type="button" id="nappi" onclick="getSomeAction()" value="nappi">
</BODY>
</HTML>
neau33 kirjoitti:
'huom! putka käyttää UTF-7 koodausta
No ei kyllä varmasti käytä vaan iso-8859-1:tä.
Heippa taas!
Tässä vielä ASP.NET versio samaisesta aiheesta
<%@ Page Language="VB"%> <%@ import Namespace="Microsoft.VisualBasic" %> <%@ import Namespace="System.IO" %> <%@ import Namespace="System.Text" %> <%@ import Namespace="System.Net" %>