国际道德经论坛-INTERNATIONAL FORUM ON THE DAODEJING

<%@language="VBscript"%> <%Response.Expires=0%> <% myclass=Request("class") if myclass="" or not isnumeric(myclass) then myclass=9 else myclass=cint(myclass) end if %> 国际道德经论坛-INTERNATIONAL FORUM ON THE DAODEJING

道德经原文

道德经河上公注

道德经通解

道德经释义

道德经英译本

道德经书展

道德经的影响

当前位置:首页-->道德真经-->道德经原文

道德经原文

<% tablewidth=590'定义表格的宽度 tablestyle="p9" '定义表格的样式 sqlstr_1="SELECT t.id,t.title,t.newsimg,t.newsdate,m.newsort as boardname FROM t_news_purpose t,t_news_sort m WHERE t.newsort=m.id AND t.newsort=" & myclass sqlstr_1=sqlstr_1 & " ORDER BY topsign desc,newsdate desc" set myrs=server.CreateObject("Adodb.recordset") myrs.Open sqlstr_1,conn,1,1 if myrs.RecordCount>0 then myrs.PageSize=14'每页显示的记录数 '显示标题时 total_page=myrs.PageCount total_red=myrs.RecordCount current_page=Request("me_page") if current_page="" then current_page=1 elseif not isnumeric(current_page) then current_page=1 else current_page=cint(current_page) end if if current_page>total_page then current_page=total_page elseif current_page<1 then current_page=1 end if myrs.AbsolutePage=current_page %>

<%For jj = 1 to myrs.PageSize%> <%myrs.MoveNext If myrs.EOF Then Exit For next %>

　· " target="_blank"><%=myrs("title")%> <%if myrs("newsimg")<>"" then%> (图) <%end if%>

<%=year(myrs("newsdate")) & "-" & month(myrs("newsdate")) & "-" & day(myrs("newsdate"))%>

<%if total_page>1 then%>

第<%=current_page%>页/总<%=total_page%>页 | 总<%=total_red%>条 <%call showpage%> 转到第页

<%end if else Response.Write "

对不起!没有与此相关的新闻!返回

" end if myrs.Close set myrs=nothing %>