select
(select UserName From SkyUser Where SkyUser.UserID=SkyEvaluationVD.UserID) UserID,
(select DetailName From SkyEvaluationDetail Where SkyEvaluationDetail.EvaluationID=SkyEvaluationVD.EName) EName
,EValue From SkyEvaluationVD

declare @sql varchar(8000);
set @sql = 'select EName'
select @sql = @sql + ' , max(case UserID when ''' + UserID + ''' then Evalue else 0 end) [' + UserID + ']'
from (select distinct UserID from SkyEvaluationVD) as a
set @sql = @sql + ' from SkyEvaluationVD group by EName'
print @SQL
exec(@sql)

create table tb(姓名 varchar(10) , 课程 varchar(10) , 分数 int)
insert into tb values('张三' , '语文' , 74)
insert into tb values('张三' , '数学' , 83)
insert into tb values('张三' , '物理' , 93)
insert into tb values('李四' , '语文' , 74)
insert into tb values('李四' , '数学' , 84)
insert into tb values('李四' , '物理' , 94)
go

--SQL SERVER 2000 静态SQL,指课程只有语文、数学、物理这三门课程。(以下同)
select 姓名 as 姓名 ,
  max(case 课程 when '语文' then 分数 else 0 end) 语文,
  max(case 课程 when '数学' then 分数 else 0 end) 数学,
  max(case 课程 when '物理' then 分数 else 0 end) 物理
from tb
group by 姓名
 

问题：假设有张学生成绩表(tb)如下:
姓名 课程 分数
张三 语文 74
张三 数学 83
张三 物理 93
李四 语文 74
李四 数学 84
李四 物理 94
想变成(得到如下结果)：
姓名 语文 数学 物理
---- ---- ---- ----
李四 74   84   94
张三 74   83   93
-------------------
*/

create table tb(姓名 varchar(10) , 课程 varchar(10) , 分数 int)
insert into tb values('张三' , '语文' , 74)
insert into tb values('张三' , '数学' , 83)
insert into tb values('张三' , '物理' , 93)
insert into tb values('李四' , '语文' , 74)
insert into tb values('李四' , '数学' , 84)
insert into tb values('李四' , '物理' , 94)
go

--SQL SERVER 2000 静态SQL,指课程只有语文、数学、物理这三门课程。(以下同)
select 姓名 as 姓名 ,
  max(case 课程 when '语文' then 分数 else 0 end) 语文,
  max(case 课程 when '数学' then 分数 else 0 end) 数学,
  max(case 课程 when '物理' then 分数 else 0 end) 物理
from tb
group by 姓名

--SQL SERVER 2000 动态SQL,指课程不止语文、数学、物理这三门课程。(以下同)
declare @sql varchar(8000)
set @sql = 'select 姓名 '
select @sql = @sql + ' , max(case 课程 when ''' + 课程 + ''' then 分数 else 0 end) [' + 课程 + ']'
from (select distinct 课程 from tb) as a
set @sql = @sql + ' from tb group by 姓名'
exec(@sql)

--SQL SERVER 2005 静态SQL。
select * from (select * from tb) a pivot (max(分数) for 课程 in (语文,数学,物理)) b

--SQL SERVER 2005 动态SQL。
declare @sql varchar(8000)
select @sql = isnull(@sql + ',' , '') + 课程 from tb group by 课程
exec ('select * from (select * from tb) a pivot (max(分数) for 课程 in (' + @sql + ')) b')

---------------------------------

/*
问题：在上述结果的基础上加平均分，总分，得到如下结果：
姓名 语文 数学 物理 平均分 总分
---- ---- ---- ---- ------ ----
李四 74   84   94   84.00  252
张三 74   83   93   83.33  250
*/

--SQL SERVER 2000 静态SQL。
select 姓名 姓名,
  max(case 课程 when '语文' then 分数 else 0 end) 语文,
  max(case 课程 when '数学' then 分数 else 0 end) 数学,
  max(case 课程 when '物理' then 分数 else 0 end) 物理,
  cast(avg(分数*1.0) as decimal(18,2)) 平均分,
  sum(分数) 总分
from tb
group by 姓名

--SQL SERVER 2000 动态SQL。
declare @sql varchar(8000)
set @sql = 'select 姓名 '
select @sql = @sql + ' , max(case 课程 when ''' + 课程 + ''' then 分数 else 0 end) [' + 课程 + ']'
from (select distinct 课程 from tb) as a
set @sql = @sql + ' , cast(avg(分数*1.0) as decimal(18,2)) 平均分 , sum(分数) 总分 from tb group by 姓名'
exec(@sql)

--SQL SERVER 2005 静态SQL。
select m.* , n.平均分 , n.总分 from
(select * from (select * from tb) a pivot (max(分数) for 课程 in (语文,数学,物理)) b) m,
(select 姓名 , cast(avg(分数*1.0) as decimal(18,2)) 平均分 , sum(分数) 总分 from tb group by 姓名) n
where m.姓名 = n.姓名

--SQL SERVER 2005 动态SQL。
declare @sql varchar(8000)
select @sql = isnull(@sql + ',' , '') + 课程 from tb group by 课程
exec ('select m.* , n.平均分 , n.总分 from
(select * from (select * from tb) a pivot (max(分数) for 课程 in (' + @sql + ')) b) m ,
(select 姓名 , cast(avg(分数*1.0) as decimal(18,2)) 平均分 , sum(分数) 总分 from tb group by 姓名) n
where m.姓名 = n.姓名')

drop table tb   

------------------
------------------

/*
问题：如果上述两表互相换一下：即表结构和数据为：
姓名 语文 数学 物理
张三 74　　83　　93
李四 74　　84　　94
想变成(得到如下结果)：
姓名 课程 分数
---- ---- ----
李四 语文 74
李四 数学 84
李四 物理 94
张三 语文 74
张三 数学 83
张三 物理 93
--------------
*/

create table tb(姓名 varchar(10) , 语文 int , 数学 int , 物理 int)
insert into tb values('张三',74,83,93)
insert into tb values('李四',74,84,94)
go

--SQL SERVER 2000 静态SQL。
select * from
(
 select 姓名 , 课程 = '语文' , 分数 = 语文 from tb
 union all
 select 姓名 , 课程 = '数学' , 分数 = 数学 from tb
 union all
 select 姓名 , 课程 = '物理' , 分数 = 物理 from tb
) t
order by 姓名 , case 课程 when '语文' then 1 when '数学' then 2 when '物理' then 3 end

--SQL SERVER 2000 动态SQL。
--调用系统表动态生态。
declare @sql varchar(8000)
select @sql = isnull(@sql + ' union all ' , '' ) + ' select 姓名 , [课程] = ' + quotename(Name , '''') + ' , [分数] = ' + quotename(Name) + ' from tb'
from syscolumns
where name! = N'姓名' and ID = object_id('tb') --表名tb，不包含列名为姓名的其它列
order by colid asc
exec(@sql + ' order by 姓名 ')

