<% If classid=3 Then %>
<% ElseIf parentid=3 Then %>
<% Else %>
<% End If %>
PS: Пожалуйста, нажмите увидеть больше фотографий
<% sqlArticleclass="SELECT classid,eClassName,ClassPicUrl from Articleclass where ParentId=3 order by RootID,OrderID,classid desc" Set rsArticleclass= Server.CreateObject("ADODB.Recordset") rsArticleclass.open sqlArticleclass,conn,1,1 do while not rsArticleclass.eof html_url=linkurlclass(rsArticleclass("classid"),0) TitleStrN=gotTopic(rsArticleclass("eClassName"),24) %> <% rsArticleclass.movenext loop rsArticleclass.close set rsArticleclass=nothing %>
<%
sqlArticleclass2="SELECT ClassInputer from Articleclass where ClassInputer<>'' and classid="&classid
Set rsArticleclass2= Server.CreateObject("ADODB.Recordset")
rsArticleclass2.open sqlArticleclass2,conn,1,1
totalput=rsArticleclass2.recordcount
if totalput>0 then
ClassInputer=split(rsArticleclass2("ClassInputer"),",")
for i=0 to ubound(ClassInputer)
%>
<%
next
else
response.Write("
在整理……
") end if rsArticleclass2.close set rsArticleclass2=nothing %>
-
<% call ShowArticle_e(80)%>
<%
call showpage_before_e(strFileName,totalput,MaxPerPage,false,true,"")
%>
<% end if %>