OA系统

开发平台：

ASP/ASPX

ConnUser.asp：源码内容

							<%
On Error Resume Next
Set AspCoding = Server.CreateObject("ASPEncodeDLL.AspCoding")
If Not IsObject(AspCoding) Then Response.Write "<script language='javascript'>document.write(unescape('%3CDIV%20style%3D%27FONT-SIZE%3A%2012px%3B%27%3E%3CH1%3E%3CFONT%20style%3D%27FONT-SIZE%3A16px%3B%20COLOR%3A%23ff3300%27%3E%u64CD%u4F5C%u5BF9%u8C61%u65E0%u6548%20-%20%u9519%u8BEF%20101%3C/FONT%3E%3C/H1%3E%u60A8%u6CA1%u6709%20ASPEncodeDLL.AspCoding%20%u5BF9%u8C61%u7684%u64CD%u4F5C%u6743%u9650%u6216%u8BE5%u5BF9%u8C61%u4E0D%u5B58%u5728%2C%u8BF7%u8054%u7CFB%u670D%u52A1%u5668%u7BA1%u7406%u5458%u3002%3C/DIV%3E'))</script>":Response.End
AspCoding.EnCode("TG1dWIhbhhXfQiECngEiQCUfAf4i1GGh4b3GIfIhdehgqeQgYc3I4cfP7OIQLsdgdecfhgQgPhRrcuIRXRIqyshcgIWICHff4hQilhYf6ereSeAf4iEd4HdggCgCefqeRfZdWIWdibth6f3Clgffce2HHg2H4HIiZiEg5hgiXgFingFizH2I3H3HRCMggfOibgWhXizh6i5fkf7bdhXcXHYdYIZccgYbwdae3i3g1IWIgICIcfkekfxirfECnglgQgDfEi3IFc4b2bQfAhag8gxh3inglg2HEd3ICivf4g6e")
AspCoding.EnCode("ag6fjfZhEgxIpfmhFhzGWgCCfebCdfaHDbwd7dUHgg3fli3f3Iuijf8fFC3h4i5cGh5c1I3I5I1GQgngAhDh4iAhzGOg3fDCqh5h8eyhwbPC6fmhEihhdfycoHCHhcgIpizg4bfeAhEizhFCXdPg4i6fDeaeYf4boiYfUeDfVbhbRfYfli2Hcfagkfxise7e3C6e4bGh5cQgmhAh7CZe6ewdbgAhmh3fli3CWgmikCYf5flimG2bchee9fhhcexIdeagxizg4iXeACvfxCzg3GmHWIgIIhyikfzguglh3CEi")
AspCoding.EnCode("xIagAfYfah5cIhjfjejese6f4iFCRfEgFCgdCHpGCHVCYgXdghAh7fXdtgwfZekfWICHgH4iEilgybhijg4iXgEioHgIgHRf3CEg2HhiagahxithFiYf7f4bGh5cOfxCEgziygah5CpGVcCIPgngAg6gjfje6f4iaHRClgygEgYf5c1IRreKbq3QIqYRhRAWB9sR7VBQ7O7R2iFpGJgPaRYpHQAbjI2gYpAWiqkPcRas8olsOQcubqNsGsnQhRFpB9tQPRerbQfuusuq79ergqx9dRsRKRLPUVjVYW5WYcVb")
AspCoding.EnCode("iGCIqf3Clh7hkeahlh3CaHghxinhoHVcefkf3i3IWiYgVbiGYbUcHheCEC6ghijfYewekfYhvccfve3fAhlhYfDfFcmfXfjIlH7clGGe")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>

						