asp viser kildekoder

Er du sikker på at CyberCity understøtter ASP?

sikkert fordi webserveren ikke understøtter asp. Dvs. dine asp tags bliver ikke proccessed af en asp script engine og konverteret til html - derfor parser browseren bare dine asp scripts som alm. html.

/nuno

PS! Jeg kan kun anbefale en engelsk bog - Beginning Active Server Pages 3.0 - fra forlaget WROX

Cybercity understøtter ASP !

Ihvertfald min side...

Kan du ikke give en URL ? måske har du glemt <%%>?

Prøv at følge denne vejledning når du laver dit ASP dokument - den forklarer det mest grundlæggende:
http://www.html.dk/tutorials/asp/lektion3.asp

Mvh
Jonas

ok, tak skal I have, jeg prøver lige at kigge på det....

Har du givet din fil efternavnet *.asp - hvis den hedder *.html eller *.htm - så eksekveres asp-koden heller ikke

Jeg har set lidt på jeres svar, og kan stadig ikke hitte ud af det...
Det ser altså ud til at Cybercity understøtter asp. Og endelsen er god nok..
Sagen er den, at jeg skal smide et chat program ind på min hjemmeside. \"Conguerchat\". (Ved ikke om der er nogen af jer, der kender det.)Og når jeg så linker til det, dukker kildekoden op.
Den ser ud som følgende:

<%    Option Explicit %>
<!-- #include file=\"constants.inc\" -->
<%
   
    \'
    \' :@default.asp
    \'
    \' This page is the main entrace for ConquerChat. It shows a list of currently
    \' logged in chatusers and makes it possible to log in by entering your user-
    \' name in the appropriate field.
    \'
    \' @author    Peter Theill    peter@theill.com
    \'
   
    Response.Buffer = True
   
