<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%option Explicit Dim ThisID ThisID=5 response.charset="utf-8"%><% Dim KeyIC,MinID MinID=0 KeyIC=request("key") If KeyIC<>"" Then KeyIC=Replace(KeyIC,"'","''") sql="select model_id from model where model_name='" &KeyIC&"'" id=Get_Top1(sql,2) ElseIf request("id")<>"" Then id=request("id") End If If id="" Or Not IsNumeric(id) Then id=0%> <%Func_Title%> <%Function Func_Title() Dim rs,sql,icName,icNameAll,showAll 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 If icName="" Then icName=Trim(rs(0)) icNameAll=icNameAll & Trim(rs(0)) & "," rs.movenext loop rs.close set rs=Nothing If IsNull(icName) Then icName="" If IsNull(icNameAll) Then icNameAll="" showAll="" & icName & " pdf," & icName & " 采购," & icName & "报价," & icName & "询价 北京中其伟业科技有限公司" & vbCrLf showAll=showAll & "" & vbCrLf showAll=showAll & "" response.write(showAll) End Function%>
热门IC: <% set rs=server.CreateObject("adodb.recordset") If id=0 Then sql="select top 10 model_name,model_id from model where model_id in (select top 100 model_id from model order by model_id desc) order by newid()" Else sql="select top 10 model_name,model_id from model where model_id>" & (id+1000) & " order by model_id" End if rs.open sql,conn2,1,1 do while not rs.eof response.write("" & Trim(rs(0)) & " ") rs.movenext loop rs.close set rs=Nothing %>

IC快速检索:

1 2 3 4 5 6 7 8 9 10

型号 / 厂家,封装,批号,备注,订购

<% 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%>

><%=Trim(rs(0))%> / <%=Show_Xic(Trim(rs(0)))%> 订购 PDF文档

<%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 %>