<% pp=0 const ChannelID=2 Const ShowRunTime="Yes" MaxPerPage=cint(news_pagenum) strFileName=Request.ServerVariables("Script_Name") &"?ClassID=" & ClassID & "&SpecialID=" & SpecialID Set rsArticle= Server.CreateObject("ADODB.Recordset") Set rsPic= Server.CreateObject("ADODB.Recordset") sxfName=UCase(eClassName) sxfName_1 = left(sxfName,1) sxfName_2 = mid(sxfName,2) if classid =3 or parentid=3 then navstr =8 else navstr=9 end if keysst=replace((ReadMe),",","_") %> <%if currentpage=1 then%><%=eclassname%>-<%=eSiteName%><%else%>NO.<%=currentpage%>-<%=keysst%>-<%=eSiteName%><%end if%>
<% If classid=3 or parentid=3 Then %> <%else%> <% End If %>

<%=eclassname%>

Текущее место:Главная >> 11<%=eClassName%>

<% If classid=3 Then %>

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 %>
<% ElseIf parentid=3 Then %>
<% 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 %>

<% Else %>
    <% call ShowArticle_e(80)%>
<% if(totalput > MaxPerPage) then %>
<% call showpage_before_e(strFileName,totalput,MaxPerPage,false,true,"") %>
<% end if %>
<% End If %>
<% If parentid=3 Then %> <% End If %>