<%
SortID=request("SortID")
'sqlq="select * from AspCms_Sort where SortPath like '%"&SortID&"%'"
sqlq="select * from AspCms_Sort where SortPath like '%"&SortID&"%'"
set rsq=server.CreateObject("adodb.recordset")
' sql="select * from AspCms_Sort where SortID="&SortID&" "
rsq.open sqlq,conn,1,1
' SortName=rs("SortName")
i=0
do while not rsq.eof
i=i+1
str2=rsq("SortPath")
if right(str2,1)="," then
str2=left(str2,len(str2)-1)
end if
arr2=split(str2,",") '返回数组
for i=lbound(arr2) to ubound(arr2) '输出内容
'response.write arr2(i)&""
'response.write" or SortID="
'response.write arr2(i)&""
next
rsq.movenext
loop
rsq.close
%>
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if SortID<>"" then
if SortID=107 then
sql="select * from AspCms_Content where SortID=108 or SortID=109 or SortID=110 or SortID=111 or SortID=112 or SortID=113 or SortID=114 or SortID=115 order by ContentID desc"
else
sql="select * from AspCms_Content where SortID="&SortID&" order by ContentID desc"
end if
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
%>
<%
rs.PageSize=12
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>