VB,VBS,ASP都没有反余弦函数,解决方法:自己写_语言综合

概述今天用到asp由经纬度计算距离，公式来自excel，里面有个ACOS，反余弦，但是运行报错，忽然意识到，VB,VBS,ASP好像都没有反余弦函数，它们的反三角函数只有一个反正切Atn，查来查去，还是回到CSDN才有靠谱的回答： http://bbs.csdn.net/topics/80077169 先写了个反余弦，先用着，验证没错： function acos(x) if abs(x)=>1 t

今天用到asp由经纬度计算距离，公式来自excel，里面有个ACOS，反余弦，但是运行报错，忽然意识到，VB,VBS,ASP好像都没有反余弦函数，它们的反三角函数只有一个反正切Atn，查来查去，还是回到CSDN才有靠谱的回答：

http://bbs.csdn.net/topics/80077169

先写了个反余弦，先用着，验证没错：

function acos(x)	if abs(x)=>1 then 		acos=0		exit function	end if	acos=Atn(-x/Sqr(-x * x + 1)) + 2 * Atn(1)end function

下面先整理发布一下相关函数公式，以备用：（以下资料转载自网络，尚未完全验证，请用到的自己验证）

’============================================================================================

ASP常用函数列表

反正弦：y = Atn(x / Sqr(-x * x + 1))反余弦：0<|X|<1y = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)反正切：y = Atn(x)反余切：y = Atn(x) + 2 * Atn(1)

下列是由固有数学函数派生的非固有数学函数：
函数派生的等效公式
Secant（正割）Sec(X)=1/Cos(X)
Cosecant（余割）Cosec(X)=1/Sin(X)
Cotangent（余切）Cotan(X)=1/Tan(X)
InverseSine（反正弦）Arcsin(X)=Atn(X/Sqr(-X*X+1))
InverseCosine（反余弦）Arccos(X)=Atn(-X/Sqr(-X*X+1))+2*Atn(1)
InverseSecant（反正割）Arcsec(X)=Atn(X/Sqr(X*X-1))+Sgn((X)-1)*(2*Atn(1))
InverseCosecant（反余割）Arccosec(X)=Atn(X/Sqr(X*X-1))+(Sgn(X)-1)*(2*Atn(1))
InverseCotangent（反余切）Arccotan(X)=Atn(X)+2*Atn(1)
HyperbolicSine（双曲正弦）HSin(X)=(Exp(X)-Exp(-X))/2
HyperbolicCosine（双曲余弦）HCos(X)=(Exp(X)+Exp(-X))/2
HyperbolicTangent（双曲正切）HTan(X)=(Exp(X)-Exp(-X))/(Exp(X)+Exp(-X))
HyperbolicSecant（双曲正割）HSec(X)=2/(Exp(X)+Exp(-X))
HyperbolicCosecant（双曲余割）HCosec(X)=2/(Exp(X)-Exp(-X))
HyperbolicCotangent（双曲余切）HCotan(X)=(Exp(X)+Exp(-X))/(Exp(X)-Exp(-X))
InverseHyperbolicSine（反双曲正弦）HArcsin(X)=Log(X+Sqr(X*X+1))
InverseHyperbolicCosine（反双曲余弦）HArccos(X)=Log(X+Sqr(X*X-1))
InverseHyperbolicTangent（反双曲正切）HArctan(X)=Log((1+X)/(1-X))/2
InverseHyperbolicSecant（反双曲正割）HArcsec(X)=Log((Sqr(-X*X+1)+1)/X)
InverseHyperbolicCosecant（反双曲余割）HArccosec(X)=Log((Sgn(X)*Sqr(X*X+1)+1)/X)
InverseHyperbolicCotangent（反双曲余切）HArccotan(X)=Log((X+1)/(X-1))/2
以N为底的对数LogN(X)=Log(X)/Log(N)

VBscript(ASP)常用函数

VBscript(ASP)常用函数：

1.数值型函数：

abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根num>0
int(num): 取整int(99.8)=99; int(-99.2)=100
fix(num): 取整fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2
log(num): 取以e为底的对数 num>0
exp(n): 取e的n次幂通常用 num^n
sin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num);tan(num); atn(num)

2.字符串函数：

