<%q=Funsql(request("q")) if request.QueryString("id")<>"" then if not isnumeric(request.QueryString("id")) then response.write"" response.end end if set rs1=server.createobject("adodb.recordset") sql1="select * from mrmy where id="&request.QueryString("id") rs1.open sql1,conn,1,1 if rs1.eof and rs1.bof then response.Write "" response.End else call main() end if else response.write"" response.end end if sub main()%> 名人名言,查字網(wǎng),Hifang.net">

国产婷婷国语对白|人妖专区免费视频精品|精品国产免费二区二区|精品少妇AY一区二区三区|亚洲无码人妻在线一区二区|别揉我奶头～嗯啊精品成人|日本免费一区二区三区在线观看|日韩人妻无码一区二区三区合部

<%=rs1("author")%>名句，名人<%=rs1("author")%>，<%=rs1("author")%>名言

<%call XContent()%>
<%End Sub sub XContent() ids=id-1 idx=id+1 keyword=""&q&"" if q<>"" then content=replace(rs1("content"),q,keyword) author=replace(rs1("author"),q,keyword) else author=rs1("author") content=rs1("content") end if rs1.close set rs1=nothing%>

名人名言：<%=content%>——<%=author%>

<%end Sub%>