巴霍巴利王2免费完整版:报缺少“End”,三条执行代码,谁能找出错来?
来源:百度文库 编辑:高校问答 时间:2024/10/06 13:42:12
报错“Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
”
我靠我怎么也找不出哪里少了,代码如下:
<%
Public Function GetClientIP()
dim uIpAddr
uIpAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If uIpAddr = "" Then
uIpAddr = Request.ServerVariables("REMOTE_ADDR")
end if
GetClientIP = uIpAddr
uIpAddr = ""
End Function
%>
缺少 'End'
”
我靠我怎么也找不出哪里少了,代码如下:
<%
Public Function GetClientIP()
dim uIpAddr
uIpAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If uIpAddr = "" Then
uIpAddr = Request.ServerVariables("REMOTE_ADDR")
end if
GetClientIP = uIpAddr
uIpAddr = ""
End Function
%>
可能不是你这里错的,这是一个函数模块而已
你这里是没有错了,是你编这个函数 GetClientIP 里出错了