--SQL SERVER 2005 动态SQL。
select 姓名 , 课程 , 分数 from tb unpivot (分数 for 课程 in([语文] , [数学] , [物理])) t

--SQL SERVER 2005 动态SQL，同SQL SERVER 2000 动态SQL。

--------------------
/*
问题：在上述的结果上加个平均分，总分，得到如下结果：
姓名 课程   分数
---- ------ ------
李四 语文   74.00
李四 数学   84.00
李四 物理   94.00
李四 平均分 84.00
李四 总分   252.00
张三 语文   74.00
张三 数学   83.00
张三 物理   93.00
张三 平均分 83.33
张三 总分   250.00
------------------
*/

select * from
(
 select 姓名 as 姓名 , 课程 = '语文' , 分数 = 语文 from tb
 union all
 select 姓名 as 姓名 , 课程 = '数学' , 分数 = 数学 from tb
 union all
 select 姓名 as 姓名 , 课程 = '物理' , 分数 = 物理 from tb
 union all
 select 姓名 as 姓名 , 课程 = '平均分' , 分数 = cast((语文 + 数学 + 物理)*1.0/3 as decimal(18,2)) from tb
 union all
 select 姓名 as 姓名 , 课程 = '总分' , 分数 = 语文 + 数学 + 物理 from tb
) t
order by 姓名 , case 课程 when '语文' then 1 when '数学' then 2 when '物理' then 3 when '平均分' then 4 when '总分' then 5 end

drop table tb
 

Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql
Fy_In = "'|;|and|(|)|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
Kill_IP=True
WriteSql=True  
'----------------------------------

