帮忙给解释一下吧

dim cn,rs,cmd,param1 set cn=server.createobject("adodb.connection") set cmd=server.createobject("adodb.command") cn.open "driver={sql server};server=***;database=*******;uid=sa;pwd=*******" cmd.activeconnection=cn cmd.commandtype=4 cmd.commandtext="showid" if len(request("txtid"))=0 then set rs=cmd.execute else param1=cmd.createparameter("@id",200,1,10,request("txtid")) cmd.parameter.append param1 set rs=cmd.execute

[此贴子已经被作者于2005-6-6 16:19:23编辑过]