len(str)：计算字符串长度中文字符长度也计为一！
mID(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符 1；替代次数不限；比较方法区分大小写（0）
InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置
InStrRev(str,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置
space(n)：构造n个空格的字符串
string(n,str)：构造由n个str第一个字符组成的字符串
StrReverse(str)：反转字符串
split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组

3.数据类型转换函数：
Cint(str)：转换正数True -1；False 0；日期距离1899/12/31天数；时间上午段 0；下午段 1；
Cstr(str)：日期输出格式 yyyy/mm/dd；时间输出格式 Am/Pm hh:mm:ss
Clng(str)：与Cin()类似
Cbool(num)：num不为零 True；反之 False
cdate(str)：转换日期格式 0：#Am 12:00:00#；正数距离1899/12/31天数的日期；浮点数日期＋小数时间
Cbyte(num)：num<255转换为字节
Csng(str)：转换为单精度数值
Cdbl(str)：转换为双精度数值
Ccur(str)：转换为现金格式

4.时间函数：
date：取系统当前日期
time：取系统当前时间
Now：取系统当前时间及日期值Datetime类型
timer：取当前时间距离零点秒值，计时器，可计算时间差
DateAdd(间隔单位,间隔值,日期)：推算相邻日期
DateDiff(间隔单位,日期一,日期二)：计算时间差日期二-日期一
Datepart(间隔单位,日期)：计算日期的间隔单位值
Dateserial(date)：输出日期值（按序列计算）
Timeserial(time)：输出时间值（按序列计算）
DateValue(datetime)：取出字符串中日期值
Timevalue(datetime)：取出字符串中时间值
weekday(date)：计算星期几
Monthname(date)：输出月分名
year(datetime)：截取年份
month(datetime)：截取月份
day(datetime)：截取日
hour(datetime)：截取小时
minute(datetime)：截取分钟
second(datetime)：截取秒

5.其它函数：
Array(unit,..)：动态生成数组
Asc(str)：输出字符串第一个字符的ASCII码
Chr(asc)：转换ASCII为字符 Enter：Chr(13)&Chr(10)
Filter(数组名称,关键字符串,[,包含][,比较方法])：将字符串数组中含有关键字符串的元素存成新的数组（默认） [包含]为false则取不包含的元素
Join(Arrayname)：将数组中元素连成字符串
Ubound(Arrayname[,维数])：取得数组相应维数的上界
Lbound(Arrayname[,维数])：取得数组相应维数的下界一般为0
Randmize n：启动随机数种子
Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A)条件（B>A）

ASP六大对象常用语句示范：

Response：

Response.write StrVar/"String"：向网页写出参数值或字符串等同于在HTML标记中嵌入
Response.End：停止页面编译，并将已经编译内容输出到浏览器
Response.Buffer=True|False：页面编译时是否使用缓存的设置，一般在页面头部设置
Response.Flush：强制输出页面已编译部分内容
Response.Clear：将缓冲区内的数据清除
Response.Redirect URL：停止页面编译或输出，转载指定所需页面
Response.IsClIEntConnected：返回True|False，检测用户是否还处于连接状态
Response.Charset(Charsetname)：设置页面编码类型，即
Response.ContentType [= ContentType ]：设置页面文件类型，同上
Response.Expires [= number]：设置页面失效时间，单位分钟
Response.Expires@R_403_4613@ [= [date] [time]]：设置页面失效的绝对时间
Response.Status = StatusDescription：设置页面状态描述

Request：

Request("Passstrname")：读取网页传递值，包括表单及以？Passstrname＝value&Passstrname_n＝value_n形式
Request[.collection|property|method](variable)
Request.querystring("Passstrname")：读取Get方法传递的表单值和？Passstrname＝value
Request.queryString(Varible)[(Index).Count]
Request.form("Passstrname")：读取Post方法传递的纯表单域的值
Request.Form(Parameter)[(Index).Count]
Request.ServerVaribles(Server Environment Variable)：读取客户端系统环境变量，详见参考
Request.BinaryRead(Count)：读取指定字节数的传送值
Request.TotalBytes：查询体的长度，以字节为单位，只读

注：同名表单如：CheckBox如有多项值，则传递数组.

Session：（用户全局变量）

Session("Sesname")＝value：存储Session变量值，也可读取该值
Session("Sesname")＝Empty：判断Session值是否存在的两种方法
IsEmpty(Session("Sesname"))=True|False：判断Session值是否存在的两种方法
Session.TimeOut=num：设置Session变量的存在时效，单位分钟
Session.Abandon：清除所有Session变量值
Session.SessionID：Session变量的ID序列号，只读

Application：（应用程序全局变量）

Application("Appname")＝value：存储Application变量值，也可读取该值
Application("Appname")＝Empty：判断Application值是否存在的两种方法
IsEmpty(Application("Appname"))=True|False：判断Application值是否存在的两种方法
Application.Lock：Application变量值锁定，防止同时更改变量值
Application.UnLock：Application变量值解锁，允许更改变量值

注：Session与Application变量都可以用来存储数组和系统对象，引用方法是变量名相当于数组名而已，
但不能直接改变其值，需要借助临时数组修改值后，再赋给Session与Application变量

Server:

Server.MapPath("fileUrl")：映射文件名的服务器站点绝对地址，Path=Server.MapPath(./)可以得到虚拟目录根路径
Server.HTMLEncode("string")：转换为可以直接显示带HTML格式的字符串，如：<,>等
Server.URLEncode( "string")：转换为浏览器地址编码
set Var＝Server.CreatObject("Objname")：创建对象变量
Server.ScriptTimeout = NumSeconds：ASP程序页面执行时限，以秒为单位

cookies: 存储在用户本机的临时变量，每个cookie的最大字节4KB，最多可以有300个cookie 1.2MB

Response.cookies("Strcookiename")＝value：存储cookie变量值，也可读取该值
Response.cookies("Strcookiename")＝""：判断是否为空
Response.cookies("Strcookiename").Expires=Date：变量有效期，以天为单位，小于当前时间立即失效
Response.cookies(cookie[(key).Attribute])：标准语法

ObjectContext 控制ASP的事务处理

ObjectContext.OnTransactionAbort：由放弃的事务处理事件激发，在脚本完成处理后发生
ObjectContext.OnTransactionCommit：由成功的事务处理事件激发，在脚本完成处理后发生
ObjectContext.SetAbort：显式的放弃一次事务处理
ObjectContext.SetComplete：覆盖前面任何调用ObjectContext.SetAbort方法的调用