<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件页头。
	ToDo=Request.QueryString("ToDo")
XML.WriteOut "<h2>操作结果</h2>"
'以下为文件正文。
XML.WriteOut "<ul><li>"
If ToDo="AddMessageOk" Then
	XML.WriteRow "留言添加成功！请等待审核。同时您的留言信息已经发送至您的邮箱请查收。"
	XML.WriteRow XML.ImgA("","MessageList.asp","查看留言")
	XML.WriteRow XML.ImgA("","MessageNew.asp","继续留言")
ElseIf ToDo="AddSiteLinkOk" Then
	XML.WriteRow "祝贺您,添加链接成功！"
	XML.WriteRow XML.ImgA("","SelfLinkList.asp","查看链接")
	XML.WriteRow XML.ImgA("","SelfLinkNew.asp","继续添加")
ElseIf ToDo="AddFriendLinkOk" Then
	XML.WriteRow "祝贺您,添加链接成功！"
	XML.WriteRow XML.ImgA("","FriendLink.asp","查看链接")
ElseIf ToDo="SorryNull" Then
	XML.WriteRow "暂时没有留言！"
	XML.WriteRow XML.ImgA("","MessageNew.asp","我要留言")
ElseIf ToDo="SendMailOk" Then
	XML.WriteRow "祝贺您,邮件发送成功！"
	XML.WriteRow XML.ImgA("","SendMail.asp","继续发送")
ElseIf ToDo="AddWishOk" Then
	XML.WriteRow "祝贺您,许愿成功！"
	XML.WriteRow XML.ImgA("","WishList.asp","查看许愿")
	XML.WriteRow XML.ImgA("","WishWrite.asp","继续许愿")
ElseIf ToDo="AddFreeWordReplyOk" Then
	XML.WriteRow "祝贺您,对文章发表评论成功！"
	XML.WriteRow XML.ImgA("","FreeWordShow.asp","查看文章")
	XML.WriteRow XML.ImgA("","FreeWord_ReplyNew.asp","继续评论")	
ElseIf ToDo="AddNewReplyOk" Then
	XML.WriteRow "祝贺您,对新闻发表评论成功！"
	XML.WriteRow XML.ImgA("","NewsShow.asp","查看文章")
	XML.WriteRow XML.ImgA("","NewsPingLunNew.asp","继续评论")	
ElseIf ToDo="NoRecord" Then
	XML.WriteRow "对不起，您所要找的记录为空！"
	XML.WriteRow XML.ImgA("","Index.asp","返回首页")
ElseIf ToDo="NoNewsRecord" Then
	XML.WriteRow "对不起，您所要找的记录为空！"
	XML.WriteRow XML.ImgA("","NewsFindText.asp","资讯搜索")
	XML.WriteRow XML.ImgA("","Index.asp","返回首页")
End If
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
