%
Function ListSort(id)
Dim rs,sql,i,ChildCount,FolderType,FolderName,onMouseUp,ListType
Set rs=server.CreateObject(\"adodb.recordset\")
sql=\"Select * From \"table border=\'0\' cellspacing=\'0\' cellpadding=\'0\'\")
while not rs.eof
ChildCount=conn.execute(\"select count(*) from \"\"
else
FolderType=\"SortFolderClose\"
ListType=\"SortListline\"
onMouseUp=\"SortChange(\'a\"\"
end if
FolderName=rs(\"SortName\")
end if
response.write(\"tr\")
response.write(\"td nowrap id=\'b\"/tdtd nowrapa href=\'\"\"/a\")
response.write(\"/td/tr\")
if ChildCount0 then
%
%
end if
rs.movenext
i=i 1
wend
response.write(\"/table\")
rs.close
set rs=nothing
end function
\'生成所属类别--------------------------
Function SortText(ID)
Dim rs,sql
Set rs=server.CreateObject(\"adodb.recordset\")
sql=\"Select * From \"defds123Datafromdefds123\" where ID=\"defds123ID
rs.open sql,conn,1,1
SortText=rs(\"SortName\")
rs.close
set rs=nothing
End Function
|