Fy_Inf = split(Fy_In,"|")
'--------POST部份------------------
If Request.Form<>"" Then
For Each Fy_Post In Request.Form
   For Fy_Xh=0 To Ubound(Fy_Inf)
    If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then
     If WriteSql=True Then
      killSqlconn.Execute("insert into SqlIn(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','POST','"&Fy_Post&"','"&replace(Request.Form(Fy_Post),"'","''")&"')")
   
      Set killSqlconn = Nothing
     End If
     Response.Write "<Script Language=JavaScript>alert('SQL通用防注入系统提示你↓\n\n请不要在参数中包含非法字符尝试注入！\n');</Script>"
     Response.Write "非法操作！系统做了如下记录↓<br>"
     Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"
     Response.Write "操作时间："&Now&"<br>"
     Response.Write "操作页面："&Request.ServerVariables("URL")&"<br>"
     Response.Write "提交方式：ＰＯＳＴ<br>"
     Response.Write "提交参数："&Fy_Post&"<br>"
     Response.Write "提交数据："&Request.Form(Fy_Post)
     Response.End
    End If
   Next
Next
End If
'----------------------------------

'--------GET部份-------------------
If Request.QueryString<>"" Then
For Each Fy_Get In Request.QueryString
   For Fy_Xh=0 To Ubound(Fy_Inf)
    If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then
     If WriteSql=True Then
     
     End If
     Response.Write "<Script Language=JavaScript>alert('SQL通用防注入系统提示你↓\n\n请不要在参数中包含非法字符尝试注入！\n');</Script>"
     Response.Write "非法操作！系统做了如下记录↓<br>"
     Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"
     Response.Write "操作时间："&Now&"<br>"
     Response.Write "操作页面："&Request.ServerVariables("URL")&"<br>"
     Response.Write "提交方式：ＧＥＴ<br>"
     Response.Write "提交参数："&Fy_Get&"<br>"
     Response.Write "提交数据："&Request.QueryString(Fy_Get)
     Response.End
    End If
   Next
Next
End If

end function

gosql

QQ协议网络协议--请求部份
//登录
VER=1.0&CMD=Login&SEQ=&UIN=&PS=&M5=1&LC=9326B87B234E7235
//获取消息
VER=1.0&CMD=GetMsgEx&SEQ=&UIN=
//发送消息
VER=1.0&CMD=CLTMSG&SEQ=&UIN=&UN=&MG=
//朋友列表
VER=1.0&CMD=List&SEQ=&UIN=&TN=160&UN=0
//获取好友状态
VER=1.0&CMD=Query_Stat&SEQ=&UIN=&TN=50&UN=0
//获取好友信息
VER=1.0&CMD=GetInfo&SEQ=&UIN=&LV=2&UN=
//增加好友
VER=1.0&CMD=AddToList&SEQ=&UIN=&UN=
//回应对方请求加你为好友的响应
VER=1.0&CMD=Ack_AddToList&SEQ=&UIN=&UN=&CD=&RS=
//删除好友
VER=1.0&CMD=DelFromList&SEQ=&UIN=&UN=
//搜索好友
VER=1.0&CMD=Finger&SEQ=&UIN=&AG=&SX=&PV=
//改变自己状态，ST的代码应该和获取好友状态代码一致
VER=1.0&CMD=Change_Stat&SEQ=&UIN=&ST=
//退出登录
VER=1.0&CMD=Logout&SEQ=&UIN=

基于HTTP的QQ协议之我所见
--------------------------------------------------------------------------------
作者:未知 来源: 类别:**教程 日期:2005-06-19 今日/总浏览: 32/3203

