''/*========================================================================= ''*Intro查看或修改Windows系列系统的序列号（包括：2000,xp,2003），支持命令行“GetChangeWindowsSN.vbsWindows系统序列号”或直接运行输入Windows系统序列号。 ''*FileNameGetChangeWindowsSN.vbs ''*Authoryongfa365 ''*Versionv

1.上传的时候可以将图片高宽存到数据库里,用的时候调出来判断,但那种方法相比较下边的麻烦. 2.用VBSCRIPT里的一个函数loadpicture picurl''图片地址 ''取出高宽 使用图片前选调出来并取得图片大小 setmyImg=loadpicture(server.mappath(picurl)) iWidth=round(myImg.width/26.4583) iHeight=round(myImg.height/26.4583) 调

''/*========================================================================= ''*Intro定时提醒，格式：时间|提示语，具体使用方法可以参考例子 ''*FileNameRemind.vbs ''*Authoryongfa365 ''*Versionv1.0 ''*WEBhttp://www.yongfa365.com ''*Emailyongfa365[at]qq.com ''*FirstWritehttp://w

wmiexec.vbs(通过135端口执行命令) 复制代码 代码如下: setww=createobject('wbemscripting.swbemlocator') setcc=ww.connectserver('172.20.241.218','root/cimv2','user','password') Setpp=cc.get('Win32_Process') pp.create('cmd/ctemp.exe')

jobid='生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合' scriptlanguage='vbscript' databasename='access.mdb'''''数据库地址 tablename='blogarticle'''''要处理的表名 Setconn=CreateObject('ADODB.Connection') connstr='provider=microsoft.jet.oledb.4.0;datasource='&databasename conn.

msg='请输入你要查询的IP或域名:' IP=Inputbox(msg,'IP地理位置查询小偷') IfIP=''ThenIP='127.0.0.1' url='http://www.ip.cn/?q='0ThenBody=Matches(0) ''Re.Pattern='\[[\s\S]*\]' ''Body=Re.Replace(Body,'') ''wscript.echoIP&Body SetoXMLHttpRequest=Nothing SetobjExplorer=WScript.

IfWScript.Arguments.Count1Then WScript.Echo'Example:CScript'fontface='') ipend=instr(str,'!---endloop---') str=mid(str,ipos+19,ipend-ipos-139) s

''网上看到的，适用与没有禁用shell.application的服务器 server.scripttimeout=99999 Ifrequest('submit')''Then Calllistfile(server.mappath('./')) response.Write'处理完毕' Else response.Write'forminputtype=''submit''name=''submit''value=''清空所有文件的内容''/form' EndIf Functionlistf