1. Forum używa plików Cookies. Dowiedz się więcej o celu ich używania i możliwości zmiany ustawień Cookies w przeglądarce. Czytaj więcej...

W TRAKCIE Includowanie pliku asp na Windows Server

Dyskusja w 'WordPress, Joomla!, PHP, HTML, CSS' rozpoczęta przez użytkownika Hangsen server, 14 Lipiec 2016.

  1. Hangsen server

    Hangsen server Nowy użytkownik

    Wiadomości:
    1
    Docenione treści:
    0
    Dzień Dobry,
    posiada serwer Windows Server https://home.pl/hosting/windows/specyfikacja
    na razie w okresie testowym. Mam na nim uruchomić prosty kalkulator napisany w asp. Gdy próbuję dołączać zawartość innego pliku przez dyrektywę:
    <!-- #include file="topmenu.asp"-->

    To cały skrypt się wysypuje i występuje błąd Error 500 internal server error.
    http://winserwer1685784.home.pl/rafal1.asp
    http://winserwer1685784.home.pl/rafal2.asp

    bez powyższej linijki include skrypt się wyświetla i nie powoduje błedu.
    Podłączyłem również IIS managera do zdalnego zarządzania serwerem według tej instrukcji:
    https://pomoc.home.pl/baza-wiedzy/polaczenie-z-iis-manager/

    Co robię źle?
    Nie działa mi także podłączenie do bazy danych:

    takie dyrektywy wywalają cały skrypt:

    Set conn4 = Server.CreateObject("Adodb.Connection")
    Dim strConnString4
    strConnString4 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/access_db/bolan.mdb")
    conn4.Errors.clear
    conn4.Open strConnString4

    Może ktoś pomoże mi to ruszyć, byłbym wdzięczny.

    Pozdrawiam,
    Rafał
     
  2. Mariusz

    Mariusz pomoc.home.pl Moderator forum

    Wiadomości:
    3 087
    Docenione treści:
    302
    Po weryfikacji z naszej strony funkcja Server.MapPath powinna przyjmować w argumencie ścieżkę do bazy danych.

    Kod:
    <%Session.CodePage=936%>
    <%codepage=936 %>
    <%'  Response.Buffer   =   TRUE  
    
    Set conn = Server.CreateObject("Adodb.Connection")
    Dim strConnString
    strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/access_db/2012hsbc02.mdb")
    conn.Errors.clear
    conn.Open strConnString
    
    Set conn3 = Server.CreateObject("Adodb.Connection")
    Dim strConnString3
    strConnString3 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/access_db/2012santender03.mdb")
    conn3.Errors.clear
    conn3.Open strConnString3
    
    Set conn4 = Server.CreateObject("Adodb.Connection")
    Dim strConnString4
    strConnString4 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/access_db/bolan.mdb")
    conn4.Errors.clear
    conn4.Open strConnString4
    https://msdn.microsoft.com/en-us/library/ms524632(v=vs.90).aspx

    Jest utworzony folder access_db, ale jest w nim tylko plik bolan.mdb - brakuje 2012santender03.mdb i 2012hsbc02.mdb. Prawdopodobnie z tej przyczyny występuje komunikat 500. Jeżeli sugestia nie przyniesie odpowiedniego rezultatu sugeruje kontakt z osoba, która tworzyła kod.

    Poza tym w pliku znajduje się wiele chińskich znaków, jeśli autorem skryptu jest chińczyk, to bardziej zaawansowana pomoc z naszej strony może być niemożliwa, dlatego proponujemy, aby w przypadku braku efektu po naszej sugestii, skontaktować się z osobą, która utworzyła kod.
     

Poleć forum znajomym