翻译一段asp语句！！

Set Cmd = Server.Createobject("ADODB.Command")
Cmd.ActiveConnection = Connstr
Cmd.CommandText = "Per_Addons"
Cmd.CommandType = 4
Cmd.Parameters.Append Cmd.CreateParameter("@Perid",200,1,30)
Cmd.Parameters("@Perid") = Perid
Set Rs = Cmd.Execute
If Rs.Eof Then
CloseRs
Set Cmd = Nothing
CloseDB
Response.write ""
Response.End()
End if
Tmp = Rs.GetRows() '//将数据填充到数组
'//0姓名,1用户类型,2计算机水平,3第一语言,4第二语言,5第一语言掌握程度,6第二语言掌握程度,7普通话水平,8技能关键字,9技能描述,10计算机技能,11照片文件,12照片屏蔽
'//如：Tmp(0,0)表示 用户的姓名
CloseRs
Set Cmd = Nothing
'//功能代码
UserType = Cls_Usertype(Tmp(1,0))
Language_One = Tmp(3,0)
Language_Two = Tmp(4,0)
Mandarin = Tmp(7,0)
Computer = Tmp(2,0)
PhotoUrl = Tmp(11,0)
PhotoKeep = Tmp(12,0)
Skill_Memo = Tmp(9,0)

'//调用存储过程2
Set Cmd1 = Server.Createobject("ADODB.Command")