当前位置: 首页 > 图文教程 > 网络编程 > ASP > 纯ASP代码之公历转农历实现(含属相)--例子代码

ASP
使用ASP和Word进行服务器端拼写检查
文本中首字母全改为大写
检测整数和长整数的函数
谈谈如何在不支持数据库的asp主页上运用ado
在多行文本框中显示读取信息
生成一个不重复的随即数字
网上追捕(很多实用的port)
用javascript隐藏超级链接的真实地址
给浏览器的滚动条加上颜色
asp+中是如何连接数据库ado+的
几个对图形进行动态处理的dhtml代码
域名登记查询(whois)很复杂吗--方法一
域名登记查询(whois)很复杂吗--方法二
用ASP创建多栏选项列表
asp中的一个奇怪的函数
瞒天过海html文件技术一瞥
如何在服务器上保存一定时间的信息
用ASP发 WAP MAIL(=)
创建弹出式“每日提示”窗口
用两行代码在浏览器中实现文件上传

纯ASP代码之公历转农历实现(含属相)--例子代码


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 131 ::
收藏到网摘: n/a

 

<!--#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>