<!--#Include File="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文，利用ASP函数的部分。
XML.WriteOut "<h2>星期查询</h2>"
XML.WriteOut "<ul><li>"
If Request("ToDo")="ToAdd" Then  
	Receive_A=Request("Send_A") '
	If Receive_A="" Then
			ErrorMessage=XML.Ascii("请输入日期。")
	End If	
'以下为文件正文。
If ErrorMessage<>"" Then 
	XML.WriteRow ErrorMessage
Else
	XML.WriteOut Receive_A & "是：" & XML.QueryWeek(Receive_A)
End If
End If
XML.WriteOut "<form method='post' action='" & XML.ThisFileName & "'>"
XML.WriteOut "<h3>输入日期:</h3>"
XML.WriteOut "<input type='text' name='Send_A' value='" & date() & "'/>"
XML.WriteRow "<input type='hidden' name='ToDo' value='ToAdd'/>"
XML.WriteOut "<input type='submit' value='提交'/>"
XML.WriteOut "</form>"
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow Wap.ImgA("","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"-->

