用戶登錄  |  用戶注冊
首 頁源碼下載網絡學院最新源碼源碼排行屏蔽廣告
當前位置:新興網絡 > 網絡學院 > Asp編程 > XML 相關

使用QuickWAP的XML實現農歷信息查詢

減小字體 增大字體 作者:佚名  來源:本站整理  發布時間:2010-06-10 04:15:24

用QuickWAP XML查詢農歷信息非常方便。

以下代碼為WAP2.0的查詢:

ASP code復制代碼
<%
Set XML = Server.CreateObject("QuickWAP.XML")
XML.SiteTitle = "中國被愛可以在線"
XML.XhtmlHeader
'以下為文件正文,利用ASP函數的部分。
XML.WriteOut "<h2>農歷查詢</h2>"

If Request("ToDo") = "ToAdd" Then
    Receive_A = Request("Send_A") '
    If Receive_A = "" Then
        ErrorMessage = "請輸入日期。"
    End If
    '以下為文件正文。
    If ErrorMessage<>"" Then
        XML.WriteRow ErrorMessage
    Else
        XML.WriteOut Receive_A & "是:" & XML.LunarDate(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 XML.Div(, , "N")
XML.WriteRow XML.ImgA("", "Index.asp", "返回上級")
'以下為返回鏈接等信息。
XML.WriteRow XML.A("", XML.WapPath, "返回首頁")
XML.XhtmlFooter
Set XML = Nothing
%>

效果預覽如下:

以下代碼為WAP1.2的查詢:

ASP code復制代碼
<%
Set WAP = Server.CreateObject("QuickWAP.WAP")
WAP.CardTitle = "中國被愛可以在線"
WAP.PageHeader
'以下為文件正文,利用ASP函數的部分。
WAP.WriteRow "<b>農歷查詢</b>"

If Request("ToDo") = "ToAdd" Then
    Receive_A = Request("Send_A") '
    If Receive_A = "" Then
        ErrorMessage = "請輸入日期。"
    End If
    '以下為文件正文。
    If ErrorMessage<>"" Then
        WAP.WriteRow ErrorMessage
    Else
        WAP.WriteRow Receive_A & "是:" & WAP.LunarDate(Receive_A) & " " & WAP.QueryWeek(Receive_A)
    End If
End If

WAP.WriteRow WAP.TextIn("", "text", "Send_A", Date(), "輸入日期")
WAP.WriteRow WAP.AnchorGo("提交", WAP.ThisFileName & "?ToDo=ToAdd", "Send_A", "Send_A", " ", "post")

'以下為返回鏈接等信息。
WAP.WriteRow WAP.BackA("返回上頁")
WAP.WriteRow WAP.ImgA("", WAP.WapPath, "返回首頁")
WAP.WriteRow WAP.DoGo(WAP.WapPath, "option", "回首頁")
WAP.WriteRow WAP.DoPrev("prev", "后退", "ToBack")
WAP.PageFooter
Set WAP = Nothing
%>

效果預覽如下:

Tags:QuickWAP 農歷信息查詢

作者:佚名
  • 好的評價 如果您覺得此文章好,就請您
      0%(0)
  • 差的評價 如果您覺得此文章差,就請您
      0%(0)

網絡學院評論評論內容只代表網友觀點,與本站立場無關!

   評論摘要(共 0 條,得分 0 分,平均 0 分) 查看完整評論
175哪个门派赚钱快 河内五分彩 走势图组选 河南22选5加减法 股票怎么买卖 环球汽配资源 安徽十一选五胆拖计算器 体彩3排5开奖结果 黑龙11选5开奖走势图 安徽11选五开奖走势图 一定牛 北京快乐彩8开奖 基金配资哪家好