sql查询员工入职多少天_sql 查询四舍五入_sql怎么四舍五入(47)

<%

'这个函数很关键！---------------------------

Function sql(a,b,sqls)

if b<>"" then '如果客户端没有提交此值，则不会产生相应的SQL语句。

sqls=sqls & " and " & a & " like '%" & b & "%'"

end if

sql=sqls

End Function

'-----------------调用

Set conn=Server.CreateObject("ADODB.Connection")

DBpath=Server.MapPath("/database/mydb.mdb")

Conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=;dbq=" & DBpath

Set rs=Server.CreateObject("ADODB.Recordset")

sqls="select * from mytablewhere 1=1 "

'以下调用上面的函数即可,可以很多个调用（理论上是任意）

sqls=sql("subject",subject,sqls)

sqls=sql("company",company,sqls)

sqls=sql("content",content,sqls)

sqls=sql("address",address,sqls)

sqls=sql("infomation",infomation,sqls)

sqls=sql("note",note,sqls)

sqls=sqls & " order by id desc"

rs.open sqls,conn,3,2

%>

[结束语]

如果没有关键的函数Function sql(a,b,sqls)，我们可以想象，需要多少判断的一个接一个的语句！

Top

Case语句：

SELECT FIELD1,FIELD2,(CASE WHEN 某某 THEN 某某 WHEN 某某 THEN 某某 ELSE 某某 END)NEWFIELD FROM TABLENAME ORDER BY FIELD

Top

占个位。。。。

Top

VBSCRIPT常见的内部函数

函数 功能简述

ABS(number) 返回数字的绝对值

Array(arglist) 返回数组实例

Asc(string) 返回ANSI字符字符串

Atn(number) 返回Arctangernt值

CBool(expression) 返回Boolean类型的值

CByte(expression) 返回Byte类型的值

CCur(expression) 返回Currency类型的值

CDate(date) 返回Date类型的值

CDbl(expression) 返回Double类型的值

Chr(charcode) 返回ANSI字符码

CInt(expression) 返回Integer类型值

CLng(expression) 返回Long类型值

Cos(nubmer) 返回一个弧度数字的Cosine值

CreateObject(class) 返回一个对象实例

CSng(expression) 返回Single类型的值

CStr(expression) 返回string类型的值

Date 返回目前的系统时间

DateAdd(interval,number,date) 返回更改的时间

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-30385-47.html