摘要：顺子工作室负责转载 http://www.0798wz.cn'*************************************'日期转换函数'*************************************Function DateToStr(DateTime,ShowType) Dim DateMonth,DateDay,DateHour,DateMinute,DateWeek,DateSecondDim FullWeekday,shortWeekday,Fullmonth,Shortmonth,TimeZone1,TimeZone2TimeZon 阅读全文

摘要：顺子工作室负责转载 http://www.0798wz.cn Abs(number) 取得数值的绝对值。 Asc(String) 取得字符串表达式的第一个字符ASCII 码。 Atn(number) 取得一个角度的反正切值。 CallByName (object, procname, usecalltype,[a... 阅读全文

摘要：<%'*************************************************'函数名：gotTopic'作 用：截字符串，汉字一个算两个字符，英文算一个字符'参 数：str ----原字符串' strlen ----截取长度'返回值：截取后的字符串'*************************************************function gotTopic(str,strlen)if str="" thengotTopic=""exit fu 阅读全文

摘要：'///****************************分页的function*****************************************'//参数说明'//Sql:查询所需的Sql语句'//PageSize:每页显示的记录个数'//Colspan:表格的列数'//bgcolor:显示翻页的背景色'//Str:Y是为后台显示，其他为前台显示'//Country：C时为显示中文翻页,其他显示英文翻页'////******************************************** 阅读全文