解决了!
找到相应的替换成
If DataBaseType=1 Then
Dim Cmd : Set Cmd = Server.CreateObject("ADODB.Command")
Set Cmd.ActiveConnection=conn
Cmd.CommandText="KS_GetPageRecords"
Cmd.CommandType=4
CMD.Prepared = true
Cmd.Parameters.Append cmd.CreateParameter("@tblName",202,1,200)
Cmd.Parameters.Append cmd.CreateParameter("@fldName",202,1,200)
Cmd.Parameters.Append cmd.CreateParameter("@pagesize",3)
Cmd.Parameters.Append cmd.CreateParameter("@pageindex",3)
Cmd.Parameters.Append cmd.CreateParameter("@ordertype",3)
Cmd.Parameters.Append cmd.CreateParameter("@strWhere",202,1,1000)
Cmd.Parameters.Append cmd.CreateParameter("@fieldIds",202,1,1000)
Cmd("@tblName")=KS.C_S(ChannelID,2)
Cmd("@fldName")= OrderField
Cmd("@pagesize")=MaxPerPage
Cmd("@pageindex")=page
Cmd("@ordertype")=OrderType
Cmd("@strWhere")=Param
Cmd("@fieldIds")=FieldStr
Set Rs=Cmd.Execute
Set Cmd=Nothing