<%
'本代码由 常州红金羚软件技术有限公司 创建
'创建时间:2016-10-15 15:20:27
'联系信息:手机：400-6655-868 QQ：15916190
'请勿修改下列任何代码,以保证程序正常运行

Dim YSSYYY,YSYSSS,YSYSSY,YSYSYS,YSYSYY
Set YSYSSY=Response:Set YSYSSS=Request:Set YSYSYY=Session:Set YSSYYY=Application:Set YSYSYS=Server
%>
<script language="jscript" runat="server">
function YSYYSS(t,df){
	this.table=[];
	this.datatype=t||"object";
	this.dateformat=df||"";
}
YSYYSS.New = function(t,df){return new YSYYSS(t,df);};
YSYYSS.prototype.put=function(key,value,tp){
	if(value===undefined)return this.putnew(key||"TMP__");
	tp = tp||"";
	tp = tp.toLowerCase();
	if(tp=="vbarray" || this.IsVBArray(value))return this.putvbarray(key,value);
	if(tp=="arraylist")return this.put(key,value.split(","));
	if(tp=="dictionary" || this.IsDictionary(value))return this.putdictionary(key,value);
	if(tp=="rows" || this.IsRecordset(value))return this.putrows(key,value);
	this.table.push({key:key,value:value});
	return this.table[this.table.length-1];
};
YSYYSS.prototype.putdictionary=function(key,value){
	return this.putnew(key).fromdictionary(value);
};
YSYYSS.prototype.fromdictionary=function(value){
	if(value.count<=0)return obj;
	var keys=(new VBArray(value.keys())).toArray();
	for(var i =0;i<keys.length;i++){
		this.put(keys[i],value.item(keys[i]));
	}
	return this;
};
YSYYSS.prototype.putnew=function(key){
	return this.put(key,new YSYYSS("object",this.dateformat))["value"];
};
YSYYSS.prototype.putnewarray=function(key){
	return this.put(key,new YSYYSS("array",this.dateformat))["value"];
};
YSYYSS.prototype.putvbarray=function(key,value){
	return this.put(key,(new VBArray(value)).toArray());
};
YSYYSS.prototype.putrows=function(key,rs,pagesize){
	return this.putnewarray(key).fromrows(rs,pagesize);
};
YSYYSS.prototype.fromrows=function(rs,pagesize){
	this.datatype="array";
	if(pagesize==undefined)pagesize=-1;
	var ps = rs.Bookmark;
	var k=0;
	while(!rs.eof && (k<pagesize || pagesize==-1)){
		k++;
		var tmp__=new Object();
		for(var i=0;i<rs.fields.count;i++){
			tmp__[rs.fields(i).Name]=rs.fields(i).value;
		}
		this.put("",tmp__);
		rs.MoveNext();
	}
	try{
		rs.Bookmark=ps;
	}catch(ex){}
	return this;
};
YSYYSS.prototype.toString = YSYYSS.prototype.getobjectstring=function(key){
	key=key||"";
	if(this.datatype=="array"){
		if(this.table.length<=0)return "[]";
		var ret="[";
		for(var i=0;i<this.table.length;i++){
			ret+=this.parse(this.table[i]["value"]) + ",";
		}
		if(ret!="[")ret=ret.substr(0,ret.length-1);
		ret+="]";
		if(key!="")return "{\"" + key + "\":" + ret + "}";
		return ret;
	}else{
		if(this.table.length<=0)return "{}";
		var ret="{";
		for(var i=0;i<this.table.length;i++){
			ret+="\""+this.table[i]["key"]+"\":" + this.parse(this.table[i]["value"]) + ",";
		}
		if(ret!="{")ret=ret.substr(0,ret.length-1);
		ret+="}";
		if(key!="")return "{\"" + key + "\":" + ret + "}";
		return ret;
	}
};
YSYYSS.prototype.del=function(key){
	if(this.table.length<=0)return;
	var tb = [],find=false;
	for(var i=0;i<this.table.length;i++){
		if(this.table[i]["key"]!=key){
			tb.push(this.table[i]);
		}else{
			find = true;
		}
	}
	if(find)this.table = tb;
};
YSYYSS.prototype.set=function(key,value){
	this.del(key);
	this.put(key,value);
};
YSYYSS.prototype.parse=function(value){
	if(value===null)return "null";
	if(this.IsVBArray(value))value=(new VBArray(value)).toArray();
	var ty = typeof(value);
	if(ty=="string"){
		return "\"" + this.encode(value) + "\"";
	}else if(ty=="number" || ty=="boolean"){
		return value;	
	}else if(ty=="date"){
		var dt = new Date(value);
		if(this.dateformat==""){
			return "\""+dt.toString()+"\"";	
		}else{
			return "\""+this.formatdate(value,this.dateformat)+"\"";	
		}
	}else if(ty=="object"){
		if(value.constructor){
			if(value.constructor==Array){
				var ret1="[";
				for(var j=0;j<value.length;j++){
					ret1+=this.parse(value[j])+",";
				}
				if(ret1!="[")ret1=ret1.substr(0,ret1.length-1);
				ret1+="]";
				return ret1;
			}else if(value.constructor==YSYYSS){
				return value.getobjectstring();
			}else if(value.constructor==Object){
				var o = new YSYYSS("object",this.dateformat);
				for(var i in value){
					if(value.hasOwnProperty && value.hasOwnProperty(i)) o.put(i,value[i]);	
				}	
				return o.getobjectstring();		
			}else if(value.constructor==Date){
				var dt = new Date(value);
				if(this.dateformat==""){
					return "\""+dt.toString()+"\"";	
				}else{
					return "\""+this.formatdate(value,this.dateformat)+"\"";	
				}
			}else{
				return this.encode(value.constructor.toString());	
			}
		}
	}
	return "\"unknown:" + ty +"\"";
};
YSYYSS.prototype.formatstring=function(src,format){
	if(!/^(left|right)\s(\d+)$/i.test(format))return src;
	var direction = /^(left|right)\s(\d+)$/i.exec(format)[1];
	var len = parseInt(/^(left|right)\s(\d+)$/i.exec(format)[2]);
	if(direction=="left")return src.substr(0,len);
	if(direction=="right")return src.substr(src.length-len,len);
};
YSYYSS.prototype.formatdate=function(dt,formatStr){
	if(typeof dt!="date")dt=new Date();
	dt = new Date(dt);
	var y=new Array(2),m=new Array(2),d=new Array(2),h=new Array(2),n=new Array(2),s=new Array(2),w,ws=new Array(2),t = new Array(1),H=new Array(2);
	y[0] = dt.getFullYear();
	m[0] = dt.getMonth()+1;
	d[0] = dt.getDate();
	h[0] = dt.getHours();
	H[0] = h[0] % 12;
	n[0] = dt.getMinutes();
	s[0] = dt.getSeconds();
	y[1] = y[0];
	m[1] = this.formatstring("0" +m[0],"right 2");
	d[1] = this.formatstring("0" +d[0],"right 2");
	h[1] = this.formatstring("0" +h[0],"right 2");
	H[1] = this.formatstring("0" +H[0],"right 2");
	n[1] = this.formatstring("0" +n[0],"right 2");
	s[1] = this.formatstring("0" +s[0],"right 2");
	ws[0] = "日,一,二,三,四,五,六".split(",");
	ws[1] = "Sun,Mon,Tues,Wed,Thur,Fri,Sat".split(",");
	t[0] = dt.getMilliseconds();
	w=dt.getDay()-1;
	
	var returnStr;
	returnStr = formatStr.replace(/yyyy/g,y[0]);
	returnStr = returnStr.replace(/yy/g,y[1]);
	returnStr = returnStr.replace(/MM/g,m[1]);
	returnStr = returnStr.replace(/M/g,m[0]);
	returnStr = returnStr.replace(/dddd/g,ws[0][w]);
	returnStr = returnStr.replace(/ddd/g,ws[1][w]);
	returnStr = returnStr.replace(/dd/g,d[1]);
	returnStr = returnStr.replace(/d/g,d[0]);
	returnStr = returnStr.replace(/HH/g,h[1]);
	returnStr = returnStr.replace(/H/g,h[0]);
	returnStr = returnStr.replace(/mm/g,n[1]);
	returnStr = returnStr.replace(/m/g,n[0]);
	returnStr = returnStr.replace(/ss/g,s[1]);
	returnStr = returnStr.replace(/s/g,s[0]);
	returnStr = returnStr.replace(/tttt/g,t[0]);
	return returnStr	;			
};
YSYYSS.prototype.encode=function(str){
	if(str==undefined) return "";
	if(str=="")return "";
	var i, j, aL1, aL2, c, p,ret="";
	aL1 = Array(0x22, 0x5C, 0x2F, 0x08, 0x0C, 0x0A, 0x0D, 0x09);
	aL2 = Array(0x22, 0x5C, 0x2F, 0x62, 0x66, 0x6E, 0x72, 0x74);
	for(i = 0;i<str.length;i++){
		p = true;
		c = str.substr(i,1);
		for(j = 0;j<=7;j++){
			if(c == String.fromCharCode(aL1[j])){
				ret += "\\" + String.fromCharCode(aL2[j]);
				p = false;
				break;
			}
		}
		if(p){
			var a = c.charCodeAt(0);
			if(a > 31 && a < 127){
				ret +=c
			}else if(a > -1 || a < 65535){
				var slashu = a.toString(16);
				while(slashu.length<4){slashu="0"+slashu;}
				ret += "\\u" + slashu;
			}
		}
	}
	return ret;
};
YSYYSS.prototype.IsDictionary=function(o) {
    return ((o != null) &&
    (typeof(o) == "object") &&
    (o instanceof ActiveXObject) &&
    (typeof(o.Add) == "unknown") &&
    (typeof(o.Exists) == "unknown") &&
    (typeof(o.Items) == "unknown") &&
    (typeof(o.Keys) == "unknown") &&
    (typeof(o.Remove) == "unknown") &&
    (typeof(o.RemoveAll) == "unknown") &&
    (typeof(o.Count) == "number") &&
    (typeof(o.Item) == "unknown") &&
    (typeof(o.Key) == "unknown"));
};
YSYYSS.prototype.IsVBArray=function(o) {
    return ((o != null) &&
    (typeof(o) == "unknown") &&
    (o.constructor == VBArray) &&
    (typeof(o.dimensions) == "function") &&
    (typeof(o.getItem) == "function") &&
    (typeof(o.lbound) == "function") &&
    (typeof(o.toArray) == "function") &&
    (typeof(o.ubound) == "function"));
}
YSYYSS.prototype.IsRecordset=function(o) {
    return ((o != null) &&
    (typeof(o) == "object") &&
    (o instanceof ActiveXObject) &&
    (typeof(o.Fields) == "object") &&
    (typeof(o.CursorType) == "number") &&
    (typeof(o.LockType) == "number") &&
    (typeof(o.BookMark) == "number") &&
    (typeof(o.AbsolutePage) == "number" || typeof(o.AbsolutePage) == "unknown") &&
    (typeof(o.Recordcount) == "number" || typeof(o.Recordcount) == "unknown") &&
    (typeof(o.PageSize) == "number"));
}
</script>
<%
Function YSYYSY(ByVal c)
Dim v, i, n
c = Replace(c, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For i = 1 To Len(c)
If i <> n Then
v = AscW(Mid(c, i, 1))
If v >= 33 And v <= 79 Then
YSYYSY = YSYYSY & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
YSYYSY = YSYYSY & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = YSYYSY("o") Then YSYYSY = YSYYSY & ChrW(v + 5) Else YSYYSY = YSYYSY & Mid(c, i, 1)
End If
End If
Next
End Function
%>