happydreamer(小黑-不懂的太多) 大侠请进！

Question

<% @ Language=VBScript %><!--#include file=adovbs.inc-->
.....
sName=request.form("txtName")
set conn=server.CreateObject ("adodb.connection")
conn.Mode=admodereadwrite
conn.ConnectionString=constr
conn.CursorLocation=aduseclient
conn.Open strConnset cmd=server.CreateObject("adodb.command")
with cmd
.ActiveConnection=conn
.CommandText="getPriceProceduress"
.CommandType=adCmdStoredProc '4
end withcmd.Parameters.Append cmd.CreateParameter("@name1",200,1,15,sName)
set rs=cmd.executeif rs.State = adStateClosed then （提示错误信息）
conn.Close 
set rs=nothing 
set conn = nothing 
cm.Parameters("RETURN_VALUE").Value 
else(处理结果集)

Answer 1

CREATE PROCEDURE getPriceProceduress
@name1 varchar(15)
AS
declare @sql varchar(8000)
set @sql = 'select cp_1 as 产品名称,cp_5 as 报价日期,'
select @sql = @sql + ',sum(case cp_2 when '''+cp_2+''' 
 then cp_3 else 0 end) ['+cp_2+'],'
 from (select distinct cp_2 from cpmo) a
select @sql = @sql+ '  from cpmo  group by cp_1,cp_5  where cp_1='''+@name1+''' order by cp_5 desc'
exec(@sql)

Answer 2

CREATE PROCEDURE getPriceProceduress
@name1 varchar(15)
AS
declare @sql varchar(8000)
set @sql = 'select cp_1 as 产品名称,cp_5 as 报价日期,'
select @sql = @sql + ',sum(case cp_2 when '''+cp_2+''' 
 then cp_3 else 0 end) ['+cp_2+']'
 from (select distinct cp_2 from cpmo) a
select @sql = @sql+ '  from cpmo  group by cp_1,cp_5  where cp_1='''+@name1+''' order by cp_5 desc'
exec(@sql)