<%=wybt%>唐诗宋词赏析 <%=wybt2%>

<%@ CODEPAGE = "936" %> <% '#************************************# '# # '# 小山屋作文库 V1.0 # '# # '# 小山屋 http://xsw.xszw.com # '# 电子邮件 xsw@xiaoshanwu.com # '# # '# 小山屋工作室 # '# # '#************************************# %> <% '下面这一行设置默认每页显示条数 thesize=50 '默认为10 pagesize=Request("pagesize") keyword=request("keyword") if request("page")="" then curpage = 1 else curpage = cint(request("page")) end if lable=Request("lable") name=Request("name") sort=Request("sort") %> <% dim wybt if lable="" then wybt="" wybt2="<-小山书斋>" Response.Redirect "http://xsw.xszw.com/shu/sc/" if name<>"" then wybt2=name&"诗词作品" elseif lable=1 then wybt="唐诗三百首 -" wybt2="" Response.Redirect "http://xsw.xszw.com/shu/sc/ts300" else wybt="宋词三百首 -" wybt2="" Response.Redirect "http://xsw.xszw.com/shu/sc/sc300" end if %> <%=wybt%>唐诗宋词赏析 <%=wybt2%>

当前位置：小山屋->小山书斋->古诗词赏析-> <%if Request("lable")<> "" then%> <% if Request("lable")=1 then%>唐诗300首<%else%>宋词300首<%end if%> <%else if Request("name")<> "" then%> <%=name%>诗词 <% end if if Request("keyword")<> "" then%> 搜索关键词：<%=keyword%> <% end if end if%>

<%if Request("msg")<> "" then%>

<%=Request("msg")%>

<%end if%>

<% if pagesize="0" or pagesize="" then pagesize=thesize set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("#gs.asp") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") dim rs, sql dim curpage, strcate if lable <> "" then wherestr=" where lable like '%" & trim(lable) & "%' " else if keyword <> "" then keyword = replace(keyword,"'","") '过滤关键字 keyword = replace(keyword,"[","") keyword = trim(keyword) wherestr=" where name like '%" & trim(keyword) & "%' or content like '%" & trim(keyword) & "%' or title like '%" & trim(keyword) & "%'" end if if name<>"" then wherestr=" where name like '%" & trim(name) & "%' " end if end if if sort="name" then wherestr= wherestr & "order by name " end if sql = "SELECT * FROM shici " & wherestr rs.open sql, conn, 1, 1 if rs.bof and rs.eof then rs.close response.write "
还没有符合条件的投稿呢！" else dim i rs.pagesize = pagesize if rs.pagecount < curpage then rs.absolutepage=rs.pagecount curpage=rs.pagecount else rs.absolutepage = curpage end if %>

<%if Request("lable")="1" then%> 唐诗300首 <%else%> 唐诗300首 <%end if%>

<%if Request("lable")=2 then%> 宋词300首 <%else%> 宋词300首 <%end if%>

　

古诗词知识

意见与建议

唐诗宋词
搜索查询

<% '########### if wherestr="" then %>

　

    许多人从小在家长的“引导”下就刻苦地背诵过许多古诗词，但时间久了又忘掉了不少；中小学的寒暑假作业也常有这方面的内容。为此，小山屋最近特地收集整理了一些唐诗宋词，供大家学习查阅。本系统不仅可以浏览阅读，还可以按标题、作者或某一诗句任意进行查找搜索。
    唐诗宋词，是中国文学史上的两大高峰。在中华文明灿烂的长卷中，唐诗宋词是其中最为绚丽的华章。《唐诗三百首》和《宋词三百首》浓缩了唐诗宋词精华，是中华文化的传世经典。

<%else '####################### %>

　

<%if lable<>"" then%> <% end if for i = 1 to rs.pagesize if i mod 2=1 then%> <%else%> <%end if rs.movenext if rs.eof then i = i + 1 exit for end if next %>

<% if Request("lable")=1 then%>唐诗三百首<%else%>宋词三百首<%end if%>
<%if sort="name" then%> 取消按姓名排序 <%else%> 按姓名排序 <%end if%>
	"><%=rs("title")%>	作者: "><%=rs("name")%>	<%=rs("kind")%>
	"><%=rs("title")%>	作者:"> <%=rs("name")%>	<%=rs("kind")%>

<%if Request("lable")<>"" or keyword<>"" then%>

第 <%for i=1 to rs.pagecount if curpage <> i then%> <%if Request("lable")<>"" then%> ?lable=<%=lable%>&page=<%=i%>&keyword=<%=keyword%>"><<%=i%>> <%else%> ?page=<%=i%>&keyword=<%=keyword%>"><<%=i%>> <%end if%> <%else%> <<%=i%>> <%end if next%>页共<%=i-1%>页<% if Session.Contents("thegbmaster")="yes" then%> 　[退出管理] <%end if%>

<%else%> <%end if%>

<% rs.close end if end if set rs=nothing conn.Close set conn=nothing %>

参加讨论：小山屋论坛 » 共建小山屋 » 小山书斋资源与建议 » 唐诗宋词