select-asp 文件转换php实现，主要是SQLSERVER里的存储过程转换成mysql语句写不出来！

selectphp

=================存储过程===================== ==
ALTER PROCEDURE [dbo].[CreatUser]
-- 在此处添加存储过程的参数
@Username varchar(50),
@userPassword varchar(50),
@QQID varchar(11),
@nResult int 输出
AS
BEGIN
声明 @Qid int
set @Qid=null
从 [user] 中选择 @Qid=id，其中qusername=@Username
如果@Qid 不为空
开始
设置@nResult=-1
转到结束
结束
INSERT INTO [qqmsg].[dbo].user
选择@QQID,@用户名,@userPassword
set @nResult=0

theEnd:
SET NOCOUNT ON;
END

-- ==== ===========================================
--作者：刘书明
-- 创建日期：今天
-- 描述：一些用途
-- ============================= ==================
ALTER PROCEDURE [dbo].[insertFriendGroup]
-- 在此处添加存储过程的参数
@GroupName varchar( 50),
@Ownerqid varchar(11),
@Groupid int 输出
AS
BEGIN
声明 @Qid int
设置 @Qid=null
选择 @Qid=来自 [user] 的 id，其中 qid=@Ownerqid
如果 @Qid 为 null
set @Groupid=-1
else
begin
set @Qid =null
选择 @Qid=来自 [qqmsg].[dbo].[FriendQIDFolder] 的 id，其中 [ownerQid]=@Ownerqid 且 [FolderName]=@GroupName
如果 @Qid 为 null
begin
INSERT INTO [qqmsg].[dbo ].FriendQIDFolder
选择 @Ownerqid,@GroupName
从 [FriendQIDFolder] 中选择前 1 个 @Groupid=id，其中
[ownerQid]=@Ownerqid 和 [FolderName]=@GroupName
end
else
设置 @Groupid=-2

<code>endSET NOCOUNT ON;</code>

END
====================asp 文件===== =============
dim 用户名,用户密码,QQ
用户名=请求("用户名"):用户名=Checkstr(用户名)
userPassword=请求("用户密码" ):userPassword=Checkstr(userPassword)
QQID=request("QQID"):QQID=Checkstr(QQID)
用户名=trim(用户名):userPassword=trim(userPassword):QQID=trim(QQID)
if Username="" or userPassword="" or QQID="" then
response.write "err"
else
调用 StoreData()
end if
调用 CloseConn()
sub StoreData()
错误恢复下一个
Dim Cmd
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection=conn
cmd.CommandText ="[CreateUser]"
cmd.CommandType=4

<code>    cmd.Parameters.Append cmd.CreateParameter("@Username",201,1,50)            cmd.Parameters.Append cmd.CreateParameter("@userPassword",201,1,50)            cmd.Parameters.Append cmd.CreateParameter("@QQID",201,1,11)    cmd.Parameters.Append cmd.CreateParameter("@nResult",3,2,4)    cmd("@Username")=Username    cmd("@userPassword")=userPassword    cmd("@QQID")=QQID    Cmd.Execute</code>

if err then
response.write "err"&err.description
else
response.write Cmd( "@nResult")
结束 if
结束子