有一年没有发表文章了,最近我为了一个项目对QQ协议进行研究,有些心得,不敢独享,故把其中一项协议--
基于HTTP的QQ协议V1.1的不完整成果,拿出来与大家分享一下。
大家说到QQ协议都觉得很神秘，是因为QQ不像MSN或者ICQ协议都已经官方公布了，而QQ的没有公布。研究
它的人也不是特别的多，虽然已经有了基于QQ协议所写成的第三方软件 foicq, qq plugins for gaim,
LumaQQ，但是由于他们是基于二进制Stream的协议过于复杂，大家阅读代码也有一定的难度，再加上网络
上解析QQ协议的文章也不是十分多，所以基于QQ网络协议的应用程序也是寥寥无几的。现在我就把基于HT
TP的QQ协议进行一个粗浅的剖析，希望对大家有所帮助。源码部分就用我喜欢的DELPHI和现在比较流行的
C#语言对QQ协议的实现进行具体分析。
1、找寻支持QQ HTTP协议的服务器。
大家也许会被一些假像所迷惑，也许会认为QQ的HTTP服务器是基于80口进行通信的（如：218.17.209.23:
80），其实不然，正真基于HTTP的服务器应该是：http://tqq.tencent.com:8000，它是一个通过8000口
进行通讯的服务器。
由于QQ的HTTP服务器并不支持HTTP协议中GET方法，它支持POST方法。所以我们要给QQ的HTTP协议传参数
，那么就必需要用POST方式才行。
2、C#和DELPHI是实现HTTP的POST方法的通信。
C#：
C#里System.Web空间下提供了一个叫做WebClient的对象，使用此对象就可以使C#直接对服务器发送WEB
客户端的请求。那么我们要对服务器提交POST方法那么就必须使用其UploadData()方法才行。首先把要请
求的信息先转换为字节（因为POST提交的是字符的流数据），然后再做为UploadData()的参数。使用Uplo
adData()进行数据提交，最后返回，POST的回馈信息。如下：
WebClient _client = new WebClient();
string postValues = "VER=1.0&CMD=Query_Stat&SEQ=12321&UIN=29501213&TN=50&UN=0";
Byte[] byteArray = System.Text.Encoding.ASCII.GetBytes(postValues);
Byte[] pageData = _client.UploadData(Host,"POST",byteArray);
这样，我们就利用C#进行了一次HTTP的POST方法提交了。
DELPHI：
Delphi里我们利用一个比较流行的第三方VCL，INDY HTTP（这个组件D6，D7里面自带）进行HTTP通信。
使用其的POST方法便可以进行HTTP的POST通信，因为组件比较好用，我就不在其描述具体的过程了。大家
可以参考以下代码：
function PostWebPage(url,para:String;TimeOut:Integer):String;
var
tmpWeb:TIdHTTP;
retrun:String;
Proxy:String;
i:Integer;
paralist:TStrings;
begin
retrun:='';
try
  paralist:=TStringList.Create;
  paralist.Text:=_Replacing(para,'&',#13#10);
  tmpWeb:=TIdHTTP.Create(nil);
  tmpWeb.ReadTimeout:=TimeOut;
  for i:=1 to 3 do
  begin
    try
    retrun:=tmpWeb.Post(url,paralist);
    except end;
    if retrun<>'' then break;
  end;
finally
    tmpWeb.Disconnect;
    FreeAndNil(tmpWeb);
    FreeAndNil(paralist);
end;
Result:=retrun;
end;
值在传入、返回时，其是基于UTF-8进行的，C#显示中文是很常，而DELPHI就要进行UTF-8的转换了。大家
可通过Utf8ToAnsi()、AnsiToUtf8()进行转换。（编码转换是C#的优越性之一）

3、实现QQ的用户登录。
在QQ通信中用户必需要登录后才可以进行互相发送信息等。QQ的登录是很关键的，大家所看到的用户在线
，并不是用户的QQ一直连接着服务器，而是定时发送消信给服务器，证明自己还连着线，如果超出时间QQ
就认为用户已经掉线了。
在登录协议中，QQ的密码是用标准的MD5来进行加密，DELPHI的用户只需要下个MD5加密模块就可以了，而
C#自已带有，但是直接用不了，必需进行处理后，才能使其变成标准的MD5，处理代码如下：
 
          public static string MD5(string toCryString)
{
  MD5CryptoServiceProvider hashmd5;
  hashmd5 = new MD5CryptoServiceProvider();
  return
BitConverter.ToString(hashmd5.ComputeHash(Encoding.Default.GetBytes(toCryString))).Replace("
-","").ToLower();//asp是小写,把所有字符变小写
}
了解QQ是如何对用户密码加密后，那么我们就开始真正，解析QQ的HTTP登录协议了,我们把协议当传POST
的参数传给服务器，而服务器则回馈相应的信息给客户端：
传入协议：
VER=1.1&CMD=Login&SEQ=&UIN=&PS=&M5=1&LC=9326B87B234E7235
VER是用来说明QQ协议的版本，CMD是说明协议的命令，Login就是指QQ的登录了，SEQ是他的为了防止重
复发送而设定的一个标记，一般我们取当前时间数值的一段放入即可。（C#：DateTime.Now.Ticks.ToStr
ing().Substring(7,7) DELPHI：CopyStr(inttostr(GetTickCount()),1,5)），UIN是说明你当前要登录
的用户QQ号，PS，是MD5加密过后的密码的值。
返回协议：
VER=1.1&CMD=Login&SEQ=11281&UIN=&RES=0&RS=0&HI=60&LI=300（成功）
RES为0表示成功返回，RS为0表示登录成功。
VER=1.1&CMD=Login&SEQ=11422&UIN=315103947&RES=0&RS=1&RA=登录失败
RS为1表示登录失败，那么就会出现提示信息RA说明原因。
4、获得QQ名单。
如果您加了您的好友，那么您的好友就会放入你的QQ的好友名单里面，那么我们要得到QQ名单就必需给QQ
服务器发送得到好友名单的协议（我就不从复已知的参数了）：
VER=1.1&CMD=List&SEQ=&UIN=&TN=160&UN=0
服务器得到协议后如果成功则返回：
VER=1.1&CMD=LIST&SEQ=43661&UIN=29501213&RES=0&FN=1&SN=24&UN=561256,1943497,....
UN后面则是您好友的QQ号码，每个号码都由,进行分开。那么我们只需要得到UN后面的代码，把它列表化
就OK了。C#可以用string.Split(',')把值放入列表进行处理，而DELPHI可以使用Split()把数值放入TStr
ings里进行处理。
5、获得QQ好友在线名单
获得QQ好友在线名单，跟获得好友名单差不多，唯一不同的是用的命令不同用的是Query_Stat，协议如下
：
VER=1.1&CMD=Query_Stat&SEQ=&UIN=&TN=50&UN=0
服务器得到协议后如果成功则返回：
VER=1.1&CMD=QUERY_STAT&SEQ=-1&UIN=29501213&RES=0&FC=141,270,270,&FN=1&SN=3&ST=10,10,10,&UN=1
2327207,24259132,29501213,&NK= □,微程,鶹鸑,&
FC为QQ头像的的ID，如的头像ID为270，那么其头使用的图片为91.bmp,其算法为ID/3+1。ST为QQ用户的状
态，10为上线，20为离线，30为忙碌。UN为在线用户的QQ号，NK为在线用户的QQ昵称。ST，UN，NK，每个
逗号隔开的数据相互对应。在得到消息后如果用的是DELPHI语言，那么要用Utf8ToAnsi()进行转换，不然
会出现乱码。
6、得到QQ用户的信息。
如果要看到QQ用户的真实名称，MAIL，年龄，个人说明等信息，那么我们必需要向服务器发送得到好友信
息的信息：
VER=1.1&CMD=GetInfo&SEQ=&UIN=&LV=2&UN=
UN为要查看用户信息的QQ号。
服务器得到协议后如果成功则返回：
VER=1.1&CMD=GETINFO&SEQ=12707&UIN=415103947&RES=0&AD=云南昆明&AG=0&EM=Microprogramer@hotmail
.com&FC=270&HP=msger.org(建设中...)&JB=程序员&LV=2&PC=650000&PH=0871-6466529&PR=网络为媒%252
c关系为本%252c信息为财%252c客户为主.%0d%0a&PV=云南省&RN=刘X&SC=社会大学&SX=0&UN=24259132&NK=
微程
AD用户的联系地址，AG为用户年龄，EM为用户MAIL，FC为用户头像，HP为用户网站，JB为用户职业，PC为
用户邮编，PH为用户联系电话，PR为用户简介，PV为用户所以的省，RN为用户真实名称，SC为用户毕业院
校，SX为用户性别，UN为用户QQ号，NK为用户QQ昵称。在得到消息后如果用的是DELPHI语言，那么要用Ut
f8ToAnsi()进行转换，不然会出现乱码。
7、增加QQ好友。
想要新增好友，就要发送AddToList命令给服务器，具体命令如下：
VER=1.1&CMD=AddToList&SEQ=&UIN=&UN=
UN为我们要增加用户的QQ号。
服务器得到协议后如果成功则返回：
VER=1.1&CMD=AddToList&SEQ=13666&UIN=415103947&RES=0&CD=0&UN=24259132
CD为被加QQ的身份验证状态，CD为0表示“允许任何人把我列为好友”，CD为1表示“需要身份证认才能把
我列为好友”，CD为3表示“不允许任何人把我列为好友”。如果CD为0那么信息回馈后，用户就直接加为
好友了，如果CD为1，那么还要发送一次回应加为好友的响应。
8、回应加为好友的响应。
回应加为好友响应是双方的：1、如果你发送了请求加对方为好友，如果对方需要验证，那么必需发送回
应加为好友的响应。2、如果对方发送加为好友请求给你，那么你可以加应加为好友的响应，一是加为好
友，一是通过验证，一是拒决加为好友。我们要向服务器发送命令：
VER=1.1&CMD=Ack_AddToList&SEQ=&UIN=&UN=&CD=&RS=
CD为响应状态，CD为0表示“通过验证”。CD为1表示“拒决加为对方为好友”。CD为2表示“为请求对方
加为好友”。RS为你要请求的理由，如果您用的是DELPHI那么RS在发送之间要用AnsiToUtf8()进行转换，
不然发送过后，请求理由会变成“？”。
服务器得到协议后如果成功则返回：
VER=1.1&CMD=Ack_AddToList&SEQ=1130&UIN=415103947&RES=0&
9、删除好友。
删除好友其实很容易，向服务器发送DelFromList命令则可以删除用户：
VER=1.1&CMD=DelFromList&SEQ=&UIN=&UN=
UN为要删除用户的QQ号。
服务器得到协议后如果成功则返回：
VER=1.1&CMD=DelFromList&SEQ=24514&UIN=415103947&RES=0&
10、改变用户当前状态。
可以把QQ设置为在线，隐身等状态，我们可以发送Change_Stat给服务器以改变当前状态，具体命令如下
：
VER=1.1&CMD=Change_Stat&SEQ=&UIN=&ST=
ST为要改变的状态，10为上线，20为离线，30为忙碌。
服务器得到协议后如果成功则返回：
VER=1.1&CMD=Change_Stat&SEQ=17512&UIN=415103947&RES=0&
11、退出登录
要退出登录，要向服务器发送命令Logout，具体命令如下：
VER=1.1&CMD=Logout&SEQ=&UIN=
服务器得到协议后如果成功则返回：
VER=1.1&CMD=LOGOUT&SEQ=15803&UIN=415103947&RES=0
12、获得好友QQ的消息
如果要接收好友的消息，要向服务器发送命令GetMsgEx，具体命令如下：
VER=1.1&CMD=GetMsgEx&SEQ=&UIN=
服务器得到协议后如果成功则返回：
VER=1.1&CMD=GETMSGEX&SEQ=56661&UIN=29501213&RES=0&MN=3&MT=99,9,9,&UN=24259132,24259132,24259
132,&MG=30 ,asdfasdfasdfasdf ,asdfasdfasdf ,&
MT表示消息类型，99表示系统消息，9表示用户消息。UN表示消息发送来源用户，MG表示发送的消息，MG
消息可以表示某些特定的系统含意，譬如：当MT为99，MG为30，UN为24259132则表示用户4259132现在处
于忙碌状态，可根据此消息进行好友列表的刷新，提高效率。在得到消息后如果用的是DELPHI语言，那么
要用Utf8ToAnsi()进行转换，不然会出现乱码。
13、向好友QQ发送消息
要发送消息给好友，要向服务器发送命令CLTMSG命令，具体命令如下：
VER=1.1&CMD=CLTMSG&SEQ=&UIN=&UN=&MG=
UN为消息发送给的用户QQ号码，MG为发送给该用户的消息。如果您用的是DELPHI那么MG在发送之间要用An
siToUtf8()进行转换，不然发送过后，消息会变成“？”。
服务器得到协议后如果成功则返回：
VER=1.1&CMD=CLTMSG&SEQ=15803&UIN=415103947&RES=0
好了，以上就是QQ基于HTTP的一个不完全的协议分析，在无源码前提下，在下能力有限，只能够分析这么
多了。利用以上协议您就可以实现很多东西，如：QQ机器人，QQ广告系统，即时通讯的整合工具等等。

http://221.176.31.39:8080/

    采用UDP协议，通过服务器中转方式。因此，现在的IP侦探在你仅仅跟对方发送聊天消息的时候是无法获取到IP的。大家都知道，UDP 协议是不可靠协议，它只管发送，不管对方是否收到的，但它的传输很高效。但是，作为聊天软件，怎么可以采用这样的不可靠方式来传输消息呢？于是，腾讯采用了上层协议来保证可靠传输：如果客户端使用UDP协议发出消息后，服务器收到该包，需要使用UDP协议发回一个应答包。如此来保证消息可以无遗漏传输。之所以会发生在客户端明明看到“消息发送失败”但对方又收到了这个消息的情况，就是因为客户端发出的消息服务器已经收到并转发成功，但客户端由于网络原因没有收到服务器的应答包引起的。

三、文件/自定义表情传送。

    大家都知道，QQ可以传送文件，可以发送自定义表情。先说官方表情。官方表情实际发送的是命令字，而没有发送表情。客户端收到命令字后，会自动解释为对应的表情。因此，QQ2008正式版的客户端发出的新版表情，在2007beta4及以前的版本无法找到相对应的表情，就无法解释，看到的就会是空白信息，但查聊天记录就会有[表情]字样。
    自定义表情的传送是以文件传输方式进行的。
    下面说文件传输方式：A要向B发送一个文件，于是发出一个文件传送请求。服务器收到这个文件传送请求后，转发给B，同时或者在B应答后，将A的IP地址同时发送给B。B这个时候就得到了A的真实IP。这里的IP是你的本机IP。也就是说，如果A处在内网，B得到的地址就是一个内网地址。B得到了A的地址之后，就会尝试去连接A。如果B也处于内网，那么，显然A跟B之间的连接是无法建立的。这个时候，客户端就会请求服务器进行文件中转。因为服务器具有公网 IP，处在内网的A跟B都是可以连接到服务器的，于是，A跟B的文件传送就通过服务器中转的方式，顺利进行。（注：服务器文件中转使用443端口）

*   注:什么是内网、公网
    内网、公网是两种Internet的接入方式。
    内网接入方式：上网的计算机得到的IP地址是Inetnet上的保留地址，保留地址有如下3种形式：
    10.x.x.x
    172.16.x.x至172.31.x.x
    192.168.x.x
    内网的计算机以NAT（网络地址转换）协议，通过一个公共的网关访问Internet。
    内网的计算机可向Internet上的其他计算机发送连接请求，但Internet上其他的计算机无法向内网的计算机发送连接请求。
    公网接入方式：上网的计算机得到的IP地址是Inetnet上的非保留地址。公网的计算机和Internet上的其他计算机可随意互相访问。

    所以,如果一个局域网只开放80端口，QQ是可以登陆成功的，也可以进行聊天。但传送文件也是不可以的，除非你们都在同一个内网。如果局域网还同时开放443端口，那么，恭喜你，QQ的功能你都可以正常使用。

QQ是不是TCP和UDP一起用?如果用UDP,如何做到信息的可靠发送?
答Q即可以使用TCP也可以使用UDP,但QQ默认是使用UDP协议,因为UDP协议消耗资源小,发送速度快,但当UDP协议不能正常转发的时候,就会采用TCP协议进行发送.
而信息的可靠发送是通过各种验证机制来完成的,这一点你可以去GOOGLE之类的网站去搜索下.

QQ用的是UDP打洞技术还是HTTP遂道?
答:发送消息的时候是UDP打洞,登陆的时候使用HTTP~因为登陆服务器其实就是一个HTTP服务器,只不过不是常用的那些,那个服务器是TX自行开发的

因为用户一般都是在局域网内,地址都为私有IP,IM服务器是如何将信息转发到用户的?
答:如果使用TCP就没什么好说了~由内网向外网连接,只要能够连接上进行握手了,消息就可以畅通无阻的进行发送了.如果使用UDP的话,就是使用的打洞技术了,只要通道打通了,发送消息基本和TCP没什么区别,要做的只是维护消息的完整性而已.

QQ是一个基于TCP/UDP协议的通讯软件，而MSN是基于TCP协议的通讯软件。

那么QQ是如何通讯的呢？在TCP/IP协议中，唯一标识一个应用进程的是socket，它通过网络层的IP地址和传输层的端口号来实现，对与同一个IP地址的内部网络，通过不同的端口号来标识不同的QQ进程；当你登陆QQ游戏服务器的时候，服务器会保留你的保留IP地址和端口号信息，并在你的好友的QQ进程中进行列表显示，然后两个进程就可以通信了。
　　通常，发送文件的计算机首先要通过消息服务器将其IP地址发送给接收计算机，当接收计算机同意接收的确认消息反馈到消息服务器后，消息服务器将据此设置好文件传输对话。随即，发送计算机与接收计算机就会在确定好的端口范围内，建立起TCP或UDP连接开始文件的检索与传输。
　　在默认状态下，QQ优先采用了UDP（User Data Protocol，用户数据报协议）协议传送数据，而对可靠性要求高的数据通讯系统往往使用TCP协议传输数据。与TCP协议不同，UDP协议并不提供数据传送的验证机制——在整个文件传输过程中如果出现数据报的丢失，协议本身并不能作出任何的检测或提示。因此，通常人们把UDP协议称为不可靠的传输协议。
　　UDP协议适用于无须应答、要求时效的软件使用，这样的设计正好与QQ追求的目标相符，所以QQ优先使用了此协议进行一切功能应用。但是，由于　　UDP协议具有不可靠性，常会因种种原因导致消息或数据的发送失败（很多时候会发现发送文件给对方接收时，对方根本收不到要求接收文件的消息。或是发送聊天消息时，对方根本没有收到过消息）。显然，UDP协议由于排除了信息可靠传递机制，将安全和排序等功能移交给上层应用来完成，极大降低了执行时间，使速度得到了保证。QQ在数据传输上更注重实际性能，为了获得更好的使用效果，往往可以牺牲一定的可靠性。因此，使用QQ来传输数据，在很多时候就成了一个“不错”的选择。
　　一般内网传输首选QQ，速度最快，QQ的文件传输是直接个人对个人，采用P2P的传输方式，具有不需中转的优势，而且服务器都在国内，传输性能要高于外国IM软件。
 

悠索科技绩效考核系统(企业关键业绩考核系统)是黑龙江悠索工作室开发的产品。本系统采用.Net2008 开发，数据库基于Access/SQL2000/2005/2008 引擎开发。系统运行环境为.NET2.0+IIS6.0 基础环境。系统功能主要特色是可以自建部门，科室、员工信息。评估指标的项目和分数可以通过后台进行设置，您可以随便根据自己的需求进行定义。可以批量评价员工信息，不同的角色可以使用不同的评估指标进行评价。评估后的数据可以采用FLASH技术以图表的格式显示出来，方便使用的企业进行数据分析和数据挖掘。相关的数据均可以导出EXCEL 文档，方便保存和打印。系统在边防站和公安部门内部测试运行良好。

系统主要功能特色：
1、采用先进的开发技术.Net2.0+AJAX 技术实现，安全稳定，运行速度快；
2、评估时间段的自定义，可以随意的增加和删除相关时间段；
3、部门可以自行定义，可以随意的增加和删除部门信息；
4、科室可以自行定义，可以随意的增加和删除科室信息；
5、角色可以自行定义，可以随意的增加和删除角色信息；
6、登陆日志和操作日志，记录系统的运行情况；
7、评价指标可以自行定义，指标和角色关联，评估不同的角色使用不同的指标；指标
的数量和内容完全自己定义；
8、文件管理功能，类似Windows 的资源管理器，方便管理各种资源；
9、用户管理功能方便，可以方便的查询用户信息，管理用户资料；
10、数据评估功能是本系统的重要特色，使用树结构显示部门信息，选择部门后使用图
片默认显示相关人员，可以批量选择人员后在进行批量的评价；已经评价的用户显示灰色，
不能在进行评价；
11、在进行评价的时候，可以查看到人员的名称，点击名称可以查看详细的人员信息，
防止评价错误；
12、评估查询方便，直接显示被评价人的总分，平均分，评价人数，可以查看详细的得
分情况，但是不能显示是谁评价的(考虑评价人的身份保密性，采用匿名功能)
13、可以把任何的列表信息保存成Excel 文件，方便存档；
14、数据报表采用Flash 技术，可以让您更方便的分析系统内人员的成绩信息。
如果系统功能不满足您的要求，可以联系我们进行改进。
15、留言反馈留言板功能，用户可以通过留言板和管理员以及其他用户进行交流。

正式版本安装需要购买虚拟主机或者自己的虚拟服务器。软件运行要求如下：
1、IIS6.0 或以上。（如何安装可以联系我们）
2、.Net2.0
3、数据库支持Access2003
4、AJAX1.0 可以不安装
5、Windows2000/2003Server(XP 有连接数限制，不赞成使用)
6、本软件不支持虚拟目录，请放到站点根目录下方可运行
正式用户的安装，我方提供首次免费安装服务