|
|
 首页 | 客户留言 | |
|
 |
 |
姓名：admin
邮件：
主页： 
留言时间： 2007-10-23 15:50:49 |
|
访客标题 ：
行业门户 |
| 留言内容：
Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function |
|
|
姓名：admin
邮件：
主页：
留言时间： 2007-10-18 17:28:44 |
|
访客标题 ：
行业门户 |
| 留言内容：
If Err.Number = 13什么意思呢
On Error Resume Next的意思就是略过错误 If Err.Number = 13就是说执行以上语句以后有没有错误13(类型不匹配)生成(如果执行一个语句产生错误时会自动设置Err对象的Number和Description等等属性) 你可以使用Des...
zskgi1 - 2007-9-23 14:45 - 最佳回答者: coin2028 - 电脑/网络 > VB |
|
|
|
|
