<%q=Funsql(request("q")) page=Funsql(request("page")) typeid=Funsql(request("typeid")) if numCode<>"" then if not isnumeric(numCode) then response.write"" response.end end if end if if q<>"" then if typeid<>"" then sql="select * from mrmy where content like '%"&q&"%' or author like '%"&q&"%' and typeid="&typeid&" order by id DESC" else sql="select * from mrmy where content like '%"&q&"%' or author like '%"&q&"%' order by id DESC" end if else if typeid<>"" then sql="select * from mrmy where typeid="&typeid&" order by id DESC" else sql="select * from mrmy order by rnd(id-timer()) DESC" end if end if if typeid<>"" then dim rs22,sql22,fenlei set rs22=server.createobject("adodb.recordset") sql22="select * from typename where id="&typeid rs22.open sql22,conn,1,1 if not rs22.eof then fenlei=rs22("typename") end if rs22.close set rs22=nothing end if set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 totalcs=rs.recordcount i=0 perpage=10%>

亚洲无码高清在线播放|国产人伦视频在线观看|在线亚洲中文精品第1页|黄网站色视频免费观看w|亚洲av日韩综合一区二区|国产精品久久超碰人人最新|国产91精品久久久久久无码|欧美日韩偷窥高清一区二区三区

<noscript id="w8auz"><dl id="w8auz"></dl></noscript>

<%if q<>"" then%>查詢的關(guān)鍵字：<%=q%><%else%>名人名言<%end if%><%if fenlei<>"" then%><%=fenlei%><%end if%>大全

<%dim totalcs,Currentpage,totalpages,i,Letter,tempStr if not rs.eof then rs.movefirst rs.pagesize=perpage if page<>"" then currentpage=clng(request("page")) if currentpage>rs.pagecount then currentpage=rs.pagecount end if else currentpage=1 end if if currentpage<>1 then if (currentpage-1)*perpage" do while not rs.eof and i"" then content=replace(rs("content"),q,keyword1) author=replace(rs("author"),q,keyword1) else content=rs("content") author=rs("author") end if%>

►名人名言，" title="<%=content%>" target="_blank"><%=content%>——<%=author%>

<%rs.movenext loop else if rs.eof and rs.bof then%> <%end if end if if page="" then page=1%>

崇义县| 博客| 崇州市| 金沙县| 襄垣县| 寻乌县| 瓦房店市| 苏尼特右旗| 龙门县| 建湖县| 广昌县| 双峰县| 银川市| 南昌市| 灵丘县| 合水县| 香港| 江川县| 嘉荫县| 江安县| 兴安县| 高碑店市| 江永县| 汉川市| 平南县| 邛崃市| 兴宁市| 扶沟县| 尚义县| 昆山市| 泸西县| 务川| 湖南省| 宜兰市| 建平县| 都江堰市| 曲阜市| 黔江区| 麻江县| 芜湖县| 清原|

<%sub typename() dim rstype,sqltype set rstype=server.createobject("adodb.recordset") sqltype="select * from typename" rstype.open sqltype,conn,1,1 if not rstype.eof then do while not rstype.eof%> " target="_blank" title="<%=rstype("typename")%>"><%=rstype("typename")%> <%rstype.movenext loop end if rstype.close set rstype=nothing end sub%>