标签: asp

JSON( Object Notation) 我想这个名字大家已经不陌生了，它是一种轻量级的数据交换格式 , 是由服务直接生成语句，客户端获取后直接用 eval 方法来获得这个对象，这样就可以省去解析 XML 解析带来的性能问题和兼容性问题，而且对于来说非常容易使用，可以方便的通过遍历数组以及访问对象属性来获取数据，其可读性也不错，基本具备了结构化数据的性质。不得不说是一个很好的办法，例如 google maps 就没有采用 XML 传递数据，而是采用了 JSON 方案。 这里我给大家举一个 ASP 调用 Json 的例子，起到一个抛砖引玉的作用吧 ..... 以下是 tset.asp 代码片段 !--#include file="jsonParse.asp"-- % Dim strTest strTest = "{name:""alonely"", age:24, email: , family:{parents: ,toString:function(){return ""家庭成员"";}}}" Dim objTest InitScriptControl Set objTest = getJSONObject( strTest ) % %=objTest.name%的邮件地址是%=sc4Json.Eval("jsonObject.email ")%BR 共有邮件地址%=objTest.email.length%个BR % Dim father getJSArrayItem father, objTest.family.parents, 0 Response.Write father % 以下是 jsonParse.asp 代码片段 % Option Explicit Dim sc4Json Sub InitScriptControl  Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl")  sc4Json.Language = ""  sc4Json.AddCode "var itemTemp=null;function getJSArray(arr, index){itemTemp=arr ;}" End Sub Function getJSONObject( strJSON )  sc4Json.AddCode "var jsonObject = " strJSON  Set getJSONObject = sc4Json.CodeObject.jsonObject End Function Sub getJSArrayItem( objDest, objJSArray, index ) On Error Resume Next  sc4Json.Run "getJSArray",objJSArray, index  Set objDest = sc4Json.CodeObject.itemTemp  If Err.number=0 Then   Exit Sub  End If  objDest = sc4Json.CodeObject.itemTemp End Sub %

所谓事务处理，简单地说，就是所有的数据库操作都可以看做事务处理。当开始一个事务处理后，就打开Web页面与数据库的事务处理通道，此时可以从Web页面上直接更新数据库内容，但是更新结果并不马上真正反映到数据库中。只有在提交事务处理结果后，数据库内容才能被真正更新，否则，所有的操作都无效。 用法举例(db1.mdb中有一个test表，只包含一个name文本字段)： % Dim conn,sqlstr,sqlstr2,sqlstr3 Set conn=server.createobject("ADODB.connection") Conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" server.mappath("db1.mdb") Conn.open sqlstr="insert into test(name) values('aaa')"   '正确的SQL语句 sqlstr2="insert into test(name2) values('bbb')"   '错误的SQL语句 sqlstr3="insert into test(name) values('ccc')"   '正确的SQL语句 Conn.BeginTrans conn.execute(sqlstr) conn.execute(sqlstr2) conn.execute(sqlstr3) If conn.Errors.Count=0 then      Conn.CommitTrans      Response.write "" Else      Conn.RollbackTrans      Response.write "" End if Conn.close Set conn=nothing % 这样当执行到错误的SQL语句时程序抛出错误信息，不再理会后面第三条SQL语句正确与否，事务处理机制生效，整个提交过程无效。实现运用中我们并不希望将错误信息展示在用户面前，于是我们加了On error resume next语句，如下： % Dim conn,sqlstr,sqlstr2,sqlstr3 Set conn=server.createobject("ADODB.connection") Conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" server.mappath("db1.mdb") Conn.open sqlstr="insert into test(name) values('aaa')" sqlstr2="insert into test(name2) values('bbb')" sqlstr3="insert into test(name) values('ccc')" On error resume next Conn.BeginTrans conn.execute(sqlstr) conn.execute(sqlstr2) conn.execute(sqlstr3) If conn.Errors.Count =0 then      Conn.CommitTrans      Response.write "" Else      Conn.RollbackTrans      Response.write "" End if On Error GoTo 0 Conn.close Set conn=nothing % 这样出现的问题是只要最后一条SQL语句是正确的，那么conn.Errors.Count的值就必定为0,这样的结果是先前错误的SQL语句不会执行，正确的SQL语句会被正确执行，整个事务处理机制基本上等于失效，解决的办法是将conn.Errors.Count改为err.number，代码如下： % Dim conn,sqlstr,sqlstr2,sqlstr3 Set conn=server.createobject("ADODB.connection") Conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" server.mappath("db1.mdb") Conn.open sqlstr="insert into test(name) values('aaa')" sqlstr2="insert into test(name2) values('bbb')" sqlstr3="insert into test(name) values('ccc')" On error resume next Conn.BeginTrans conn.execute(sqlstr) conn.execute(sqlstr2) conn.execute(sqlstr3) If err.number = 0 then      Conn.CommitTrans      Response.write "" Else      Conn.RollbackTrans      Response.write "" End if On Error GoTo 0 Conn.close Set conn=nothing %