摘要：
<%Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits(30)Private m_l2Power(30)Private Function LShift(lValue, iShiftBits) If iShiftBits = 0 Then LShift = lValue Exit Function ElseIf iShiftBits = 31 Then If lValue And 1 Then LShift = 阅读全文
摘要：
ASP 信息提示，并作返回或者转向'************************'子程序名：信息提示窗口'功能：信息提示，并作返回或者转向'参数：'str 提示字符串'stype 处理类型:Back 返回 GoUrl 转向 Close 关闭'url 转向方向'************************Sub MsgBox(str,stype,url)response.write "<script language=javascript>"response.write "alert 阅读全文
摘要：
ASP将日期格式化为需要的格式'****************************** '函数：FormatDate(DateAndTime, para) '参数：DateAndTime,要格式化的日期时间；para,样式。 '作者：阿里西西 '日期：2007/7/12 '描述：将日期格式化为需要的格式 '示例：<%=FormatDate(now(), 3)'****************************** Public Function FormatDate(DateAndTime, para) On E 阅读全文
