杭州交通信息网硬皮肤病图片:报缺少“End”，三条执行代码，谁能找出错来？
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/08 23:34:38
报错“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 里出错了