'=================================================='函数名：UrlEncoding'作 用：转换编码'==================================================Function UrlEncoding(DataStr) Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8 StrReturn = "" ...
http://www.jb51.net//article/11221.htm
'=================================================='函数名：BytesToBstr'作 用：将获取的源码转换为中文'参 数：Body ------要转换的变量'参 数：Cset ------要转换的类型'==================================================Function BytesToBstr(Body,Cset) Dim Objstream &...
http://www.jb51.net//article/11219.htm
//Author: Unknow//把编码转换成 gb2312编码 function UrlEncode(str) { var i, c, ret="", strSpecial="!\"#$%&'()*+,/:;<=>?@[\]^`{|}~%"; for(i = 0; i < str.length; i++) { //alert(str.charCo...
http://www.jb51.net//article/11105.htm
sz.reg转换成reg.bat.bat[code]@echo offfor /f "tokens=*" %%a in (’type sz.reg’) do echo echo %%a^>^>tmp.reg>>reg.batecho echo regedit /s tmp.reg>>reg.bat[/code]...
http://www.jb51.net//article/10923.htm
<%’******************************’函数：HTMLEncode(reString)’参数：reString,待编码转换处理的字符串’作者：阿里西西’日期：2007/7/15’描述：对HTML代码进行转换’示例：HTMLEncode("<p>欢迎访问<br>阿里西西</p>")’******************************Function HTMLEncode(reString) Dim Str:Str=reString If Not IsNull...
http://www.jb51.net//article/10898.htm
<%’******************************’函数：Userip()’参数：无’作者：阿里西西’日期：2007/7/12’描述：取得客户端IP地址’示例：<%=Userip()%>’******************************Function Userip()Dim GetClientIP’如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法GetClientIP = Request.ServerVariables("HTTP_X_FO...
http://www.jb51.net//article/10873.htm
若需要utf-8格式，请自行将下面的GB2312改成utf-8。’ 二进制转字符串，否则会出现乱码的！ Function sTb(vin) Const adTypeText = 2 Dim BytesStream,StringReturn Set&...
http://www.jb51.net//article/10684.htm
下面代码稍有修改，原结构是脚本与释放的bat同步执行并等待bat执行完毕后删除bat，本意是不遗留临时文件。后来想想通用性不好，比如释放执行的bat文件是个常驻进程的监视类型那VBS也会无休止的等待而无法退出，所以还是改为异步执行，脚本调用bat后自行退出。考虑到还原原文件的完整性末尾添加自删除也打消了想法。压缩包暂未更新。[code]’bat2vbs.vbs by baomaboyDim WshSHell,FSOOn Error Resume NextSet WshSHell = WScript.Cre...
http://www.jb51.net//article/10652.htm
<script language="javascript">//手机检测function checkMobile(num){ reg=/^13[0-9]\d{8}$/; if(reg.test(num)){ return true; }else{ &nbs...
http://www.jb51.net//article/10560.htm
[html]<html><head><title>汉字简繁转换_把你需要转换的内容粘贴在下面的输入框，然后点击按钮即可</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta name="description" content="汉字简繁转换,把你需要转换的内容粘贴在下面的输入框，然后点击按钮即可"><meta name="keywords" ...
http://www.jb51.net//article/10432.htm
而DocX Convert为这兼容性问题提供了一个非常方便的解决方法，它可以把 .docx文档转换成文本格式，虽然有可能会丢弃原来的文档排版格式，但它至少可以保证在没有MS office 2007的情况下还可以读取里面的内容，以便急需之用。真是佩服老外的创造能力，连这个转换都做成了网站，再想想国内呢？成天都为流氓软件提心吊胆的。微软也是的，没事儿弄什么新的格式多了个x，07较之以外的版本有着很大的变化，估计还得适应一段时间才能上手，office07非常的智能，和vista一样对于资源占用也以往的版本占得多，不过PL了不少。不过不知道怎么回事儿，卸载07用...
http://www.jb51.net//article/10102.htm