%Response.Buffer=true%> <% Dim ObjRst,ObjCon,StrSql,StrWhere,StrOrder,StrQry,SubRst Set ObjRst=Server.CreateObject("ADODB.RecordSet") Set SubRst=Server.CreateObject("ADODB.RecordSet") Set ObjCon=Server.CreateObject("ADODB.Connection") ObjCon.Open DataBase //庫連接 ObjRst.Open "select * from diy_productlst where corpid="&CorpNo*10,ObjCon %>
|
|
|||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||