<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
XML.WriteOut "<h2>自由文章-搜索</h2>"
XML.WriteOut "<ul><li>"
XML.WriteOut "随机推荐:"
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.WriteOut "<form method='post' action='FreeWord_FindList.asp'>"
XML.WriteOut "<h3>输入关键字:</h3>"
XML.WriteRow "<input type='text' name='PostFindText' value=''/>"
XML.WriteOut "<input type='submit' value='提交'/>"
XML.WriteOut "</form>"
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
