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