<!--#include file="connshi.asp"-->
<%Call head()
Call saycarda("古诗词欣赏")
Response.write "<img src='/img/logo/mb.gif' alt=''/><br/>熟读唐诗三百首，不会吟来也会偷!<br/>"
if saytk<>1 Then

Response.write "<form name=""form"" method=""post"" action=""search.asp?saytk="&saytk&"&amp;sid="&sid&""">"
%><input type="text" name="name" size="10" value="" title="请输入关键词"/>
<%
response.write "<input type=""hidden"" name=""sear"" value=""1""/>"
response.write "<input type=""submit"" name=""Submit"" value=""搜诗词""></form><br/>"
Else
%><input type="text" name="name" size="10" value="" title="请输入关键词"/>
<%
response.write "<anchor>搜索诗词<go href=""search.asp?saytk="&saytk&"&amp;sid="&sid&""" method=""post"">" & Chr(13)
response.write "<postfield name=""name"" value=""$(name)""/>" & Chr(13)
response.write "<postfield name=""sear"" value=""$(sear)""/>" & Chr(13)
response.write "</go></anchor><br/>" & Chr(13)
End if



set rs=server.createobject("adodb.recordset")
sql="select * from shici order by id desc"
rs.open sql,connshici,1,1
				if not (rs.bof and rs.eof)  then
				%>
				[最新精品诗词]<br/>
				<%
				For i=1 to 9
					%><a href="view.asp?id=<%=rs("id")%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>&amp;sy=<%=sy%>&amp;backurl=index.asp"><%=Left(rs("name"),13)%></a><br/><%
				Rs.MoveNext
				next
				end if
				Rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select * from shici order by tj desc"
rs.open sql,connshici,1,1
				if not (rs.bof and rs.eof)  then
				%>
				[精品诗词推荐]<br/>
				<%
				For i=1 to 9
					%><a href="view.asp?id=<%=rs("id")%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>&amp;sy=<%=sy%>&amp;backurl=index.asp"><%=Left(rs("name"),13)%></a><br/><%
				Rs.MoveNext
				next
				end if
				Rs.close
set rs=Nothing

'========================
			

if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk=[saytk]&amp;sid=[sid]]"&myni&"[/url]"
else
mz="游客"&Replace(time(),":","")&""
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"逛到了(url=/qtwap/shi/?saytk=[saytk]&amp;sid=[sid])精品诗词欣赏(/url)')")
Response.Write("<img src=""/img/fg/1.gif"" alt=""""/><br/>")%>
<!--#include file="../../fanhui.asp"-->
<%Call headsay()%>