IC快速检索:
型号 / 厂家,封装,批号,备注,订购
<% set rs=server.CreateObject("adodb.recordset") sql="select top 10 model_name,model_id from model where model_id>=" & id & " order by model_id" rs.open sql,conn2,1,1 do while not rs.eof%> <%id=rs(1) If MinID=0 Then MinID=id rs.movenext loop rs.close set rs=Nothing 'CREATE TABLE [Stock] ( ' [sHeadid] [int] IDENTITY (1, 1) NOT NULL , ' [sBName] [nchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL , ' [sCJName] [varchar] (100) COLLATE Chinese_PRC_CI_AS NULL , ' [sfz] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL , ' [sPH] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL , ' [sDescribe] [varchar] (100) COLLATE Chinese_PRC_CI_AS NULL , ' [intNum] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL , ' [sPrice] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL , ' [IntAmount] [varchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL , ' [dFBTime] [datetime] NOT NULL CONSTRAINT [DF_Stock1_dFBTime] DEFAULT (getdate()), ' [dTime] [datetime] NOT NULL CONSTRAINT [DF_Stock1_dTime] DEFAULT (getdate()), ' [userid] [int] NULL CONSTRAINT [DF_Stock1_userid] DEFAULT (40), ' [biccp] [int] NULL CONSTRAINT [DF_Stock1_biccp] DEFAULT (0), ' [Bhyty] [bit] NULL CONSTRAINT [DF_Stock1_Bhyty] DEFAULT (0), ' CONSTRAINT [PK_Stock1] PRIMARY KEY CLUSTERED ' ( ' [sHeadid] ' ) ON [PRIMARY] ') ON [PRIMARY] 'GO Function Show_Xic(xic1) On Error Resume next Dim rs,sql xic1=Replace(xic1,"'","''") set rs=server.CreateObject("adodb.recordset") sql="select top 1 sCJName,sfz,sPH,sDescribe from stock where sBName='" & xic1 & "'" 'response.write("[" &sql & "]") rs.open sql,conn2,1,1 If Not rs.eof Then response.write(Trim(rs(0)) & "," & Trim(rs(1)) & "," & Trim(rs(2)) & "," & Trim(rs(3)) ) Else response.write(",,,原装现货") End if rs.close set rs=Nothing End Function %>