有哪位高人能解释以下asp代码

来源：互联网发布：qq三国js加智力编辑：程序博客网时间：2024/04/28 06:50

  <%  Set Cmd = Server.CreateObject("ADODB.Command")
    Set Cmd.ActiveConnection=Conn
    Cmd.CommandText="List_Data"
    Cmd.CommandType=4
    Cmd.Parameters.Append cmd.CreateParameter("@City_OneID",200,1,10)
    Cmd.Parameters.Append cmd.CreateParameter("@City_TwoID",200,1,10)
    Cmd.Parameters.Append cmd.CreateParameter("@City_ThreeID",200,1,10)
    Cmd.Parameters.Append cmd.CreateParameter("@Type_OneID",200,1,10)
    Cmd.Parameters.Append cmd.CreateParameter("@Type_TwoID",200,1,10)
    Cmd.Parameters.Append cmd.CreateParameter("@Type_ThreeID",200,1,10)
    Cmd.Parameters.Append cmd.CreateParameter("@IsPic",200,1,1)
    Cmd.Parameters.Append cmd.CreateParameter("@IsMoney",200,1,1)
    Cmd.Parameters.Append cmd.CreateParameter("@IsHot",200,1,1)
    Cmd.Parameters.Append cmd.CreateParameter("@IsTop",200,1,1)
    Cmd.Parameters.Append cmd.CreateParameter("OrderType",200,1,1)
    Cmd.Parameters.Append cmd.CreateParameter("@Returns",200,1,10)
    Cmd.Parameters.Append cmd.CreateParameter("@ReturnType",200,1,1)
    Cmd("@City_OneID")=City_OneID
    Cmd("@City_TwoID")=City_TwoID
    Cmd("@City_ThreeID")=City_ThreeID
    Cmd("@Type_OneID")=Type_OneID
    Cmd("@Type_TwoID")=Type_TwoID
    Cmd("@Type_ThreeID")=Type_ThreeID
    Cmd("@IsPic")=IsPic
    Cmd("@IsMoney")=IsMoney
    Cmd("@IsHot")=IsHot
    Cmd("@IsTop")=IsTop
    Cmd("OrderType")=OrderType
    Cmd("@Returns")=Returns
    Cmd("@ReturnType")=ReturnType
    Set Rs=Cmd.Execute
    If Not Rs.Eof Then
     If Starters>0 Then Rs.Move(Starters)
     If Not Rs.Eof Then List_Data = Rs.GetRows
    End If
    Rs.close():Set Rs=Nothing
    Set Cmd = Nothing
%>