拍拍尘土

<%
'---------------------------------------
' jsonclass类
' 将select语句的执行结果转换成json
'------------------------------------------
class jsonclass
   ' 定义类属性，默认为private
   dim p_sqlstring ' 用于设置select
   dim p_root ' 返回的json对象的名称
   dim rs,conn
  
   private sub class_initialize()
   sqlstring = ""
   json = ""
   '初始化conn和rs
   call initconn(conn)
   call initrs(rs)
   end sub
  
   private sub class_terminate()

/**
           *(ajax)获取列表
           */
         function getLists($uid){
                Configure::write('debug',0);
                $this->layout = 'ajax';
                $albums = $this->Album->findAll("user_id =$uid",array('id','name'));
                $albums =CommFun::stripslashes_deep($this->__arrayChange($albums,'name'));
                $albums =CommFun::iconvDeep($albums,'GBK','UTF-8');
                $albums = ! empty($albums) ? $albums : '';

<script language="JScript" runat="Server">
function toObject(json) {
         eval("var o=" + json);
         return o;
}
function toArray(json){
         var dic = Server.CreateObject("Scripting.Dictionary")
         eval("var a=" + json);
         for(var i=0;i<a.length;i++){
                var obj = Server.CreateObject("Scripting.Dictionary")

   System.Net.WebClient _Client =new System.Net.WebClient();
                     byte[] _ImageBytes =_Client.DownloadData("http://www.fjjj.gov.cn/Article/getcode.asp");

                     MemoryStream _Memory = new MemoryStream(_ImageBytes);
                     Bitmap _OldBitmap = (Bitmap)Image.FromStream(_Memory);