webForumDet fria alternativet

för att klara alla asp-script

ASP

24 svar · 342 visningar · startad av Sico

Medlem sedan maj 20002 597 inlägg
Frågan#1

Tjena
Jag har en liten smygserver men den stödjer inte alla asp-script. Vad behövs för att den ska göra det?

Medlem sedan dec. 19998 577 inlägg
#2

Det beror självklart hur koden ser ut... kod med ASP3 kan naturligtvis inte fungera på en server med bara ASP2... finns en del andra saker, men det är oftast begränsningar på servern...

------------------
Budweiser - Slightly contaminated water... probably harmless, but I would recommend boiling before you drink it...
webEye.nu SweQuake.com

Medlem sedan maj 20002 597 inlägg
#3

Ok.. Hur bankar jag in ASP3 i burken då?

Medlem sedan dec. 19996 522 inlägg
#4

installerar internet information server 5.0 eller senaste pws:en

------------------
1 Man, 1 Million dead, The odds are just about even - Ash

Medlem sedan maj 20002 597 inlägg
#5

Jag kan slå vad om att jag inte har den skivan :)

Medlem sedan dec. 19996 522 inlägg
#6

ligger med på windows2000 skivan om du har det samt på win98 eller win Millenium skivan om du har den

------------------
1 Man, 1 Million dead, The odds are just about even - Ash

Medlem sedan mars 20002 836 inlägg
#7

.. jo, den har du på win2k skivan. enligt forumet så e det ju NT 5 (win2k) som du kör som operativ.

gör så här:
start - inställningar - kontrollpanelen - lägg till/ta bort program - lägg till/ta bort windows komponenter - bocka för Internet Information Services (IIS)

och du har nästan allt du behöver.

Det du mer kan behöva är att ladda hem senaste versionen av MDAC och VB Script Engine.
Sök efter det här på forumet så hittar du länkar till dem.

cya,
PatrikB

------------------
*Det tar sig sa han som hade eld i håret*

Medlem sedan maj 20002 597 inlägg
#8

eh...
"VB script Engine" hittar jag inte... kan ni hjälpa mig att hitta det?

Medlem sedan maj 20002 597 inlägg
#9

jag ljög.. jag hittade det.. :P

Medlem sedan juni 200032 967 inlägg
#10

http://msdn.microsoft.com/isapi/gomscom.asp?TARGET=/msdownload/vbscript/scripting56.asp

vill du inte ladda hem 5.6 betan så finns länk till 5.1 och 5.5 också.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>

Medlem sedan maj 20002 597 inlägg
#11

OK, jag installerade de båda programmen men min simpla counter funkar fortfarande inte... Den funkar med PWS'en men inte på själva web-servern. WTF is wrong?

Medlem sedan juni 200032 967 inlägg
#12

felmeddelande?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>

Medlem sedan sep. 2000232 inlägg
#13

Hur ser din kod ut då?

------------------
Det känns skönt att veta att vissa saker helt enkelt inte går att förklara med sunt förnuft.

Medlem sedan maj 20002 597 inlägg
#14

GAH!!!
Jag såg nu efter lite tisslande på sidan att det stog "blah blah blah.. fel på rad 47" Det e bara det att det står inget på den raden och den funkar ju på en annan dator med PWS'en men inte på web-servern... Vad kan man göra?

Medlem sedan maj 20002 597 inlägg
#15

ok.. Detta käns löjligt... efter att jag fixade felet på den rad som va tom så klagar den på denna raden:

_________
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
__________

om ni nu kan hjälpa mig med det så är jag tacksam men jag e fortfarande arg på varför den funkar på PWS'en men inte på web-servern...

Medlem sedan juni 200032 967 inlägg
#16

bla bla bla fel på rad x säger inte så väldans mycket.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>

Medlem sedan maj 20002 597 inlägg
#17

behöver ni mer av koden?

Medlem sedan juni 200032 967 inlägg
#18

lite mer kod + felmeddelande skulle väl inte skada....

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>

Medlem sedan maj 20002 597 inlägg
#19

OK :)

Felmedelandet är:

______________

Microsoft VBScript runtime error '800a0046'

Permission denied

/sico/Counter/counter.asp, line 47
______________

Koden är:

<%
' Declare our vaiables
Dim objFSO, objCountFile ' object vars for FSO and File
Dim strCountFileName ' filename of count text file
Dim iCount ' count variable
Dim bUseImages ' boolean whether or not to use images
Dim I ' standard looping var

' Determine whether we use images or plain text
' You could just set this to True or False instead
bUseImages = CBool(Request.QueryString("images"))

' Compute our count file's filename
' This is based on the file from which you call count.asp
' It basically takes that name and appends a .cnt so I don't
' accidently overwrite any files. If for some reason you have
' a file named script_name.asp.cnt then change this or watch out!
strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt")

' Create FileSystemObject to deal with file access
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' Open the file as a text stream (1 = ForReading, True = Create)
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)

' Read the current count from the file
If Not objCountFile.AtEndOfStream Then
' Set value to contents of the file
iCount = CLng(objCountFile.ReadAll)
Else
' If no file exists or it's empty start at 0
iCount = 0
End If

' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing

' Increment the count
iCount = iCount + 1

' Overwrite existing file and get a text stream to new one
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)

' Write updated count
objCountFile.Write iCount

' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing

' Destroy the FSO object
Set objFSO = Nothing

' We're all done with the hard part
' All that's left is to display the results
If bUseImages Then
' Loop through the count integer showing each digit
' You can grab the images one at a time or get the zip
' http://www.asp101.com/samples/download/counter_imgs.zip
For I = 1 to Len(iCount)
' Output the IMG tag using the right digit
Response.Write "<IMG SRC=""./images/digit_"
Response.Write Mid(iCount, I, 1)
Response.Write ".gif"" ALT="""
Response.Write Mid(iCount, I, 1)
Response.Write """ WIDTH=""20"" HEIGHT=""27"">"
Next 'I
Else
' No image wanted just show the variable
Response.Write iCount
End If
%>

Medlem sedan juni 200032 967 inlägg
#20

Permission denied

jamen dåså! då försöker du skriva på ett ställe där kontot IUSR_<servernamn> inte har rätt att skriva.

det är alltså en filsystemsrättighetsfråga. (puh, långt ord.)

mvh,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>

251 ms totalt · 4 externa anrop · v20260731065814-full.e96017d9
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
125 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)