<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
XML.WriteOut "<ul><li>"
XML.WriteRow "<b>发表文章-搜索</b>"
XML.WriteRow "随机推荐:"
XML.StrSql="Select Title,Content from FreeWord"
XML.MdbDo
ZongShu=XML.RecordCount : ZongShu=XML.RndNumber(ZongShu)
XML.StrSql="Select PersonName,Content,DateTime,Title From FreeWord Where Id=" & ZongShu
XML.WriteRow XML.A("","FreeWordRandom.asp?ToShowPage=" & ZongShu,XML.MdbShow("Title"))
''''''''''''''''''''''''''''''''''''''''
XML.WriteRow "发表文章中标题查找[常用词汇]。"
XML.WriteOut XML.A("","FreeWord_FindList.asp?UrlFindText=" & XML.SubmitText("爱情"),"爱情") & "　"
XML.WriteOut XML.A("","FreeWord_FindList.asp?UrlFindText=" & XML.SubmitText("女生"),"女生") & "　"
XML.WriteOut XML.A("","FreeWord_FindList.asp?UrlFindText=" & XML.SubmitText("爆笑"),"爆笑") & "　"
XML.WriteRow XML.A("","FreeWord_FindList.asp?UrlFindText=" & XML.SubmitText("大学"),"大学")
XML.WriteOut XML.A("","FreeWord_FindList.asp?UrlFindText=" & XML.SubmitText("你"),"你") & "　"
XML.WriteOut XML.A("","FreeWord_FindList.asp?UrlFindText=" & XML.SubmitText("我"),"我") & "　"
XML.WriteOut XML.A("","FreeWord_FindList.asp?UrlFindText=" & XML.SubmitText("爱"),"爱") & "　"
XML.WriteOut XML.A("","FreeWord_FindList.asp?UrlFindText=" & XML.SubmitText("网"),"网") & "　"
XML.WriteOut XML.A("","FreeWord_FindList.asp?UrlFindText=" & XML.SubmitText("美"),"美") & "　"
XML.WriteRow XML.A("","FreeWord_FindList.asp?UrlFindText=" & XML.SubmitText("笑"),"笑")
XML.WriteRow "在千篇文章题目中寻找："
XML.WriteRow XML.TextIn("题目包含文字:","text","Send_A","","查找")
XML.WriteOut XML.PostSet("unknow","提交","FreeWord_FindList.asp","utf-8","post")
XML.WriteRow XML.TextMorePost("PostFindText", "Send_A")
XML.WriteRow XML.AnchorGo("确定提交","FreeWord_FindList.asp","Send_A","Send_A"," ","post")
'当终端为手机时显示如下搜索，因为必须要求浏览器编码方式为UTF-8
If XML.Displayer="Phone" Then
XML.WriteRow XML.Anchor("确定","FreeWord_FindList.asp","搜索'$(Send_A)'","<postfield name=""PostFindText"" value=""$(Send_A)""/>")
End If
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","FreeWord_ReplyTopList.asp","最新文章评论")
XML.WriteRow XML.ImgA("","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
