%
function TransComm(sPartComm,sFind,sColor)
dim iStartPos
dim iEndPos
dim sPartComm2
dim ExitFlag
iStartPos=1
iEndPos=1
ExitFlag=false
dim i
i=1
do while not ExitFlag
iStartPos=instr(iStartPos,sPartComm,sFind)
if iStartPos<>0 then
if iEndPos=1 then
sPartComm2=sPartComm2&mid(sPartComm,iEndPos,iStartPos-iEndPos)
else
sPartComm2=sPartComm2&mid(sPartComm,iEndPos+1,iStartPos-iEndPos-1)
end if
iEndPos=instr(iStartPos,sPartComm,"/")
if iEndPos=0 then iEndPos=instr(iStartPos,sPartComm," ")
if iEndPos>0 then
iEndPos=iEndPos-1
else
iEndPos=len(sPartComm)
ExitFlag=true
end if
else
if iEndPos=1 then
sPartComm2=sPartComm
else
sPartComm2=sPartComm2&mid(sPartComm,iEndPos+1)
end if
exit do
end if
sPartComm2=sPartComm2&""&mid(sPartComm,iStartPos,iEndPos-iStartPos+1)&""
if ExitFlag then
'if sFind="A4" then response.Write(i&sPartComm2&";")
exit do
else
iStartPos=iEndPos
end if
i=i+1
loop
TransComm=sPartComm2
end function
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>
<%
dim RS
set RS=server.CreateObject("Adodb.Recordset")
sql="select * from goods "
if request("type")<>"" then
sql=sql&" where part_type='"&request("type")&"'"
elseif request("findpart")<>"" then
sql=sql &"where part_name like '%"&request("findpart")&"%' or part_din like '%"&request("findpart")&"%' or tec_image like '%"&request("findpart")&"%'"
end if
sql=sql &" order by id"
RS.open sql,conn,adopenkeyset
do while not RS.eof
%>