为什么我的程序在本地运行没问题，放到服务器就出现内部服务器错误呢？
<%
userIP = Request.ServerVariables("REMOTE_ADDR")
Function cacuIp(userIP)
On Error Resume Next
Dim srIp, aIp
srIp=0
aIp = Split(userIP,".")
If UBound(aIP)<>3 Then
cacuIP=0
Exit Function
End If
For i=0 To 3
srIp=srIp+(CInt(aIP(i))*(256^(3-i)))
Next
cacuIp=srIp-1
If Err Then cacuIp=0
End Function
response.write cacuIp
response.end
Set CONN=Server.CreateObject("ADODB.Connection")
mdbpath=Server.Mappath("ip/IPaddress.mdb")
CONN.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & mdbpath
'CONN.Open "Provider=Microsoft.Jet.OLEDB.4.0;User Id=;Data Source="& mdbpath &" ';Password="
iIp=cacuIp(userIP)
SQL = "SELECT PF FROM IP_address WHERE ip1<=" & iIp & " AND ip2>=" & iIp
Set rsCnt = CONN.Execute ( SQL )
If rsCnt.Eof Then
sPF="CN"
Else
sPF=rsCnt("PF")
End If
Set rsCnt=Nothing
if sPF="EN" then
Response.Redirect "http://en.tech-long.com"
else
Response.Redirect "cn/index.htm"
end if
%>
