|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<!--#include File="clsDay.asp"--> <% Dim objChinaDay Dim sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni Set objChinaDay = New ChinaDay Call objChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni) Set objChinaDay = Nothing \\'Response.Write sDay&"<BR>" \\'Response.Write sWeekDay&"<BR>" \\'Response.Write sChinaYear&"<BR>" \\'Response.Write sChinaDay&"<BR>" \\'Response.Write sChinaAni&"<BR>" %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>农历日历</title> <style> .itm {font-family: 宋体; font-size: 14px;} .chn {font-family: 宋体; font-size: 12px} .chnred {font-family: 宋体; color: #FF0000; font-size: 12px} .chnblue {font-family: 宋体; color: #0000FF; font-size: 12px} </style> </head> <body bgcolor="#FFFFFF"> <!--显示站点日历--> <table border="1" cellspacing="1" width="110" bgcolor="#EAEAEA" bordercolor="#FFFFFF" bordercolorlight="#000000"> <tr> <td><center><table> <tr> <td class="chnblue" align="center" valign="middle"><%=sDay%> </td> </tr> <tr> <td class="chnred" align="center" valign="middle"><%=sWeekDay%> </td> </tr> <tr> <td class="chnblue" align="center" valign="middle"><%=sChinaYear & "(" & sChinaAni & ")"%> </td> </tr> <tr> <td class="chnred" align="center" valign="middle"><%=sChinaDay%> </td> </tr> </td> </tr> </table> </table> </body> </html> 返回类别: 教程 上一教程: .Net将如何影响我们?(一) 下一教程: 使用ASP建设私人的搜索引擎 您可以阅读与"纯ASP代码之公历转农历实现(含属相)--例子代码"相关的教程: · 纯ASP代码之公历转农历实现(含属相)-例子代码 · 纯ASP代码之公历转农历实现(含属相) · 用ASP实现的代码批量修改程序 · ASP实例:6行代码实现无组件上传 · ASP查询XML的代码,实现了无刷新、模糊查询功能 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |