Asp调用存储过程添加记录—看了一天了，都不知道错哪！极度崩溃~~！

kanjing 2008-07-05 09:14:29

大家帮我看看~~错哪里？记录就是加不进去，也没提示错误，用recordset加就没问题~

'///////数据表Game_Data结构'//////////////////////////////////////////////////



2	Game_ID	int	4	0

0	Game_CnName	varchar	100	0

0	Game_EnName	varchar	100	1

0	Game_KeyWords	varchar	200	0

0	Game_Description varchar 200	0

0	Game_MinPic	varchar	200	0

0	Game_Url	varchar	200	0

0	Game_Url_1	varchar	200	1

0	Game_Url_2	varchar	200	1

0	Game_HelpText	text	16	0

0	Game_ModelID	int	4	1

0	Game_AddTime	datetime 8	1

0	Game_Hits	int	4	1

0	Game_Lang	varchar	50	1

0	Game_SortID	int	4	1

0	Game_isGood	bit	1	1

0	Game_isTop	bit	1	1

0	Game_isShow	bit	1	1

0	Game_isMake	bit	1	1

0	Class_ID	int	4	0

0	Item_ID	int	4	1

1	Subject_ID	int	4	1

'//////////////存储过程Game_addGame//////////////////////////////////////////////



CREATE PROCEDURE dbo.Game_addGame

	(

	@Game_CnName varchar(100),

	@Game_EnName varchar(100),

	@Game_KeyWords varchar(200),

	@Game_Description varchar(200),

	@Game_Lang varchar(50),

	@Game_Hits int,

	@Game_MinPic varchar(200),

	@Class_ID int,

	@Item_ID int,

	@Subject_ID int,

	@Game_ModelID int,

	@Game_Url varchar(200),

	@Game_Url_1 varchar(200),

	@Game_Url_2 varchar(200),

	@Game_HelpText text,

	@Game_isGood bit,

	@Game_isTop bit,

	@Game_isShow bit,

	@Game_isMake bit

	)

AS



	insert into Game_Data(Game_CnName,Game_EnName,Game_KeyWords,Game_Description,Game_Lang,Game_Hits,Game_MinPic,Class_ID,Item_ID,Subject_ID,Game_ModelID,Game_Url,Game_Url_1,Game_Url_2,Game_HelpText,Game_isGood,Game_isTop,Game_isShow,Game_isMake) values (@Game_CnName,@Game_EnName,@Game_KeyWords,@Game_Description,@Game_Lang,@Game_Hits,@Game_MinPic,@Class_ID,@Item_ID,@Subject_ID,@Game_ModelID,@Game_Url,@Game_Url_1,@Game_Url_2,@Game_HelpText,@Game_isGood,@Game_isTop,@Game_isShow,@Game_isMake)

        RETURN

GO

'/////////////保存页面save.asp/////////////////////////////////////////////////////////////////////



Game_CnName=filterstr(request("Game_CnName"))

Game_EnName=filterstr(request("Game_EnName"))

Game_KeyWords=filterstr(request("Game_KeyWords"))

Game_Description=filterstr(request("Game_Description"))

Game_Lang=request("Game_Lang")

Game_Hits=request("Game_Hits")

Game_MinPic=filterstr(request("Game_MinPic"))

Class_ID=request("Class_ID")

Item_ID=request("Item_ID")

Subject_ID=request("Subject_ID")

Game_ModelID=request("Game_ModelID")

Game_Url=filterstr(request("Game_Url"))

Game_Url_1=filterstr(request("Game_Url_1"))

Game_Url_2=filterstr(request("Game_Url_2"))

Game_HelpText=filterstr(request("Game_HelpText"))

Game_isGood=request("Game_isGood")

Game_isTop=request("Game_isTop")

Game_isShow=request("Game_isShow")

Game_isMake=request("Game_isMake")



Set MyComm = Server.CreateObject("ADODB.Command")

MyComm.ActiveConnection = ewcn 'ewcn是数据库连接字串

MyComm.CommandText = "Game_addGame" '指定存储过程名

MyComm.CommandType = 4 '表明这是一个存储过程

MyComm.Prepared = true '要求将SQL命令先行编译



MyComm.Parameters.append MyComm.CreateParameter("@Game_CnName",200,1,100,Game_CnName)

MyComm.Parameters.append MyComm.CreateParameter("@Game_EnName",200,1,100,Game_EnName)

MyComm.Parameters.append MyComm.CreateParameter("@Game_KeyWords",200,1,200,Game_KeyWords)

MyComm.Parameters.append MyComm.CreateParameter("@Game_Description",200,1,200,Game_Description)

MyComm.Parameters.append MyComm.CreateParameter("@Game_Lang",200,1,50,Game_Lang)

MyComm.Parameters.append MyComm.CreateParameter("@Game_Hits",3,1,,Game_Hits)

MyComm.Parameters.append MyComm.CreateParameter("@Game_MinPic",200,1,200,Game_MinPic)

MyComm.Parameters.append MyComm.CreateParameter("@Class_ID",3,1,,Class_ID)

MyComm.Parameters.append MyComm.CreateParameter("@Item_ID",3,1,,Item_ID)

MyComm.Parameters.append MyComm.CreateParameter("@Subject_ID",3,1,,Subject_ID)

MyComm.Parameters.append MyComm.CreateParameter("@Game_ModelID",3,1,,Game_ModelID)

MyComm.Parameters.append MyComm.CreateParameter("@Game_Url",200,1,200,Game_Url)

MyComm.Parameters.append MyComm.CreateParameter("@Game_Url_1",200,1,200,Game_Url_1)

MyComm.Parameters.append MyComm.CreateParameter("@Game_Url_2",200,1,200,Game_Url_2)

MyComm.Parameters.append MyComm.CreateParameter("@Game_HelpText",201,1,,Game_HelpText)

MyComm.Parameters.append MyComm.CreateParameter("@Game_isGood",11,1,,Game_isGood)

MyComm.Parameters.append MyComm.CreateParameter("@Game_isTop",11,1,,Game_isTop)

MyComm.Parameters.append MyComm.CreateParameter("@Game_isShow",11,1,,Game_isShow)

MyComm.Parameters.append MyComm.CreateParameter("@Game_isMake",11,1,,Game_isMake)



MyComm.Execute

Set MyComm = Nothing

showmsg("添加成功~")