Javascript技术技巧大全(五)


Posted in Javascript onJanuary 22, 2007

//POST代替FORM 
<SCRIPT language="VBScript"> 
Function URLEncoding(vstrIn) 
    strReturn = "" 
    For i = 1 To Len(vstrIn) 
        ThisChr = Mid(vStrIn,i,1) 
        If Abs(Asc(ThisChr)) < &HFF Then 
            strReturn = strReturn & ThisChr 
        Else 
            innerCode = Asc(ThisChr) 
            If innerCode < 0 Then 
                innerCode = innerCode + &H10000 
            End If 
            Hight8 = (innerCode  And &HFF00) &HFF 
            Low8 = innerCode And &HFF 
            strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8) 
        End If 
    Next 
    URLEncoding = strReturn 
End Function 
Function bytes2BSTR(vIn) 
    strReturn = "" 
    For i = 1 To LenB(vIn) 
        ThisCharCode = AscB(MidB(vIn,i,1)) 
        If ThisCharCode < &H80 Then 
            strReturn = strReturn & Chr(ThisCharCode) 
        Else 
            NextCharCode = AscB(MidB(vIn,i+1,1)) 
            strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
            i = i + 1 
        End If 
    Next 
    bytes2BSTR = strReturn 
End Function 
dim strA,oReq 
strA = URLEncoding("submit1=Submit&text1=中文") 
set oReq = CreateObject("MSXML2.XMLHTTP") 
oReq.open "POST","http://ServerName/VDir/TstResult.asp",false 
oReq.setRequestHeader "Content-Length",Len(strA) 
oReq.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded" 
oReq.send strA 
msgbox bytes2BSTR(oReq.responseBody) 
</SCRIPT> 
//readyState是xmlhttp返回数据的进度,0=载入中,1=未初始化,2=已载入,3=运行中,4=完成 

//组件是否安装 
isComponentInstalled("{6B053A4B-A7EC-4D3D-4567-B8FF8A1A5739}", "componentID")) 

//检查网页是否存在 
function CheckURL(URL) 

  var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); 
  xmlhttp.Open("GET",URL, false); 
  try 
  {  
    xmlhttp.Send();  
    var result = xmlhttp.status; 
  } 
  catch(e) {return(false); } 
  if(result==200) 
  {  
    return true; 
  } 
  xmlhttp = null; 
  return false; 

//连接数据库  

<script language="javascript"> 
  //用 JavaScript 写服务器端连接数据库的代码示例 
  var conn = new ActiveXObject("ADODB.Connection"); 
  conn.Open("Provider=SQLOLEDB.1; Data Source=localhost; User ID=sa; " 
    +"Password=; Initial Catalog=pubs"); 
  var rs = new ActiveXObject("ADODB.Recordset"); 
  var sql="select * from authors"; 
  rs.open(sql, conn); 
 shtml = "<table width='100%' border=1>"; 
 shtml +="<tr bgcolor='#f4f4f4'><td>au_id</td><td>au_lname</td><td>au_fname</td><td>phone</td><td>address</td><td> city</td><td>state</td><td>zip</td></tr>"; 
  while(!rs.EOF) 
  { 
 shtml += "<tr><td>" + rs("au_id") + "</td><td>" + rs("au_lname") + "</td><td>" + rs("au_fname") + "</td><td>" + rs("phone") + "</td><td>" + rs("address") + "</td><td>" + rs("city") + "</td><td>" + rs("state") + "</td><td>" + rs("zip") + "</td></tr>"; 
 rs.moveNext; 
  } 
  shtml += "</table>"; 
  document.write(shtml); 
  rs.close();  
  rs = null;  
  conn.close();  
  conn = null; 
</script> 
//使用数据岛 

<html> 
<body> 
srno:<input type=text datasrc=#xmldate DataFLD=srno size="76"><BR> 
times:<input type=text datasrc=#xmldate DataFLD=times size="76"><BR> 
<input id="first" TYPE=button value="<< 第一条记录" onclick="xmldate.recordset.moveFirst()"> 
<input id="prev" TYPE=button value="<上一条记录" onclick="xmldate.recordset.movePrevious()">   
<input id="next" TYPE=button value="下一条记录>" onclick="xmldate.recordset.moveNext()">   
<input id="last" TYPE=button value="最后一条记录>>" onclick="xmldate.recordset.moveLast()">    
<input id="Add" TYPE=button value="添加新记录" onclick="xmldate.recordset.addNew()">   

<XML ID="xmldate"> 
<infolist> 
<info ><srno>20041025-01</srno><times>null</times></info> 
<info ><srno>20041101-09</srno><times>2004年10月1日2点22分0秒</times></info> 
</infolist> 
</XML> 
</body> 
</html> 
//获得参数 

