ask fyrir 20 árum, 10 mánuðum Fjöldi lestra: 468

Að "keyra" ASP síðu

Góðan dag

Er að velta fyrir mér hvort einhver geti hjálpað mér með eftirfarandi vandamál.

Ég er með textaskrá sem inniheldur asp kóða. Og er að vinna hana í FSO. En þetta felur í sér að ég er að vinna með skrána þegar asp kóðinn er ennþá ókeyrður.

Mig langar að vinna með textaskrána þannig að serverinn sé búinn að vinna úr asp-inu og ég fá bara html skrá til að vinna í FSO.

Er semsagt einhver leið fyrir mig að keyra asp síðu, þannig að ég fái outpúttið og geti unnið með það.

Er ég að gera mig skiljanlegan?

Hvað segiru Hagur? ;) ask | bergur.is

intenz fyrir 20 árum, 10 mánuðum

Er ekki til eitthvað “eval” function ? 
heat | intenz
<a href="http://evil.is/heat">http://evil.is/heat</a>

Guðjón Jónsson
<a href=“mailto:gaui@NOSPAMgaui.is”>Tölvupóstur</a

Gaui

Fyrra álit

nomic fyrir 20 árum, 10 mánuðum

opna asp síðuna í IE? og kópera source'inn sem þú færð ?

ég skil annars ekki hva þú ert að reyna bauka.. en ok. ——————————–
NoMiC
*pot*helga beib*pot*</font

Fyrra álit

hagur fyrir 20 árum, 10 mánuðum

Sæll,

Eins og Intenz sagði, þá er til Eval() function í ASP sem er hægt að nota til þess að evaluate-a kóða.

Dæmi:

<%
strCode = “Response.Write(5)”
eval(strCode)
%>

Skilar út “5”.

En ég efast um að þetta geti keyrt heilu síðurnar, reyndar finnst mér þetta frekar óstabílt og leiðinlegt, koma oft upp einhverjar Syntax villur án þess þó að ég hafi séð einhverja ástæðu fyrir þeim.

Annað sem þú gætir gert …. (núna er ég eiginlega að hugsa upphátt :P) … er að simulate-a bara venjulegt HTTP kall, með því að nota XMLHTTP objectinn frá Microsoft.

Hérna er dæmi:

<%

Dim objSvrHTTP
Dim strEvaluatedCode

Set objSvrHTTP = Server.CreateObject(“Msxml2.XMLHTTP.4.0”)

objSvrHTTP.open “GET”, "http://localhost/ble.asp“, false
objSvrHTTP.send

strEvaluatedCode = objSvrHTTP.responseText

Response.Write strEvaluatedCode
%>

Þarna kalla ég semsagt bara á ble.asp á localhost, með HTTP controlinu, response-ið sem ég fæ frá því er auðvitað búið að keyra gagnvart ASP og fæ ég því bara HTML til baka.

Þú getur þá tekið niðurstöðuna úr þessu og skrifað það í textaskrána og unnið svo með hana.

Það fylgir þessu auðvitað smá overhead, en ég held að þetta sé í alvöru eina pottþétta leiðin til að fá fram þessa virkni.

P.S XMLhttp componentinn á það til að klúðra íslenskum stöfum - láttu mig vita ef það gerist. Ég á til kóðabút sem fiffar það, bara man hann ekki í augnablikinu :)
 ____________________
<a href=”http://haukur.hot.is/">http://haukur.hot.is/</a

Fyrra álit

ask fyrir 20 árum, 10 mánuðum

já ég vissi af eval(), en get ekki nýtt það, því að ég er ekki með

strCode = “Response.write(5)”

heldur
strCode = “”

Aftur á móti er þetta með HTTP Componentinn akkúrat það sem ég var að pæla. Var bara alls ekki að fatta að nota hann , en um leið og þú sagðir “..með því að nota XMLHTTP objectinn” þá kom þetta týpíska í mann “oh já auðvitað…stupid!”

Þakka kærlega fyrir hjálpina. Ætla að athuga hvort þetta virki ekki. ask | bergur.is

Fyrra álit

ask fyrir 20 árum, 10 mánuðum

oh ljóti Hugi…átti að vera

heldur
strCode = “<%Response.write(5)%>”
 ask | bergur.is

Fyrra álit

ask fyrir 20 árum, 10 mánuðum

Sæll Haukur.

Þetta gengur í sögu, og þessar skrár sem ég þarf að parse-a eru litlar þannig að ég verð ekki var við einhverja sérstaka töf.

En það er aftur á móti rétt hjá þér, íslensku stafirnir klúðrast. Þannig að ég gæti þegið þennan kóðabút, ef það er ekki alltof mikið mál að finna hann :) ask | bergur.is

Fyrra álit

hagur fyrir 20 árum, 10 mánuðum

Sæll aftur,

Gott að þetta varð þér að einhverju gagni :)

Já, hérna er kóðabúturinn sem ég talaði um - bara einfalt function sem les http url og skilar resultinu út, án þess að skemma íslenska stafi.

function fncReadUrl(strUrl)
Dim objHTTP
Dim objStream
Dim strResult
Set objHTTP = Server.CreateObject(“Msxml2.ServerXMLHTTP.4.0”)
objHTTP.open “GET”,strUrl,false
objHTTP.send

Set objStream = Server.CreateObject(“ADODB.Stream”)
objStream.Open
objStream.Type = 2

objStream.WriteText (objHttp.responseBody)
objStream.Position = 0
objStream.Charset = “latin1”

strResult = objStream.ReadText(-1)

set objHTTP = nothing
set objStream = nothing

fncReadUrl = strResult
end function ____________________
<a href="http://haukur.hot.is/">http://haukur.hot.is/</a

Fyrra álit

ask fyrir 20 árum, 10 mánuðum

Þetta virkar, íslensku stafirnir koma réttir, en aftur á móti fæ ég alltaf.

ÿþ

alltaf efst í skjalið. Hefur þetta gerst hjá þér?

Ég fixaði þetta með að taka bara substring fra 2 að str.length og það “virkar” náttúrlega. En ef þú veist hvað er að valda því að þessi tveir auka charectarar birtast, er það náttúrlega betra en þetta skítafix mitt með substringið.

takk enn og aftur fyrir hjálpina.
 ask | bergur.is

Fyrra álit

hagur fyrir 20 árum, 10 mánuðum

Já, ég kannast við þessa tvo stafi :S

Ég gerði það sama og þú til að losna við þá :), hef enga betri lausn í augnablikinu. ____________________
<a href="http://haukur.hot.is/">http://haukur.hot.is/</a

Fyrra álit

Vefsíðugerð

Vefsíðugerð

Ofurhugar

Stjórnendur

Hverjir eru inni

Korkar - Vefforritun

Að "keyra" ASP síðu

Dýr

Dægurmál

Fræði

Leikir

Lífið

Lífsstíll

Margmiðlun

Menning

Skjár

Sport

Tónlist

Tækni

Vélar

Hugi