<%
sub CheckUser()
dim conn,rst
dim strUser,strPassword
strUser=HTMLEncode(request("user"))
strPassword=HTMLEncode(request("Password"))
if strUser<>"" and strPassword<>"" then
set conn=server.createobject("adodb.connection")
set rst=server.createobject("adodb.recordset")
conn.open strConnection
set rst=conn.execute("select MemberID from Member where MemberID='"+strUser+"'"+" and MemberPassword='"+strPassword+"'")
if not rst.eof then
session("CMMMember")=strUser%>
<%else%>
<%end if
rst.close
conn.close
set rst=nothing
set conn=nothing
end if
end sub
%>
<%
set rs1=server.createobject("adodb.recordset")
sql="select name,id from kind2 where kind1id='27'"
rs1.open sql,conn,1,1
if not (rs1.eof and rs1.bof) then
do while not rs1.eof
set rs3=server.createobject("adodb.recordset")
%>
<%
rs3.movenext
loop
end if
%>
<%
rs1.movenext
loop
end if
rs1.close
rs3.close
%>
<%
set rs1=server.createobject("adodb.recordset")
sql="select name,id from kind2 where kind1id='33' order by xule desc"
rs1.open sql,conn,1,1
if not (rs1.eof and rs1.bof) then
do while not rs1.eof
set rs3=server.createobject("adodb.recordset")
%>
<%
rs3.open "select name,id from product where kind1id='33' and kind2id='"&rs1("id")&"' order by xule desc",conn,1,1
if not rs3.eof then
do while not rs3.eof
%>
<%
rs3.movenext
loop
end if
%>
<%
rs1.movenext
loop
end if
rs1.close
rs3.close
%>
<%
set rs1=server.createobject("adodb.recordset")
sql="select name,id from kind2 where kind1id='28' order by xule desc"
rs1.open sql,conn,1,1
if not (rs1.eof and rs1.bof) then
do while not rs1.eof
set rs3=server.createobject("adodb.recordset")
%>
<%
rs3.open "select name,id from product where kind1id='28' and kind2id='"&rs1("id")&"' order by xule desc",conn,1,1
if not rs3.eof then
do while not rs3.eof
%>
<%
rs3.movenext
loop
end if
%>
<%
rs1.movenext
loop
end if
rs1.close
rs3.close
%>
<%
set rs1=server.createobject("adodb.recordset")
sql="select name,id from kind2 where kind1id='30' order by xule desc"
rs1.open sql,conn,1,1
if not rs1.eof then
do while not rs1.eof
set rs3=server.createobject("adodb.recordset")
%>
<%
rs3.open "select name,id from product where kind1id='30' and kind2id='"&rs1("id")&"' order by xule desc",conn,1,1
if not rs3.eof then
do while not rs3.eof
%>
<%
rs3.movenext
loop
end if
%>
<%
rs1.movenext
loop
end if
rs1.close
rs3.close
%>
<%
set rs1=server.createobject("adodb.recordset")
sql="select name,id from kind2 where kind1id='32' order by xule desc"
rs1.open sql,conn,1,1
if not (rs1.eof and rs1.bof) then
do while not rs1.eof
set rs3=server.createobject("adodb.recordset")
%>
<%
rs3.open "select name,id from product where kind1id='32' and kind2id='"&rs1("id")&"' order by xule desc",conn,1,1
if not rs3.eof then
do while not rs3.eof
%>
<%
rs3.movenext
loop
end if
%>
<%
rs1.movenext
loop
end if
rs1.close
rs3.close
%>
<%
set rs1=server.createobject("adodb.recordset")
sql="select name,id,typ from softkind1 order by xule desc"
rs1.open sql,conn,1,1
if not (rs1.eof and rs1.bof) then
do while not rs1.eof
set rs3=server.createobject("adodb.recordset")
%>
<%
rs3.open "select * from softkind2 where kind1id='"&rs1("id")&"' order by xule desc",conn,1,1
if not (rs3.eof and rs3.bof) then
do while not rs3.eof
%>
<%
rs1.movenext
loop
end if
rs1.close
rs3.close
%>
<%
set rs1=server.createobject("adodb.recordset")
sql="select name,id from kind2 where kind1id='35' order by xule desc"
rs1.open sql,conn,1,1
if not (rs1.eof and rs1.bof) then
do while not rs1.eof
set rs3=server.createobject("adodb.recordset")
%>
<%
rs3.open "select name,id from product where kind1id='35' and kind2id='"&rs1("id")&"' order by xule desc",conn,1,1
if not rs3.eof then
do while not rs3.eof
%>
<%
rs3.movenext
loop
end if
%>
<%
rs1.movenext
loop
end if
rs1.close
rs3.close
%>
<%
sql="select name,id from kind2 where kind1id='37' order by xule desc"
rs1.open sql,conn,1,1
if not (rs1.eof and rs1.bof) then
do while not rs1.eof
set rs3=server.createobject("adodb.recordset")
%>
<%
rs3.open "select name,id from product where kind1id='37' and kind2id='"&rs1("id")&"' order by xule desc",conn,1,1
if not rs3.eof then
do while not rs3.eof
%>
