“他不是一个人在战斗”搞笑版
来源：考研论坛
声明：下文纯属调侃，请君一笑而过，拜托不要再就此事争论下去。让我们轻松一些，ok？
版本一：中国队VS日本队
孙继海立功了！
不要给日本人任何机会！
伟大的中国右后卫！
他继承了中华民族的光荣传统！
董存瑞,黄继光,秋少云,在这一刻灵魂附体！
孙继海一个人！
他代表了中华民族足球悠久的传统！
在这一刻！
他不是一个人在战斗！
他不是一个人！
李毅！
大帝面对这个点球~~~
他面对的是全世界中国球迷的目光“`和期待~~~`
川口能活曾经在附加赛当中世界杯预选塞的附加赛当中扑出过无数个点球，大帝肯定深知这一点“~
他还能够微笑着，面对他~~面前的这个人吗？
10秒钟以后~~`
他会是怎么的表情~~~
球进了！
比赛结束了！
中国队队获得了胜利！
日本队！
他们没有再一次的倒在济科的面前！
伟大的中华人民共和国！
伟大的中国队的右后卫！
考研论坛所有今天过生日的会员们生日快乐！
中华人民共和国万岁！
日本队也许会后悔的，济科他在下半场多打一人的情况下，打得太保守太沉稳了~~~
他失去了自己的勇气，面对中国足球悠久的历史和传统~~他没有在拿出小组赛那样冲撞门将的作风~~
终于，自惭形秽，他们该回家了~~`
他们不用回遥远的日本，因为他们会选择集体剖腹自杀~~
再见
版本二：澳大利亚队VS意大利队 立场对立版
——格罗索带球进禁区，假摔！假摔！假摔！格罗索立功了，格罗索立功了！他用天衣无缝的演技骗过了裁判，骗得了点球，但我深信，我那亲爱的澳大利亚队一定还有机会！
——伟大的意大利的左后卫！伟大的演员！他继承了意大利队员一贯假摔的光荣传统，可惜今天的主角不是因扎吉，那是一位更为伟大的假摔大师。格罗索在意大利将死关头能有如此优异的表演，一定是因扎吉在这一刻灵魂附体！格罗索一个人代表了意大利足球悠久的历史和传统，在这一刻他不是一个人在战斗，至少我们相信还有裁判，还有国际足联，或者说金钱。
——托蒂，面对这个点球，他想了很多:要是我也像前辈巴乔一样将球射飞咋办？我名气没他娃大，也没他娃那忧郁的眼神，整不好回去就下岗，搞铲铲，还是先踢再说，万一碰运气进了呢……
——施瓦泽曾经在世界杯预选赛的附加赛中扑出过两个点球，托蒂深知这一点，上帝啊，保佑托蒂将球射飞吧，我实在不想看着澳大利亚队就此离开。
——球他×的怎么就进了呢？ 意大利傻B！托蒂傻B！
——胜利属于意大利，属于里皮，属于将灵魂借出的因扎吉，属于伟大演员格罗索，属于助人为乐的裁判，属于操纵比赛的国际足联，属于能使鬼推磨的万恶的金钱！
——澳大利亚队绝不会后悔，即使输了，他们也可以昂着高贵的头离开德意志，他们是英雄，他们已经让意大利如此狼狈不堪！澳大利亚万岁
版本三：王菲VS李亚鹏VS谢霆锋
王菲！王菲！王菲！李亚鹏立功啦！不要给谢霆锋任何的机会！
伟大的中国的武侠电视剧演员，他继承了张氏武侠剧的光荣传统！靖哥哥、令狐大师兄在这一刻灵魂附体！李亚鹏一个人，他代表了中国武侠电视剧悠久的光荣传统！在这一刻，他不是一个人在战斗！他不是一个人！
李亚鹏！李亚鹏面对王菲。他面对的是全世界菲迷的目光和期待！……成功啦！结婚啦！李亚鹏获得了胜利！淘汰了窦唯！他没有再一次倒张纪中面前！伟大的李亚鹏！伟大的中国的武侠电视剧演员！周迅今天生日快乐！金庸万岁！
谢霆锋可以回家了，而且他不用去遥远的香港，内地止泄药厂家有他的宿舍。
版本四：张靓影VS黄建翔
豚音！海豚音！海豚音！张靓影开唱了！不要给李愚蠢们任何机会！
伟大的中国女孩，她继承了中国乐户的光荣的传统！李香君、杜十娘、黄四娘在这一刻灵魂附体！张靓影一个人，她代表了中国乐户悠久的光荣传统！在这一刻，她不是一个人在歌唱！她不是一个人！
黄建翔！黄建翔面对这个点评。他面对的是全世界的凉粉的目光和期待！……晋级啦！比赛结束啦！张靓影获得了胜利！淘汰了李愚蠢们！她没有再一次倒在黑楠的点评面前！伟大的中国！伟大的中国乐户！李湘今天生日快乐！四川万岁！
李愚蠢可以回家了，而且他们不用去遥远的湖南，许多选手家就在四川！
黄建翔也可以回家了，象男人一样战斗的黄建翔也该休息了，而且他也不用回遥远的北京，他已经象战斗着的男人一样离婚了，他可以不作为评委，而作为一名不普通的歌迷在成都享受胜利的果实了！
版本五：法国队VS西班牙队
齐达内接到维尔托德传球，前面一马平川！他带球急进，此时他不是一个人！中路还有维尔托德在接应。
普约尔没有放弃，飞奔回防。过他，齐达内右脚外脚背拨球过掉普约尔，好的，闪出空当，果断起脚射门，卡西利亚斯判断错方向，球从近角入网！球进了！球进了！球进了！不要给西班人任何机会！送他们回家！
伟大的法国10号，伟大的齐达内复活，普拉蒂你！科帕！他继承了伟大法国10号的悠久传统！那一刻他不是一个人在战斗，他不是一个人，普拉蒂尼、科帕瞬间附体！
比赛结束了，法国淘汰了西班牙！伟大的法国！伟大的法国10号！法兰西万岁！齐达内万岁！
劳尔生日快乐！（对不起劳尔是西班牙队员！）
一个IP所在地搜索类
< %
Server.ScriptTimeout = 9000
Response.Buffer = true
Dim IpSearch
'建立对象
Set IpSearch = New clsIpSearch
' 该句建立SQL Server的IP地址库的连接，可使用默认连接，但要保证存在wry.mdb
IpSearch.ConnectionString = "DRIVER={SQL Server};SERVER=hostname:UID=sa;PWD=;DATABASE=Ip"
' 设置要查询的IP，可用默认值，这里设置的是 127.0.0.1
IpSearch.IpAddress = &H7F & "." & &H00 & "." & &H00 & "." & &H01
If Request.QueryString("IP")<>“” Then
If IpSearch.Valid_IP(Request.QueryString(”IP”)) Then
IpSearch.IpAddress = Trim(Request.QueryString(”IP”))
End If
End If
‘ 取得IP 所在地，反馈值有三个，以逗号分割
‘ 格式为：所在国家或地区,当地上网地区,提供正确IP地址信息的用户名
Response.Write (”所在地:” & IpSearch.GetIpAddrInfo() & ”
“)
‘ 取出IP地址
Response.Write (”IP:” & IpSearch.IpAddress & ”
“)
‘ 将IP地址转换为数值
Response.Write (”IP转换为数值:” & IpSearch.CLongIP(IpSearch.IpAddress) & ”
“)
‘ 将IP地址转换为数值后还原成IP字符串
Response.Write (”数值还原成IP:” & IpSearch.CStringIP(IpSearch.CLongIP(IpSearch.IpAddress)) & ”
“)
Response.Write (” ———————————————————”)
‘这里是测试代码
‘dim a,b,c,d
‘for a = 0 to 255
‘ for b= 0 to 255 step 20
‘ for c=0 to 255 step 20
‘ for d = 0 to 255 step 20
‘ IpSearch.IpAddress = a & “.” & b & “.” & c & “.” & d
‘ Response.Write (”所在地:” & IpSearch.GetIpAddrInfo() & ”
“)
‘ Response.Write (”IP:” & IpSearch.IpAddress & ”
“)
‘ Response.Write (”IP转换为数值:” & IpSearch.CLongIP(IpSearch.IpAddress) & ”
“)
‘ Response.Write (”数值还原成IP:” & IpSearch.CStringIP(IpSearch.CLongIP(IpSearch.IpAddress)) & ”
“)
‘ Response.Write (” ———————————————————”)
‘ next
‘ next
‘ next
‘next
%>
< %
Class clsIpSearch
'##################################################################
'声明：本程序采用的数据为网络上著名的IP工具软件《追捕》作者“冯志宏”
'先生所精心搜集整理。
'《追捕》数据库的转换方法：
'修改wry.dll 文件后缀名称为 wry.dbf
'方法一：
' 启动Access 数据，选择打开数据库，选择打开的文件类型为“dBASE 5 (*.dbf)”
' 打开wry.dbf文件，选择《工具》菜单下的《数据库实用工具》中的《转换数据库》
' 选择《转换为 Access 97 格式(版本可选)》功能，保存文件即可成为MDB格式。
'方法二：
' 使用SQL Server提供的《导入和导出数据》向导。
' 方法简要说明：在ODBC 控制面板中设置指向wry.dbf的DSN。
' 使用《导入和导出数据》向导，选择其正确的驱动程序和要导入的库即可。
' 或者直接导入由方法一生成的MDB文件入库。
'方法三：
' 使用Access 打开wry.dbf 文件后将自动通过MDB库引用原库数据。
'
'未安装其他数据库平台，其他方法欠考虑。
'###################### 类说明 ####################################
'# IP 所在地搜索类
'# ConnectionString 为数据库连接声明，默认声明同级目录的wry.mdb
'# IpAddress 请设置为进行搜索的IP 地址，默认取当前访问者IP
'# 类建立方法
'# Dim objVal '声明一个变量
'# Set objVal = New clsIpSearch '建立类对象
'# Response.Write (objVal.IpAddress) '显示当前访问者IP
'# IP 搜索类方法列表：
'# .Valid_IP 'IP 地址正确性效验
'# 参数：IP 'IP 数值或者字符串
'# .CLongIP '将IP地址转换为长整型的数值
'# 参数：asNewIP '要转换的IP地址字符串
'# .CStringIP '将长整型的数值转换为IP
'# 参数：anNewIP '要还原为IP地址的数值
'# .GetClientIP '取访问者的IP
'# .GetIpAddrInfo '得到设置过IpAddRess属性的IP所在地
'# 属性列表（自动初始化）：
'# ConnEctionString 'ADo 访问数据库连接说明
'# IpAddress '要操作的IP地址
'# 内部错误处理：
'# 欠缺，未做，请自行补充。
'##################################################################
Public ConnectionString
Public IpAddress
Private DBConn '连接对象，模块级声明
'────────────────────────────────
' 类初始化
Private Sub Class_initialize()
' 这里建立的是通过“数据转换--方法一”生成的mdb 库文件
ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("wry.mdb")
IpAddress = GetClientIP()
Set DBConn = OpenConnection()
End Sub
'────────────────────────────────
' 类注销
Private Sub Class_Terminate()
ConnectionString = Null
IpAddress = Null
DBConn.Close
Set DBConn = Nothing
End Sub
'────────────────────────────────
' 建立一个连接
Private Function OpenConnection()
Dim tmpConn
Set tmpConn=Server.CreateObject("ADODB.Connection")
tmpConn.Open ConnectionString
Set OpenConnection=tmpConn
Set tmpConn=nothing
End Function
'────────────────────────────────
' 执行一个SQL命令，并返回一个数据集对象
Private Function SQLExeCute(strSql)
Dim Rs
Set Rs=DBConn.ExeCute(strSQL)
Set SQLExeCute = Rs
Set Rs=nothing
End Function
'────────────────────────────────
'IP 效验
Public Function Valid_IP(ByVal IP)
Dim i
Dim dot_count
Dim test_octet
Dim byte_check
IP = Trim(IP)
' 确认IP长度
If Len(IP) < &H08 Then
Valid_IP = False
'显示错误提示
Exit Function
End If
i = &H01
dot_count = &H00
For i = 1 To Len(IP)
If Mid(IP, i, &H01) = "." Then
' 增加点的记数值
' 并且设置text_octet 值为空
dot_count = dot_count + &H01
test_octet = ""
If i = Len(IP) Then
' 如果点在结尾则IP效验失败
Valid_IP = False
' 显示错误提示
Exit Function
End If
Else
test_octet = test_octet & Mid(IP, i, &H01)
' 使用错误屏蔽来检查数据段值的正确性
On Error Resume Next
' 进行强制类型转换
' 如果转换失败就可通过检查Err是否为真来确认
byte_check = CByte(test_octet)
If (Err) Then
' 强制类型转换产生错误
' 所取段值的数据不为数值
' 或所取段值的数据长度大于&HFF
' 则类型不为byte类型
' IP 地址的正确性为假
Valid_IP = False
Exit Function
End If
End If
Next
' 通过上一步的验证，现在应该要检查小点是否有3个
If dot_count <> &H03 Then
Valid_IP = False
Exit Function
End If
‘ 一切正常，那么该IP为正确的IP地址
Valid_IP = True
End Function
‘────────────────────────────────
‘ 转换一个数值为IP
Public Function CStringIP(ByVal anNewIP)
Dim lsResults
Dim lnTemp
Dim lnIndex
For lnIndex = &H03 To &H00 Step -&H01
lnTemp = Int(anNewIP / (&H100 ^ lnIndex))
lsResults = lsResults & lnTemp & “.”
anNewIP = anNewIP - (lnTemp * (&H100 ^ lnIndex))
Next
lsResults = Left(lsResults, Len(lsResults) - &H01)
CStringIP = lsResults
End function
‘────────────────────────────────
‘ 转换一个IP到数值
Public Function CLongIP(ByVal asNewIP)
Dim lnResults
Dim lnIndex
Dim lnIpAry
lnIpAry = Split(asNewIP, “.”, &H04)
For lnIndex = &H00 To &H03
if Not lnIndex = &H03 Then
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (&H100 ^ (&H03 - lnIndex))
End if
lnResults = lnResults + lnIpAry(lnIndex)
Next
CLongIP = lnResults
End function
‘────────────────────────────────
‘ 取Client IP
Public Function GetClientIP()
dim uIpAddr
‘ 本函数参考webcn.Net/AspHouse 文献< 取真实的客户IP>
uIpAddr = Request.ServerVariables(”HTTP_X_FORWARDED_FOR”)
If uIpAddr = “” Then uIpAddr = Request.ServerVariables(”REMOTE_ADDR”)
GetClientIP = uIpAddr
uIpAddr = “”
End function
‘────────────────────────────────
‘ 读取IP所在地的信息
Public function GetIpAddrInfo()
Dim tmpIpAddr
Dim IpAddrVal
Dim ic,charSpace
Dim tmpSQL
charSpace = “”
IpAddrVal = IpAddress
If Not Valid_IP(IpAddrVal) Then
GetIpAddrInfo =NULL
Exit Function
End If
‘将IP字符串劈开成数组好进行处理
tmpIpAddr = Split(IpAddrVal,”.”,-1,1)
For ic = &H00 To Ubound(tmpIpAddr)
‘补位操作,保证每间隔满足3个字符
Select Case Len(tmpIpAddr(ic))
Case &H01 :charSpace = “00″
Case &H02 :charSpace = “0″
Case Else :charSpace = “”
End Select
tmpIpAddr(ic) = charSpace & tmpIpAddr(ic)
Next
IpAddrVal = tmpIpAddr(&H00) & “.” & tmpIpAddr(&H01) & “.” & tmpIpAddr(&H02) & “.” & tmpIpAddr(&H03)
‘以下为查询，IP地址库基于《追捕》的IP数据库,感谢”冯志宏”先生的贡献
‘库结构如下：
‘Create TABLE [dbo].[wry] (
‘ [STARTIP] [nvarchar] (17) COLLATE Chinese_PRC_CI_AS NULL , –起始IP段
‘ [ENDIP] [nvarchar] (17) COLLATE Chinese_PRC_CI_AS NULL , –终止IP段
‘ [COUNTRY] [nvarchar] (16) COLLATE Chinese_PRC_CI_AS NULL , –国家或者地区
‘ [LOCAL] [nvarchar] (54) COLLATE Chinese_PRC_CI_AS NULL , –本地地址
‘ [THANK] [nvarchar] (23) COLLATE Chinese_PRC_CI_AS NULL –感谢修正IP地址用户姓名
‘) ON [PRIMARY]
‘经过分析库的数据存放结构，总结出准确的查询方法，具体看下面的查询过程
tmpSQL = “select * from wry where (startIP< ='" & IpAddrVal & "') and (ENDIP>=’” & IpAddrVal & “‘) ” & _
” and left(startIP,” & Len(tmpIpAddr(&H00)) & “) = ‘” & tmpIpAddr(&H00) & “‘” & _
” and left(endip,” & Len(tmpIpAddr(&H00)) & “)=’” & tmpIpAddr(&H00) & “‘”
charSpace = GetDbIpInfo(tmpSQL)
If Len(charSpace)=&H00 Then
GetIpAddrInfo = NULL
Else
GetIpAddrInfo = charSpace
End If
charSpace = Null
tmpSQL = Null
end function
‘────────────────────────────────
‘ 返回数据查询的字符串
Private function GetDbIpInfo(byVal sql)
Dim OpenIpSearchRs
Dim result
Set OpenIpSearchRs = SQLExeCute(sql)
If Not OpenIpSearchRs.Eof Then
result = NullToSpace(OpenIpSearchRs(”COUNTRY”)) & “,” & NullToSpace(OpenIpSearchRs(”LOCAL”)) & “,” & NullToSpace(OpenIpSearchRs(”THANK”))
Else
result = NULL
End If
OpenIpSearchRs.Close
Set OpenIpSearchRs=Nothing
GetDbIpInfo = result
End function
‘────────────────────────────────
‘ 将数据库空记录转换为空字符
Private function NullToSpace(byVal rsStr)
If isNull(rsStr) Then
NullToSpace = “”
Else
NullToSpace = Trim(rsStr)
End If
End Function
End Class
%>
来源：INTERNET
作者：未知