<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件页头。
	ToDo=Request.QueryString("ToDo")
'以下为文件正文。
'Wap.WriteRow Wap.P("left","wrap")
If ToDo="AddMessageOk" Then
	Wap.WriteRow "留言添加成功！请等待审核。"
	Wap.WriteRow Wap.ImgA("","MessageList.asp","查看留言")
	Wap.WriteRow Wap.ImgA("","MessageNew.asp","继续留言")
ElseIf ToDo="AddSiteLinkOk" Then
	Wap.WriteRow "祝贺您,添加链接成功！"
	Wap.WriteRow Wap.ImgA("","SelfLinkList.asp","查看链接")
	Wap.WriteRow Wap.ImgA("","SelfLinkNew.asp","继续添加")
ElseIf ToDo="SorryNull" Then
	Wap.WriteRow "暂时没有留言！"
	Wap.WriteRow Wap.ImgA("","MessageWrite.asp","我要留言")
ElseIf ToDo="SendMailOk" Then
	Wap.WriteRow "祝贺您,邮件发送成功！"
	Wap.WriteRow Wap.ImgA("","SendMail.asp","继续发送")
ElseIf ToDo="AddWishOk" Then
	Wap.WriteRow "祝贺您,许愿成功！"
	Wap.WriteRow Wap.ImgA("","WishList.asp","查看许愿")
	Wap.WriteRow Wap.ImgA("","WishWrite.asp","继续许愿")
ElseIf ToDo="AddFreeWordReplyOk" Then
	Wap.WriteRow "祝贺您,对文章发表评论成功！"
	Wap.WriteRow Wap.ImgA("","FreeWordShow.asp","查看文章")
	Wap.WriteRow Wap.ImgA("","FreeWord_ReplyNew.asp","继续评论")	
ElseIf ToDo="NoRecord" Then
	Wap.WriteRow "对不起，您所要找的记录为空！"
	Wap.WriteRow Wap.ImgA("","Index.asp","返回首页")

End If
'以下为返回链接等
Wap.WriteRow Wap.ImgA("","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