\' Enable the lines below to reinitialise the chat
\'conquerChatUsers.RemoveAll
\'conquerChatRooms.RemoveAll
   
    Dim userId
    userId = Request(\"chatId\")
   
    \' do not show login screen if a valid session exists
    If (userId <> \"\") Then
        Response.Redirect \"frames.asp?chatId=\" & userId
        Response.End
    End If
   
    Dim i
   
    Dim mode, errorMessage
    mode = Request(\"mode\")
   
    If (mode = \"userLogin\") Then
       
        Dim userName
        userName = Server.HTMLEncode(Request(\"userName\"))
       
        If (countUsers() >= USERS) Then
            errorMessage = \"The maximum number of users have been reached. You are not allowed to login at this time.\"
        ElseIf (Len(userName) = 0)  Then
            errorMessage = \"You have to enter a username before starting to chat.\"
        ElseIf (Len(userName) > MAX_USERNAME_LENGTH) Then
            errorMessage = \"Username must not exceed \" & MAX_USERNAME_LENGTH & \" characters.\"
        ElseIf (userExists(userName)) Then
            errorMessage = \"Sorry,<br><br>You cannot use this username, since another person is using this already.\"
        ElseIf (InStr(userName, Chr(1)) <> 0) Then
            errorMessage = \"Your username contains inappropriate characters. Please choose another one.\"
        Else
           
            Dim p
            Set p = New Person
            p.id = -1
            p.name = userName
            p.roomId = 0
           
            \' we have a new chat user thus we need to create a new
            \' id for him/her
            Set p = addUser(p)
           
            \' tell all other users about this new user
            Application.Lock
            For i = MESSAGES To 2 Step -1
                Application(\"$CONQUERCHAT:MESSAGES_0_\" & i) = Application(\"$CONQUERCHAT:MESSAGES_0_\" & i-1)
            Next
            Application(\"$CONQUERCHAT:MESSAGES_0_1\") = \"<span class=\'loggedIn\'><img src=\'images/new.gif\' height=9 width=9>&nbsp;\" & userName & \" logged on at \" & Now & \"</span><br>\"
            Application.Unlock
           
            \' redirect to new frame window and create a new user login
            Response.Redirect \"frames.asp?chatId=\" & p.id
            Response.End
           
        End If
       
    End If \' > If (mode = \"userLogin\") Then
   
    \' make sure we don\'t show any inactive users for new chat users
    kickInactiveUsers()
   
    \' create default rooms if no is available (which will be the case the
    \' very first time after a server restart)
    Application.Lock
    If (conquerChatRooms.Count = 0) Then
        Dim defaultRooms
        defaultRooms = Split(DEFAULT_ROOMS, \";\")
        If (IsArray(defaultRooms)) Then
            For i = 0 To UBound(defaultRooms)
                defaultRooms(i) = Trim(defaultRooms(i))
                If (defaultRooms(i) <> \"\") Then
                    Call addRoom(defaultRooms(i), \"-1\")
                End If
            Next
        End If
    End If
    Application.UnLock
   
%>
<html>
<head>
    <title><%= APPLICATION_NAME %></title>
    <link rel=\"stylesheet\" type=\"text/css\" href=\"chat.css\">
</head>

<body topmargin=0 leftmargin=0 marginwidth=0 marginheight=0>
<table border=0 cellspacing=0 cellpadding=0 width=\"100%\">
<tr>
<td align=\"right\"><a href=\"http://www.theill.com/\" target=\"_top\"><img border=\"0\" src=\"http://www.theill.com/images/ani_theillcom_scroll.gif\" alt=\"Part of the Theill Web Site\"></a></td>
</tr>
</table>

<form name=\"frmLogin\" method=\"POST\" action=\"default.asp\">
  <input type=\"hidden\" name=\"mode\" value=\"userLogin\">
  <div align=\"center\">
    <table border=0 cellpadding=1 cellspacing=0 bgcolor=#D0D0D0>
    <tr>
    <td>
      <table border=\"0\" cellspacing=\"0\" cellpadding=\"4\" width=\"320\" bgcolor=white>
      <tr>
        <td bgcolor=\"#800000\"><b><font color=\"#FFFFFF\">&nbsp;Join <%= APPLICATION_NAME %></font></b></td>
      </tr>
      <tr>
        <td bgcolor=\"#F0F0F0\">
          <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
            <tr>
              <td nowrap>Type Username&nbsp;&nbsp;</td>
              <td width=\"100%\"><input type=\"text\" name=\"username\" class=\"editField\" size=\"15\" maxlength=20 value=\"<%= userName %>\" tabindex=\"1\" style=\"width: 100%\"></td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td width=100% bgcolor=\"#F0F0F0\" align=\"right\"><input type=\"image\" name=\"login\" value=\"submit\" src=\"images/btn_login.gif\" border=0 width=48 height=16 tabindex=2></td>
      </tr>
      <tr>
        <td width=100% align=\"right\">&nbsp;</td>
      </tr>
      <% If (Len(errorMessage) > 0) Then %>
      <tr>
      <td bgcolor=\"#C00000\"><font color=white><b><%= errorMessage %></b></font>&nbsp;</td>
      </tr>
      <% End If %>
      <tr>
        <td><%= countUsers() %> users is currently chatting (max. <%= USERS %>):</td>
      </tr>
      <tr>
      <td>
        <table border=0 cellspacing=0 cellpadding=2 width=100%>
<%
   
    If (countUsers() <> 0) Then
        Dim user, room_, rowIdx
        For Each userId In conquerChatUsers
            Set user = getUser(userId)
            Set room_ = getRoom(user.roomId)
            If (room_ Is Nothing) Then
                Set room_ = New Room
                room_.name = \"Unavailable\"
            End If

            If (rowIdx MOD 2) Then
                Response.Write \"<tr bgcolor=\'#F8F8F8\'>\"
            Else
                Response.Write \"<tr>\"
            End If
           
            Response.Write \" <td width=24><img src=\'images/transparent.gif\' width=8 height=16><img src=\'images/ico.user.gif\' width=16 height=16 border=0 alt=\'active chat user\'></td>\"
            Response.Write \" <td width=\'100%\' class=\'infoText\'>\" & user.name & \"&nbsp;-&nbsp;\" & room_.name & \"&nbsp;</td>\"
            Response.Write \"</tr>\"
           
            rowIdx = rowIdx + 1
        Next
       
    Else
   
        Response.Write(\"<tr>\")
        Response.Write(\"<td>&nbsp;&nbsp;&nbsp;<b>No users currently logged in.</b></td>\")
        Response.Write(\"</tr>\")
       
    End If
   
%>
          </table></td>
        </tr>
      </table></td>
    </tr>
    </table>   
    </center>
    </div>
</form>
   
<script language=\"JavaScript\">
<!--
   
    document.frmLogin.username.select();
    document.frmLogin.username.focus();
   
// -->
    </script>

</body>
</html>

Hvis der ikke er nogen af jer, der kan hjælpe, er der så ikke nogen, der kan anbefale et program til at lave asp sider (hvor der også følger der en god vejledning med.)

prøv at lave en test side - hvor det eneste du skriver er

Dette er en test: <%=now%>

se her hvad resultatet er (på engelsk server software):
http://www3.ewebcity.com/nunobow/mytest.asp

og gemmer den som fx test.asp

/nuno

nunu - jeg prøvede din test. Fik kun \"dette er en test\" frem. ikke noget tidspunkt.
I hvilket program kan/skal jeg lave min side? Jeg bruger EasýASP nu.

Tjaah - der findes ikke noget \"ASP-GUI-Builder\" program - som fx kan sætte asp sammen for dig uden at man kan kode det selv.

Jeg bruger selv HomeSite - synes det har god funktionalitet og gode farvekoder for tags - også ASP-scripts!

Prøv istedet - på din test side og skriv:

<%response.write \"hej\">%>

og se hvad der sker.

/nuno

hov <%response.write \"hej\"%>

skulle det være :/

nunu - der sker lige nøjagtig ingenting. Siden er blank!
Jeg tror, jeg skal starte helt forfra med en bog, som jeg kan følge skridt for skridt. Det her bliver vist for tilfældigt?!
Elgrego!

Det passer ikke at sådan et program ikke findes. Prøv Macromedia Dreamweaver Ultradev eller Visual Interdev, de kan lave en del grundlæggende ASP-funktioner uden kodning.

Den bedste bog på markedet om ASP er i øvrigt Active Server Pages Unleashed 2.0. Jeg anbefaler dog at få en lille smule erfaring før man går i krig med den.

avlund> jamen du får jo ikke nogen asp-sider ud af det som \"kan\" noget. At man kan lave en response.write uden selv at skrive noget kode er jo i længden ubrugeligt.

Jeg kan gå med til at de måske kan hjælpe een på vej - men de programmerer altså ikke for een :)

det må man selv stå for......... hverken MDU eller VI kan jo fortælle dig, hvad dit script fx skal gøre efter du har lavet en response.write - eller hvad den response.write skal laves ud fra - som sagt........ de kan hjælpe - men de kan ikke programmere for dig.

/nuno

elgrego> jeg tror du skal have fat i din udbyder hvis ikke en <%response.write \"hej\"%> skriver

hej

på skærmen til dig - for så er der noget galt.

/nuno

Jeg takker for svarene. Jeg må vist ned og låne/købe mig en bog om emnet.

Elgrego

elgrego>> Du kan købe alle de bøger du vil, og læse alle de artikler igennem som du orker, men hvis nuno\'s eksempel ikke virker, jamen så NYTTER DET IKKE !!!!

Jeg vil hellere råde dig til at studere telefonbogen, finde nr\'et til CC og tage en snak med dem!