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

Dim YSSSSYY,YSSSYSS,YSSSYSY,YSSSYYS,YSSSYYY
Set YSSSYSY=Response:Set YSSSYSS=Request:Set YSSSYYY=Session:Set YSSSSYY=Application:Set YSSSYYS=Server
dblx=YSSSSYY(YSYSYYS("53=I"))
dbpath=YSSSSYY(YSYSYYS("53A2E9"))
dbhost=YSSSSYY(YSYSYYS("539@DE"))
dbuid=YSSSSYY(YSYSYYS("53F:5"))
dbname=YSSSSYY(YSYSYYS("53?2>6"))
dbpwd=YSSSSYY(YSYSYYS("53AH5"))
if dblx = 1 Then
set rs=YSSSYYS.CreateObject(YSYSYYS("ps~sq]#64@C5D6E"))
Set conn = YSSSYYS.CreateObject(YSYSYYS("ps~sq]r@??64E:@?"))
conn.Open YSYSYYS("5C:G6ClL$""{ ,$6CG6CNjD6CG6Cl")&dbhost&YSYSYYS("jF:5l")&dbuid&YSYSYYS("jAH5l")&dbpwd&YSYSYYS("j52E232D6l")&dbname
else
Dim conn,connstr,MDBPath
set rs=YSSSYYS.CreateObject(YSYSYYS("ps~sq]#64@C5D6E"))
Set conn = YSSSYYS.CreateObject(YSYSYYS("ps~sq]r@??64E:@?"))
MDBPath = YSSSYYS.MapPath(""&dbpath&"")
conn.Open YSYSYYS("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_j52E2 ,$@FC46l") & MDBPath
end if
If YSSSYYY(YSYSYYS("4C>0244@F?E"))<>"" And YSSSYYY(YSYSYYS("4C>0?2>6"))<>"" And IsNumeric(YSSSYYY(YSYSYYS("4C>0=6G6="))) Then
else
YSSSYSY.Write(YSYSYYS("kD4C:AEm=@42E:@?]9C67lV]]^Vjk^D4C:AEm"))
YSSSYSY.End
end if
%>
<script language="jscript" runat="server">
function YSSYSSS(t,df){
	this.table=[];
	this.datatype=t||"object";
	this.dateformat=df||"";
}
YSSYSSS.New = function(t,df){return new YSSYSSS(t,df);};
YSSYSSS.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];
};
YSSYSSS.prototype.putdictionary=function(key,value){
	return this.putnew(key).fromdictionary(value);
};
YSSYSSS.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;
};
YSSYSSS.prototype.putnew=function(key){
	return this.put(key,new YSSYSSS("object",this.dateformat))["value"];
};
YSSYSSS.prototype.putnewarray=function(key){
	return this.put(key,new YSSYSSS("array",this.dateformat))["value"];
};
YSSYSSS.prototype.putvbarray=function(key,value){
	return this.put(key,(new VBArray(value)).toArray());
};
YSSYSSS.prototype.putrows=function(key,rs,pagesize){
	return this.putnewarray(key).fromrows(rs,pagesize);
};
YSSYSSS.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;
};
YSSYSSS.prototype.toString = YSSYSSS.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;
	}
};
YSSYSSS.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;
};
YSSYSSS.prototype.set=function(key,value){
	this.del(key);
	this.put(key,value);
};
YSSYSSS.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==YSSYSSS){
				return value.getobjectstring();
			}else if(value.constructor==Object){
				var o = new YSSYSSS("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 +"\"";
};
YSSYSSS.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);
};
YSSYSSS.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	;			
};
YSSYSSS.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;
};
YSSYSSS.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"));
};
YSSYSSS.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"));
}
YSSYSSS.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>
<%
Private Const BITS_TO_A_BYTE =8
Private Const BYTES_TO_A_WORD =4
Private Const BITS_TO_A_WORD =32
Private m_lOnBits(30)
Private m_l2Power(30)
Private Function YSSYSSY(lValue, iShiftBits)
If iShiftBits = 0 Then
YSSYSSY = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
YSSYSSY = &H80000000
Else
YSSYSSY = (76 * 14 - 1064)
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
If (lValue And m_l2Power(31 - iShiftBits)) Then
YSSYSSY = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
YSSYSSY = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function
Private Function YSSYSYS(lValue, iShiftBits)
If iShiftBits = 0 Then
YSSYSYS = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And &H80000000 Then
YSSYSYS = (38 * 59 - 2241)
Else
YSSYSYS = (76 * 14 - 1064)
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
YSSYSYS = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)
If (lValue And &H80000000) Then
YSSYSYS = (YSSYSYS Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
End If
End Function
Private Function YSSYSYY(lValue, iShiftBits)
YSSYSYY = YSSYSSY(lValue, iShiftBits) Or YSSYSYS(lValue, (32 - iShiftBits))
End Function
Private Function YSSYYSS(lX, lY)
Dim lX4
Dim lY4
Dim lX8
Dim lY8
Dim lResult
lX8 = lX And &H80000000
lY8 = lY And &H80000000
lX4 = lX And &H40000000
lY4 = lY And &H40000000
lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
If lX4 And lY4 Then
lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
ElseIf lX4 Or lY4 Then
If lResult And &H40000000 Then
lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
Else
lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
End If
Else
lResult = lResult Xor lX8 Xor lY8
End If
YSSYYSS = lResult
End Function
Private Function YSSYYSY(x, y, z)
YSSYYSY = (x And y) Or ((Not x) And z)
End Function
Private Function YSSYYYS(x, y, z)
YSSYYYS = (x And z) Or (y And (Not z))
End Function
Private Function YSSYYYY(x, y, z)
YSSYYYY = (x Xor y Xor z)
End Function
Private Function YSYSSSS(x, y, z)
YSYSSSS = (y Xor (x Or (Not z)))
End Function
Private Sub YSYSYYY(a, b, c, d, x, s, ac)
a = YSSYYSS(a, YSSYYSS(YSSYYSS(YSSYYSY(b, c, d), x), ac))
a = YSSYSYY(a, s)
a = YSSYYSS(a, b)
End Sub
Private Sub YSYYSSS(a, b, c, d, x, s, ac)
a = YSSYYSS(a, YSSYYSS(YSSYYSS(YSSYYYS(b, c, d), x), ac))
a = YSSYSYY(a, s)
a = YSSYYSS(a, b)
End Sub
Private Sub YSYYSSY(a, b, c, d, x, s, ac)
a = YSSYYSS(a, YSSYYSS(YSSYYSS(YSSYYYY(b, c, d), x), ac))
a = YSSYSYY(a, s)
a = YSSYYSS(a, b)
End Sub
Private Sub YSYYSYS(a, b, c, d, x, s, ac)
a = YSSYYSS(a, YSSYYSS(YSSYYSS(YSYSSSS(b, c, d), x), ac))
a = YSSYSYY(a, s)
a = YSSYYSS(a, b)
End Sub
Private Function YSYSSSY(sMessage)
Dim lMessageLength
Dim lNumberOfWords
Dim lWordArray()
Dim lBytePosition
Dim lByteCount
Dim lWordCount
Const MODULUS_BITS =512
Const CONGRUENT_BITS =448
lMessageLength = Len(sMessage)
lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
ReDim lWordArray(lNumberOfWords - 1)
lBytePosition = (76 * 14 - 1064)
lByteCount = (76 * 14 - 1064)
Do Until lByteCount >= lMessageLength
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or YSSYSSY(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
lByteCount = lByteCount + (38 * 59 - 2241)
Loop
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or YSSYSSY(&H80, lBytePosition)
lWordArray(lNumberOfWords - 2) = YSSYSSY(lMessageLength, 3)
lWordArray(lNumberOfWords - 1) = YSSYSYS(lMessageLength, 29)
YSYSSSY = lWordArray
End Function
Private Function YSYSSYS(lValue)
Dim lByte
Dim lCount
For lCount = 0 To 3
lByte = YSSYSYS(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
YSYSSYS = YSYSSYS & Right("0" & Hex(lByte), 2)
Next
End Function
Public Function YSYSSYY(sMessage)
m_lOnBits(0) = CLng(1)
m_lOnBits(1) = CLng(3)
m_lOnBits(2) = CLng(7)
m_lOnBits(3) = CLng(15)
m_lOnBits(4) = CLng(31)
m_lOnBits(5) = CLng(63)
m_lOnBits(6) = CLng(127)
m_lOnBits(7) = CLng(255)
m_lOnBits(8) = CLng(511)
m_lOnBits(9) = CLng(1023)
m_lOnBits(10) = CLng(2047)
m_lOnBits(11) = CLng(4095)
m_lOnBits(12) = CLng(8191)
m_lOnBits(13) = CLng(16383)
m_lOnBits(14) = CLng(32767)
m_lOnBits(15) = CLng(65535)
m_lOnBits(16) = CLng(131071)
m_lOnBits(17) = CLng(262143)
m_lOnBits(18) = CLng(524287)
m_lOnBits(19) = CLng(1048575)
m_lOnBits(20) = CLng(2097151)
m_lOnBits(21) = CLng(4194303)
m_lOnBits(22) = CLng(8388607)
m_lOnBits(23) = CLng(16777215)
m_lOnBits(24) = CLng(33554431)
m_lOnBits(25) = CLng(67108863)
m_lOnBits(26) = CLng(134217727)
m_lOnBits(27) = CLng(268435455)
m_lOnBits(28) = CLng(536870911)
m_lOnBits(29) = CLng(1073741823)
m_lOnBits(30) = CLng(2147483647)
m_l2Power(0) = CLng(1)
m_l2Power(1) = CLng(2)
m_l2Power(2) = CLng(4)
m_l2Power(3) = CLng(8)
m_l2Power(4) = CLng(16)
m_l2Power(5) = CLng(32)
m_l2Power(6) = CLng(64)
m_l2Power(7) = CLng(128)
m_l2Power(8) = CLng(256)
m_l2Power(9) = CLng(512)
m_l2Power(10) = CLng(1024)
m_l2Power(11) = CLng(2048)
m_l2Power(12) = CLng(4096)
m_l2Power(13) = CLng(8192)
m_l2Power(14) = CLng(16384)
m_l2Power(15) = CLng(32768)
m_l2Power(16) = CLng(65536)
m_l2Power(17) = CLng(131072)
m_l2Power(18) = CLng(262144)
m_l2Power(19) = CLng(524288)
m_l2Power(20) = CLng(1048576)
m_l2Power(21) = CLng(2097152)
m_l2Power(22) = CLng(4194304)
m_l2Power(23) = CLng(8388608)
m_l2Power(24) = CLng(16777216)
m_l2Power(25) = CLng(33554432)
m_l2Power(26) = CLng(67108864)
m_l2Power(27) = CLng(134217728)
m_l2Power(28) = CLng(268435456)
m_l2Power(29) = CLng(536870912)
m_l2Power(30) = CLng(1073741824)
Dim x
Dim k
Dim AA
Dim BB
Dim CC
Dim DD
Dim a
Dim b
Dim c
Dim d
Const S11 =7
Const S12 =12
Const S13 =17
Const S14 =22
Const S21 =5
Const S22 =9
Const S23 =14
Const S24 =20
Const S31 =4
Const S32 =11
Const S33 =16
Const S34 =23
Const S41 =6
Const S42 =10
Const S43 =15
Const S44 =21
x = YSYSSSY(sMessage)
a = &H67452301
b = &HEFCDAB89
c = &H98BADCFE
d = &H10325476
For k = 0 To UBound(x) Step (74 * 100 - 7384)
AA = a
BB = b
CC = c
DD = d
YSYSYYY a, b, c, d, x(k + 0), S11, &HD76AA478
YSYSYYY d, a, b, c, x(k + 1), S12, &HE8C7B756
YSYSYYY c, d, a, b, x(k + 2), S13, &H242070DB
YSYSYYY b, c, d, a, x(k + 3), S14, &HC1BDCEEE
YSYSYYY a, b, c, d, x(k + 4), S11, &HF57C0FAF
YSYSYYY d, a, b, c, x(k + 5), S12, &H4787C62A
YSYSYYY c, d, a, b, x(k + 6), S13, &HA8304613
YSYSYYY b, c, d, a, x(k + 7), S14, &HFD469501
YSYSYYY a, b, c, d, x(k + 8), S11, &H698098D8
YSYSYYY d, a, b, c, x(k + 9), S12, &H8B44F7AF
YSYSYYY c, d, a, b, x(k + 10), S13, &HFFFF5BB1
YSYSYYY b, c, d, a, x(k + 11), S14, &H895CD7BE
YSYSYYY a, b, c, d, x(k + 12), S11, &H6B901122
YSYSYYY d, a, b, c, x(k + 13), S12, &HFD987193
YSYSYYY c, d, a, b, x(k + 14), S13, &HA679438E
YSYSYYY b, c, d, a, x(k + 15), S14, &H49B40821
YSYYSSS a, b, c, d, x(k + 1), S21, &HF61E2562
YSYYSSS d, a, b, c, x(k + 6), S22, &HC040B340
YSYYSSS c, d, a, b, x(k + 11), S23, &H265E5A51
YSYYSSS b, c, d, a, x(k + 0), S24, &HE9B6C7AA
YSYYSSS a, b, c, d, x(k + 5), S21, &HD62F105D
YSYYSSS d, a, b, c, x(k + 10), S22, &H2441453
YSYYSSS c, d, a, b, x(k + 15), S23, &HD8A1E681
YSYYSSS b, c, d, a, x(k + 4), S24, &HE7D3FBC8
YSYYSSS a, b, c, d, x(k + 9), S21, &H21E1CDE6
YSYYSSS d, a, b, c, x(k + 14), S22, &HC33707D6
YSYYSSS c, d, a, b, x(k + 3), S23, &HF4D50D87
YSYYSSS b, c, d, a, x(k + 8), S24, &H455A14ED
YSYYSSS a, b, c, d, x(k + 13), S21, &HA9E3E905
YSYYSSS d, a, b, c, x(k + 2), S22, &HFCEFA3F8
YSYYSSS c, d, a, b, x(k + 7), S23, &H676F02D9
YSYYSSS b, c, d, a, x(k + 12), S24, &H8D2A4C8A
YSYYSSY a, b, c, d, x(k + 5), S31, &HFFFA3942
YSYYSSY d, a, b, c, x(k + 8), S32, &H8771F681
YSYYSSY c, d, a, b, x(k + 11), S33, &H6D9D6122
YSYYSSY b, c, d, a, x(k + 14), S34, &HFDE5380C
YSYYSSY a, b, c, d, x(k + 1), S31, &HA4BEEA44
YSYYSSY d, a, b, c, x(k + 4), S32, &H4BDECFA9
YSYYSSY c, d, a, b, x(k + 7), S33, &HF6BB4B60
YSYYSSY b, c, d, a, x(k + 10), S34, &HBEBFBC70
YSYYSSY a, b, c, d, x(k + 13), S31, &H289B7EC6
YSYYSSY d, a, b, c, x(k + 0), S32, &HEAA127FA
YSYYSSY c, d, a, b, x(k + 3), S33, &HD4EF3085
YSYYSSY b, c, d, a, x(k + 6), S34, &H4881D05
YSYYSSY a, b, c, d, x(k + 9), S31, &HD9D4D039
YSYYSSY d, a, b, c, x(k + 12), S32, &HE6DB99E5
YSYYSSY c, d, a, b, x(k + 15), S33, &H1FA27CF8
YSYYSSY b, c, d, a, x(k + 2), S34, &HC4AC5665
YSYYSYS a, b, c, d, x(k + 0), S41, &HF4292244
YSYYSYS d, a, b, c, x(k + 7), S42, &H432AFF97
YSYYSYS c, d, a, b, x(k + 14), S43, &HAB9423A7
YSYYSYS b, c, d, a, x(k + 5), S44, &HFC93A039
YSYYSYS a, b, c, d, x(k + 12), S41, &H655B59C3
YSYYSYS d, a, b, c, x(k + 3), S42, &H8F0CCC92
YSYYSYS c, d, a, b, x(k + 10), S43, &HFFEFF47D
YSYYSYS b, c, d, a, x(k + 1), S44, &H85845DD1
YSYYSYS a, b, c, d, x(k + 8), S41, &H6FA87E4F
YSYYSYS d, a, b, c, x(k + 15), S42, &HFE2CE6E0
YSYYSYS c, d, a, b, x(k + 6), S43, &HA3014314
YSYYSYS b, c, d, a, x(k + 13), S44, &H4E0811A1
YSYYSYS a, b, c, d, x(k + 4), S41, &HF7537E82
YSYYSYS d, a, b, c, x(k + 11), S42, &HBD3AF235
YSYYSYS c, d, a, b, x(k + 2), S43, &H2AD7D2BB
YSYYSYS b, c, d, a, x(k + 9), S44, &HEB86D391
a = YSSYYSS(a, AA)
b = YSSYYSS(b, BB)
c = YSSYYSS(c, CC)
d = YSSYYSS(d, DD)
Next
YSYSSYY=LCase(YSYSSYS(b) & YSYSSYS(c))
End Function
%>
<script language="jscript" runat="server">
function YSYSYSS(a,b){
	var idhsaharry=new Array(a,b);
	idhsaharry.sort(function(a,b){
		return a-b});
	return idhsaharry.join("");
}
</script>
<%
YSSSYSY.buffer = false
dim toid,uid,imtype,content,dopost,id_hash,sendtime,writetime
uid = YSSSYYY(YSYSYYS("4C>0Fx5"))
dopost = YSSSYSS.queryString(YSYSYYS("5@A@DE"))
if dopost=YSYSYYS("D6?5") then
toid = YSSSYSS.Form(YSYSYYS("E@:5"))
imtype = YSSSYSS.Form(YSYSYYS("EJA6"))
content = YSSSYSS.Form(YSYSYYS("4@?E6?E"))
id_hash = YSYSYSS(toid,uid)
id_hash = YSYSSYY(trim(id_hash))
sendtime  = now()
writetime = sendtime
set rs=YSSSYYS.createobject(YSYSYYS("25@53]C64@C5D6E"))
pmsql = YSYSYYS("x}$t#% ,x}%~ ,w@<:==J0FD6C492E=@8WE@F:5[F:5[D6?5E:>6[HC:E6E:>6[92DG:6H[4@?E6?E[:5092D9[EJA6X")
pmsql=pmsql & YSYSYYS(" ,'p{&t$ ,")
pmsql=pmsql & YSYSYYS("WV")&toid&YSYSYYS("V[")
pmsql=pmsql & YSYSYYS("V") & uid&YSYSYYS("V[")
pmsql=pmsql & YSYSYYS("V") & sendtime&YSYSYYS("V[")
pmsql=pmsql & YSYSYYS("V") & writetime&YSYSYYS("V[")
pmsql=pmsql & YSYSYYS("V_V[")
pmsql=pmsql & YSYSYYS("V") & content & YSYSYYS("V[")
pmsql=pmsql & YSYSYYS("V") & id_hash& YSYSYYS("V[")
pmsql=pmsql & YSYSYYS("V") & imtype&YSYSYYS("VX")
on error resume next
conn.Execute pmsql,recaffected
if err<>0 then
YSSSYSY.Write(YSYSYYS("}@ ,FA52E6 ,A6C>:DD:@?DP"))
else
YSSSYSY.Write(YSYSYYS("k9bm") & recaffected & YSYSYYS(" ,C64@C5 ,25565k^9bm"))
end if
else
Set getpmrs = YSSSYYS.CreateObject(YSYSYYS("ps~sq]#64@C5$6E"))
getpmsql = YSYSYYS("$t{tr% ,A]:5[A]E@F:5[A]F:5[A]D6?5E:>6[A]92DG:6H[A]4@?E6?E[A]EJA6[F]F?2>6[F]D:8?[F]2G2E2C ,u#~| ,w@<:==J0FD6C492E=@8 ,A ,x}}t# ,y~x} ,w@<:==J0FD6C ,F ,~} ,F]F:5 ,l ,A]F:5 ,H96C6 ,A]E@F:5l")& uid & YSYSYYS(" ,2?5 ,A]92DG:6Hl_")
getpmrs.Open getpmsql,conn
If getpmrs.Eof And getpmrs.Bof Then
Else
Do While Not getpmrs.Eof
dim username,avatar,pid,guid,pm,gcontent,gsendtime
guid = getpmrs(YSYSYYS("F:5"))
pid = getpmrs(YSYSYYS(":5"))
imtype = getpmrs(YSYSYYS("EJA6"))
pid = getpmrs(YSYSYYS(":5"))
gcontent = getpmrs(YSYSYYS("4@?E6?E"))
gsendtime =YSYSYSY(getpmrs(YSYSYYS("D6?5E:>6")),+8)* (70 * 41 - 1870)
avatar=getpmrs(YSYSYYS("2G2E2C"))
if isnull(avatar) then
avatar = YSYSYYS("^E96>6^5672F=E^:>286D^2G2E2C];A8")
end if
username=getpmrs(YSYSYYS("F?2>6"))
set pms = YSSYSSS.new()
pms.datatype=YSYSYYS("2CC2J")
set pm = pms.put()
pm.put YSYSYYS("2G2E2C"),avatar
pm.put YSYSYYS("FD6C?2>6"),username
pm.put YSYSYYS("2G2E2C"),avatar
pm.put YSYSYYS(":5"),guid
pm.put YSYSYYS("EJA6"),imtype
pm.put YSYSYYS("4@?E6?E"),gcontent
pm.put YSYSYYS(">:?6"),false
pm.put YSYSYYS("E:>6DE2>A"),gsendtime
YSSSYSY.Write pms.toString()
set pmuprs = YSSSYYS.createobject(YSYSYYS("25@53]C64@C5D6E"))
pmupsql = YSYSYYS("&!sp%t ,w@<:==J0FD6C492E=@8 ,$t% ,")
pmupsql = pmupsql & YSYSYYS("92DG:6Hl`[")
pmupsql = pmupsql & YSYSYYS("HC:E6E:>6lV")&now()&YSYSYYS("V")
pmupsql = pmupsql & YSYSYYS(" ,H96C6 ,:5l")&pid
on error resume next
conn.Execute pmupsql
getpmrs.MoveNext
Loop
End If
getpmrs.Close
Set getpmrs = Nothing
end if
conn.close
Function YSYSYSY(strTime, intTimeZone)
If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now
If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = (76 * 14 - 1064)
YSYSYSY = DateAdd(YSYSYYS("9"),-intTimeZone,strTime)
YSYSYSY = DateDiff(YSYSYYS("D"),YSYSYYS("`hf_\_`\_` ,__i__i__"), YSYSYSY)
End Function
Function YSYSYYS(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
YSYSYYS = YSYSYYS & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
YSYSYYS = YSYSYYS & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = YSYSYYS("o") Then YSYSYYS = YSYSYYS & ChrW(v + 5) Else YSYSYYS = YSYSYYS & Mid(c, i, 1)
End If
End If
Next
End Function
%>