要求传入工号 返回员工姓名 '全局数据 考虑这样只要load一次 set Doc = CreateObject("Microsoft.XMLDOM") Doc.async = false Doc.load(Server.MapPath("user_cnname.xml")) function cnname_var (varusername) dim node,i,nodecount,root set nodeLis= Doc.getElementsByTagName("user") nodeCount = nodeLis.length For i=0 to nodeCount - 1 if nodeLis.item(i).childnodes.item(0)...[ 查看全文 ]
1)函数的例子 php: function inc($val) { return $val + 1;} 过程也是个函数,只不过没有返回值。 jscript, javascript: function inc(val) { return val + 1;} 过程的定义同上。 VBScript: function inc(val) inc = val + 1 end function procedure sub inc2(byref val) val = val + 1 end sub 2)类的例子 php: class parent { var property; function parent() {...[ 查看全文 ]
<% '判断文件名是否合法 Function isFilename(aFilename) Dim sErrorStr,iNameLength,i isFilename=TRUE sErrorStr=Array("/","\",":","*","?","""","<","","|") iNameLength=Len(aFilename) If iNameLength<1 Or iNameLength=null Then isFilename=FALSE Else For i=0 To 8 If instr(aFilename,sErrorStr(i)) Then ...[ 查看全文 ]
function cookievalue(pcook) lhowlong=len(pcook) lwhereis=instr(document.cookie,pcook) if lwhereis=0 then cookievalue=false else lstartpos=len(document.cookie)-lwhereis-lhowlong lstartstring=right(document.cookie,lstartpos) do lchar=left(lstartstring,1) if lchar=";" then cookievalue=lendstring exit do else &...[ 查看全文 ]
Function dlookup(strFieldName, strTableName, strWhere, objConn) '参考Access VBA 中的Dlookup函数 '由于环境不同,加了ObjConn参数,直接将Adodb.connection直接调进来 Dim strsql Dim rs Set rs = server.CreateObject("adodb.recordset") '下面要调用外部的一个自定义函数...[ 查看全文 ]