阿夜编程

<%

Response.Charset = "UTF-8"

Function ceKHD(str) 

if str="" then exit Function

str = replace(str,"iPhone","")

mid(str,i,1)

mid(""&eUcard&"",i,4)  字串要有引号，i

创建一张空表：

Sql="Create TABLE [表名]"

创建一张有字段的表：

Sql="Create TABLE [表名]([字段名1] MEMO NOT NULL, [字段名2] MEMO, [字段名3] COUNTER NOT NULL, [字段名4] DATETIME, [字段名5] TEXT(200), [字段名6] TEXT(200))

select distinct 门店 from 设备菜单

<%

set reg = new RegExp

reg.pattern="<p>.+?</p>"

reg.ignoreCase = true

reg.global = true

html = "<p>111</p><span>111</span><p>123</p><span>222</span>"

Function f_backup_addnew(ym)

vDb=Server.MapPath("../#log#/#log#_"&ym&".mdb")

Set fso = Server.CreateObject("Scripting.FileSystemObject")

if Instr(ab, "a")>0 then或

if InstrRev(ab, "a")>0　then

Split(str,"a")(0)

<%

t1=Array("190000-240000","000000-142000")

t2=Ftime(time(), "h", "")

for i=0 to Ubound(t1)

<%

re="3019:1"

MyArray = Array(re)

UBound(MyArray) 

%>

<%=UBound(MyArray) %>//<%=MyArray(0)%>

======================================

str = Split(str,",")