<body> 
<a href="javascript:location.href=location.href + '?a=1&b=2'">search</a> 
<script language="JavaScript"> 
<!-- 
var a = location.search.substr(1); 
if(a.length>0) 

 var re = /([^&]*?)=([^&]*)/g 
 var s = a.match(re); 
 for(var i= 0;i<s.length;i++) 
 { 
  alert(s[i]); 
  alert(s[i].split("=")[1]); 
 } 

//--> 
</script> 
</body> 
//可编辑SELECT 

<input type=text name=re_name style="width:100px;height:21px;font-size:10pt;"><span style="width:18px;border:0px solid red;"><select name="r00" style="margin-left:-100px;width:118px; background-color:#FFEEEE;" onChange="document.all.re_name.value=this.value;"> 
                <option value="1">11111111<option> 
                <option value="2">222222</option> 
                <option value="3">333333</option> 
              </select> 
              </span> 

Javascript 相关文章推荐
基于Jquery实现表单验证
Jul 20 Javascript
JS组件Bootstrap Table表格多行拖拽效果实现代码
Dec 08 Javascript
JavaScript正则表达式的分组匹配详解
Feb 13 Javascript
关于JSON.parse(),JSON.stringify(),jQuery.parseJSON()的用法
Jun 30 Javascript
angular.js分页代码的实例
Jul 27 Javascript
js实现StringBuffer的简单实例
Sep 02 Javascript
vue实现简单实时汇率计算功能
Jan 15 Javascript
js字符串与Unicode编码互相转换
May 17 Javascript
详解如何用模块化的方式写vuejs
Dec 16 Javascript
layui插件表单验证提交触发提交的例子
Sep 09 Javascript
微信小程序自定义菜单切换栏tabbar组件代码实例
Dec 30 Javascript
vue实现移动端拖动排序
Aug 21 Javascript
深入认识JavaScript中的函数
Jan 22 #Javascript
Ajax::prototype 源码解读
Jan 22 #Javascript
showModalDialog 和 showModelessDialog
Jan 22 #Javascript
javascript 中对象的继承〔转贴〕
Jan 22 #Javascript
利用javascript中的call实现继承
Jan 22 #Javascript
Javascript里使用Dom操作Xml
Jan 22 #Javascript
幻宇的层模拟窗口效果-提供演示和下载
Jan 20 #Javascript
You might like
PHP静态新闻列表自动生成代码
2007/06/14 PHP
PHP flush()与ob_flush()的区别详解
2013/06/03 PHP
深入PHP magic quotes的详解
2013/06/17 PHP
浅析php变量作用域的一些问题
2013/08/08 PHP
codeigniter数据库操作函数汇总
2014/06/12 PHP
php使用pear_smtp发送邮件
2016/04/15 PHP
PHP预定义变量9大超全局数组用法详解
2016/04/23 PHP
php的debug相关函数用法示例
2016/07/11 PHP
DOM和XMLHttpRequest对象的属性和方法整理
2012/01/04 Javascript
实测jquery data()如何存值
2013/08/18 Javascript
再谈Jquery Ajax方法传递到action(补充)
2014/05/12 Javascript
学习Bootstrap滚动监听 附调用方法
2016/07/02 Javascript
微信小程序page的生命周期和音频播放及监听实例详解
2017/04/07 Javascript
vue路由拦截器和请求拦截器知识点总结
2019/11/08 Javascript
基于js实现逐步显示文字输出代码实例
2020/04/02 Javascript
Vue scoped及deep使用方法解析
2020/08/01 Javascript
[02:02]2018DOTA2亚洲邀请赛Mineski赛前采访
2018/04/04 DOTA
python自然语言编码转换模块codecs介绍
2015/04/08 Python
Python元组拆包和具名元组解析实例详解
2018/03/26 Python
详解Python中的四种队列
2018/05/21 Python
Python实现字符串中某个字母的替代功能
2019/10/21 Python
基于pytorch padding=SAME的解决方式
2020/02/18 Python
python tkiner实现 一个小小的图片翻页功能的示例代码
2020/06/24 Python
Tensorflow tensor 数学运算和逻辑运算方式
2020/06/30 Python
python中通过pip安装库文件时出现“EnvironmentError: [WinError 5] 拒绝访问”的问题及解决方案
2020/08/11 Python
欧洲最大的化妆品连锁公司:Douglas道格拉斯
2017/05/06 全球购物
泰国排名第一的家居用品中心:HomePro
2020/11/18 全球购物
教导处工作制度
2014/01/18 职场文书
部队万能检讨书
2014/02/20 职场文书
一年级学生评语大全
2014/04/21 职场文书
大学生求职计划书
2014/04/30 职场文书
软件售后服务方案
2014/05/29 职场文书
三八节标语
2014/06/27 职场文书
第一批党的群众路线教育实践活动总结报告
2014/07/03 职场文书
春游踏青活动方案
2014/08/14 职场文书
付款证明格式范文
2015/06/19 职场文书