<%

If Lcase(XML.FileName)<>Lcase("Index.asp") Then
XML.WriteRow XML.ImgA("Images/home.gif","Index.asp","论坛首页") 
End If
XML.WriteOut XML.Div(,,"N")
XML.WriteOut "<form method='post' action='NewsFindList.asp'>"
XML.WriteOut "<input type='text' name='PostFindText' maxlength='16' size='10' value='美女'/>"
XML.WriteOut "<input type='submit' value='搜'/>"
XML.WriteOut "</form>"
XML.WriteRow "BIKE报时:" & Time()
XML.WriteLine   "&copy; 2009 " & Replace(XML.SiteWapUrl,"http://","") 
If Lcase(XML.FileName)="index.asp" Then XML.WriteRow ICPNumber  'ICP备案号。
XML.XhtmlFooter
Set XML=Nothing
Set WAP=Nothing
%> 
