2016-01-14 174 views
-2

連接文件傳統的ASP頁面拋出 「內部服務器500錯誤」

<% 
    Set Conn = Server.CreateObject("ADODB.Connection") 
    Conn.Open "abc","ID","Password" 
    conn.commandtimeout=120 

    Set RS = Server.CreateObject("ADODB.RecordSet") 
    rs.activeConnection = Conn 

%> 

傳統的ASP文件

<%response.buffer = true%> 
<%Response.Expires = 0%> 
<!-- #include file="functions.asp" --> 

<% Response.Write session("RequestID")%> 
<%if session("ValidLogon") <> "true" then 
    if request("FromEmail") = "True" then 
     SetSessVar() 
    else%> 
     <%response.redirect "Default.asp" 
    end if 
end if%> 

<html> 
<body> 

<%rs.Source = "SELECT * from tblRequests WHERE RequestID = " & request("requestID") 

rs.Open 

session("RequestID") = rs("requestid") 

if rs("RequestType") = "O" then 

    response.clear 

    If request("Tag") = "Change" then 
     response.redirect "abc.asp#change" 
    else 
     response.redirect "abc.asp?From=" & request("From") 
    end if 

else 

    response.clear 

    If request("Tag") = "Change" then 
     response.redirect "editinternal.asp#change" 
    else 
     response.redirect "editinternal.asp?From=" & request("From") 
    end if 

end if 
rs.close%> 

</body> 
</html> 

我已經檢查了傳統的ASP頁面,它看起來像有「Body」標籤中的語法錯誤。我對此一無所知。

這是給內部服務器錯誤500

+0

如果您提供了完整的500錯誤,它會發生什麼行以及錯誤描述是什麼? – Lankymart

+0

您是否知道如何配置IIS以提供經典asp的詳細錯誤消息? http://www.chestysoft.com/asp-error-messages.asp – John

+0

@約翰 - 我不知道這件事。你可以幫我嗎? – Amit

回答

0

在你的rs.activeConnection = Conn失蹤Set爲您設置一個對象引用ADODB.Connection對象實例不是通過一個連接字符串連接文件。

'Object instances require Set 
Set rs.activeConnection = Conn 
+0

沒有錯誤即將到來。 – Amit

+0

@Amit那麼是什麼錯誤,完整的描述?!?你如何期望我們提供幫助?令人難以置信的是,這絕對是一個問題,但你的代碼可能有更多的問題。不能只是繼續猜測。 – Lankymart

0

請確保您配置的網站詳細的錯誤信息發送到客戶端

介紹如何: Show detailed errors

我猜想,您的連接「ABC」 /「ID 「/」密碼「必須是真正的連接。看起來你只是寫了一些東西來看看會發生什麼。它也可以是你所包含的「functions.asp」文件。該文件是否存在,它包含了什麼?

請寄回您的詳細錯誤信息,然後我們可以幫助您更好。

0

之前引用的記錄,你應該檢查,如果記錄中包含像任何記錄:

If not rs.eof then 
    Session("reqestid") = rs("reqestid") 
    .... 
End If 

只是想在這裏補充一個TRIX,嘗試體的標記之後添加這些2線

Response.Write "<br>For the sake of debug" 
Response.Flush 

如果你有緩衝,這有時寫出錯誤,而不是拋出錯誤500.經常幫助我。