Har nu letat ganska febrilt i nån halvtimme efter ett svar till denna fråga. Hur inkluderar jag en asp sak på en html sida. Alltså det ska gå att med
<script src=""></script> kunna hämta in ett sak från exempelis en annan server. Kan nån hjälpa mig med en kodsnutt för detta ändamål.
Kan bero på att jag är trött men jag måste ha ett enkelt exempel.
som du ser nu löser den ett matematiskt problem. Alltså e´n java del hämtar in ett matematiskt värde som ta fram i asp. denna kod kan sedan presenteras på vanlig statisk html sida via sånt här.
Tal skrivs ju in som variabler nästan, text omges ju vanligen av "" men här verkar det inte fungera, fattar du vad jag menar?
En variant är ju att du låter ASP scriptet skapa en .js fil som innehåller document.write. Sen inkluderar du den filen istället som vilken js fil som helst.
------------------
MvH
/Bengan www.bengan.com
"Your mouse has moved. Windows will now restart to accept the changes."
Exakt Patrik, jag har dock kollat denna länk tidigare. Jag blir inte riktigt klok på den koden de visar. emningen är att man skall kunna sätta in en poll på en hemsida via det här med java. Alltså html sidan imporerar en hel poll. Borde ju inte vara så svårt, eller?
Det fungerar prima nu, fick hjälp av kunskapensrot (emission). Felet var riktigt barnsligt enkelt, hade kört på "" istället för ''. Sorgligt att jag inte kom på det själv :)
Har nu stött på problem, den vill inte skriva ut på sidan som importerar, själva sidan isig verkar inte ge några error. Alltså går jag direkt på sidan poll så skriver den ut det jag vill ha med document.write fast på fel sätt :)
'poll.asp
<%
response.buffer = true
Function fixprint(txt)
txt = Replace(txt, vbCrLf, "<br>")
fixprint = txt
End Function
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\cgi-bin/databas.mdb")
If request.querystring("type")= "poll" and request.querystring("action")= "show" then
SQL = "SELECT * FROM poll where id = " & request("head")
Set rs = Connection.Execute(sql)
ida = rs("id")
fraga = fixprint(rs("fraga"))
svar1 = rs("svar1")
svar2 = rs("svar2")
svar3 = rs("svar3")
svar4 = rs("svar4")
svar5 = rs("svar5")
SQL = "SELECT * FROM pollsettings where tillhor = " & request("head")
Set rs2 = Connection.Execute(sql)
if rs.eof or rs.bof then
Response.Write "document.write('<font style= font-size=11px face=verdana>');"
Response.Write "document.write('Du har försökt nå en post som inte finns, kolla att adressen stämmer.');"
else
Response.Write "document.write('<form action=poll.asp?type=poll&action=vote&head='"& ida &"' method=post>');"
Response.Write "document.write(' '" & fraga & "'<br>');"
if rs("svar1") = "" then
else
Response.Write "document.write('<input type=radio name=val value=1>'" & svar1 & "'<br>');"
end if
if rs("svar2") = "" then
else
Response.Write "document.write('<input type=radio name=val value=2>'" & svar2 & "'<br>');"
end if
if rs("svar3") = "" then
else
Response.Write "document.write('<input type=radio name=val value=3>'" & svar3 & "'<br>');"
end if
if rs("svar4") = "" then
else
Response.Write "document.write('<input type=radio name=val value=4>'" & svar4 & "'<br>');"
end if
if rs("svar5") = "" then
else
Response.Write "document.write('<input type=radio name=val value=5>'" & svar5 & "'<br>');"
end if
Response.Write "document.write('<input type=submit></form>');"
rs.close
set rs = nothing
rs2.close
set rs2 = nothing
end if
else
Response.Write "document.write('Denna adress k'nner vi inte till, nåt fel måste hauppnåt, kontrollera adressfältet.');"
end if
If request.querystring("type")= "poll" and request.querystring("action")= "vote" then
if request.form("val") = "1" then
SQL = "UPDATE poll SET val1 = val1 + 1 where id = " & request("head")
Connection.Execute(sql)
else
end if
if request.form("val") = "2" then
SQL = "UPDATE poll SET val2 = val2 + 1 where id = " & request("head")
Connection.Execute(sql)
else
end if
if request.form("val") = "3" then
SQL = "UPDATE poll SET val3 = val3 + 1 where id = " & request("head")
Connection.Execute(sql)
else
end if
if request.form("val") = "4" then
SQL = "UPDATE poll SET val4 = val4 + 1 where id = " & request("head")
Connection.Execute(sql)
else
end if
if request.form("val") = "5" then
SQL = "UPDATE poll SET val5 = val5 + 1 where id = " & request("head")
Connection.Execute(sql)
else
end if
SQL = "UPDATE poll SET traffar = traffar + 1 where id = " & request("head")
Connection.Execute(sql)
head2 = request("head")
head3 = "poll.asp?type=poll&action=show&head=" + head2
response.redirect (head3)
end if
connection.close
set connection = nothing
%>
'Den skrivs ut på en annan sida (index.asp) med:
<script language="javascript" src="http://127.0.0.1/gratis/poll.asp?type=poll&action=show&head=-1934254780"></script>
Blev ingen skillnad, enda skillnaden när content-type lades till var att man inte kunde gå in på dem via själva src i script. Koden verkar fungera helt annat fast den villinte skriva ut på den hemsidan jag vill, kan request spöka eller så?
Andreas
r
När man skriver ut med text/plain skrivs endast koden ut på en lång rad, alltså allt utom asp. Kör man dock den Patrik skrev så skriver den ut koden, alltså den visar checkboxes och sånt.
Detta är alltså på själva aspsidan.
/r
Nu hängde jag inte riktigt med här?
Är iofs sent så det kan vara det :) meningen är att man skall kunna ändra på en sida och automatiskt få uppdatering på den statiska. Eller fattade jag dig fel?
