shell脚本函数参数lr11录制为空 |
您所在的位置：网站首页 › shell脚本判断值是否为空 › shell脚本函数参数lr11录制为空 |
shell脚本函数参数lr11录制为空
|
-> 1.上传的时候可以将图片高宽存到数据库里,用的时候调出来判断,但那种方法相比较下边的麻烦. 2.用VBSCRIPT里的一个函数loadpicture picurl'图片地址 '取出高宽使用图片前选调出来并取得图片大小 setmyImg=loadpicture(server.mappath(picurl)) iWidth=round(myImg.width/26.4583) iHeight=round(myImg.height/26.4583) 调用时用iwidth和iheight判断就可以了,  dxy: 你好! 我学vbs也有一小段时间了,最近看到一本书上讲vbs脚本的加密,就自己试了试,可是有一点问题,低级的语法错误我都自己修正了,可脚本运行后不起作用.所以想请教你一下.脚本的原理是这样的:它把代码转换成16进制,然后再写个解密代码,通过这个解密来执行加密的代码,将字符串成16进制的代码如下: Functionstr2hex(ByvalstrHex) Fori=1toLen(strHex) sHex=sHex&Hex(Asc(mid(strHex,i,1))) next str2Hex=sHex endFunction 解密的代码如下: Functionhextostr(data) Hextostr="Execute""""" C="&Chr(&H" N=")" DowhileLen(data)>1 ifIsNumeric(Left(data,1))then Hextostr=Hextostr&c&Left(data,2)&N data=mid(data,3) else Hextostr=HextoStr&C&Left(data,4)&N data=mid(data,5) endif loop endFunction 解密代码好象有点问题,请帮忙指正,我实在找不出 整个成品就是: onerrorresumenext setarg=wscript.arguement'声明外部参数 ifarg.count=0Thenwscript.quit'若无参数则退出脚本 setfso=creatobject("Scripting.FilesystemObject")'声明fso组件 whenfso.opentextfile(arg(0),1,flase) data=readall:.close'读取文本内容 iferr.number0thenwscript.quit'如果发生错误，则退出 withfso.opentextfile(arg(0)&"*.vbs",2,true)'将转换好的写到一个新的vbs中 iferr.number0thenwscript.quit'如果发生错误，则退出 .writeline"Execute(Hextostr("""&str2hex(data)&"""))"'执行解密并执行解密后的代码 .writeline"Functionhextostr(data)" .writeline"Hextostr=""Execute""""""""""" .writeline"C=""&CHR(&H""" .writeline"N=)" .writeline"DowhileLen(data)>1" .writeline"ifIsNumeric(Left(data,1))then" .writeline"Hextostr=Hextostr&c&Left(data,2)&N" .writeline"data=(data,3)" .writeline"else" .writeline"Hextostr=Hextostr&c&Left(data,4)&N" .writeline"data=mid(data,5)" .writeline"endif" .writeline"loop" .writeline"endfunction" '把解密函数写进去 .close'关闭文本 setfso=Nothing'注销fso组件 endwith msgbox"OK" '以下是加密函数 Functionstr2hex(ByvalstrHex) Fori=1toLen(strHex) sHex=sHex&Hex(Asc(mid(strHex,i,1))) next str2Hex=sHex endfunction '全部代码就到这了，好长~ 书上说,把要加密的vbs脚本拖到这个脚本上就行了,不过我没有成功,不知道那里有问题,请帮帮我,谢谢~要看到这个过程的实际使用，就要创建一个标准的EXE项目，并在表单上放一个图片框和一个文本框（TextBox） functionjs(){alert("a")} subvbs() msgbox"b" endsub 用了隐藏的按钮，在页面load之后，先执行js，然后在自动触发隐藏按钮的click事件来执行vbs代码，关注其他更好的办法它一般由三部分构成：信息区、数据区和索引区（可缺省），即两个LIST快和一个idx1块 NEXT必须在数据库变为可复制之前设置对象（例如表）的属性 ",64,"提示":WScript.Quit Case Else BFF=oItem.ParentFolder.ParseName(oItem.Title).Path End Select End If Set oShell=Nothing Set oItem=Nothing If Right(BFF,1) "" Then BFF=BFF & "" End If On Error GoTo 0 End Function wincc全局触发器说不定在设为单一使用者後，还来不及建立另外的连线时，就有其他的Process先进入该资料库 参考链接：VBScript Trivia: Bracket Identifiers and Reserved Word Incompatibilities原文： 。 |
【本文地址】