mail_chk.asp

一个很好的企业整站的ASP的源码。稍加修改就可直接使用。

<%

'创建时间:2009-03-17 18:13:53
'请勿修改下列任何代码,以保证程序正常运行

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%3Cbr%3E%3CA%20href%3D%27http%3A//www.gbwinsoft.cn/%27%20target%3D_blank%3E%3CFONT%20color%3D%23008000%3E%u6280%u672F%u652F%u6301%3C/FONT%3E%3C/A%3E%3C/DIV%3E'))</script>":Response.End
AspCoding.EnCode("BHYboHiG5bTHGhHgHgEdHgGhGhFcFcTHGhTHEdEdTHHgFcTHEdTHGhHgBGBGGhBGTHHgTHFcEdEdFcEdHgGhFcTHGhGhFcEdEdFcTHGhHgTHFcFcTHFcFcTHBGFcgdgIXIgdCHXISOGJhsFVprIuS9hsw9HQWrHuLsFQGR5QbRgr1GTpzpWRGrxciRDRtPEpwIRqIJKPHsIs0seParOrFoqRS9w9ypBOEPS9iRw9TVsgSeXixfzGnikfXVyopGVc4c8VvRPrypVqGurqrPYpGPRCH9mfxfyb5fahVbhb4cDo")
AspCoding.EnCode("QQuqDqtrpQurSR5WTVHRyrus0rqRHutQFQGRXPGsoPVbCH4ccfjf6gUfAhvfXixgEg2HkblIjHlIzbjIlIlG6c3IqiSeZgjCaHXeje4baI3IIfkhjgXdPgai5Czi8e6f3Iti4i7eYf7f6iZemgvcoHiG4cWIhb5bGhGhHgTHHgEdTHTHGhGhGhHgEdTHTHFcHgHgFcHgGhFcEdHgGhHgTHGhTHBGGhTHGhHgHgEdHgGhGhFcFcTHGhTHEdEdTHHgFcTHEdTHGhHgBGBGVbiG5HTIoHVcFd1dhcWdmgxhwi2H")
AspCoding.EnCode("mhjhZizCwChcCHmhkg3faiviTHEi4ilfDe4iECEgxIXCjflgvCvIZdngwi3faiwCYcmHhcCHzCnf3IifAgRi4eafvfmgbiwiXgygzenHngjhXgwewCxdXd8ezi4ijeWIVc5c2HzCme5clg4i7gFgZeFiDfmGYc3f4g8eweyixi1IwIFc4HRq9QFWyo4H1GACziYfkfVbCH4b4b4b5c6eYflh7hyikfFingyblgng3izCEing5fDf2H1IWeYCwekh1fIiYfafxI3flhAfScngkg3fxhjgTH1IXbngkg4eaijg")
AspCoding.EnCode("hciG3IXdYfze7emhWIgI2H4b3IXdlg4iEC8ikekfAg4ivc6eYfZfai6engniDf1GYcOg5hxhkhNhdgZfmgwd3f6f7hTbmhkgYCvfafFc1I5I4ikg5haiwCWIhb3I2HmhkfYe4bvfZhWIgI3CjglhmhhcVc2H4b7f3CECAfagxi6f3CaH8hlgwe8emh3GBHQgcftiVCsCPiXdjg5hximfEh5hXi3CEd9i3fDhXgRfniEivf8iliHf4evi3ClgEgydYHPR2stRYOSVerEpnrtsMrtQRrbQbMBpFROQdRw9jooQ")
AspCoding.EnCode("jQJR3rVrlRrRHPBpURrqtRrPYO6OfsfewiZiwejgw9n9YHxdSGYcWIVc3I3I6e4i6fleyikfAgZezG7iEiygEg4i4Hwh3fDh4e6fXeFCaiAfDfFbwfxhlhFhyi6eUfybYhyinHncAIvbGgyIuigCtipgQfsfHf1IpGWdZeahZf5cvfnfWICHVbCHhcgIYg8fah4gDfygzhzg3ICeFirgZizeyg4Cefae4exhjgvIYfjhXgzCjgycgdVcpGCH3I3iaiae2HkfZiaengFiyH1GxiXgjhmhab4bygyH3ImCoHCH")
AspCoding.EnCode("Vbhb4bXIgCwfYfniwg3I5iagAh5c7CXgkhygZf4b6fSeahDf5hTg3IzCzg4b5hxi5cYfjh3fzCwC2HXg3iZfFCYflhAgzGpGhbpGCH3IifFiqCYCvizCmgghwi3fxhkh5cEdXdli7fEhngoHVc5ckfZiwiYf7e5cEd3IQgDCafygACvI3CkgZivfvind5c4Hei4HxdoHgI2Hyg5i1GrfdfagAiximgvIje3fkgmhAgnGXdFdSd1G7c5c8exg4ixioHWd1G5c3IWiAgrg4evivfYebizfXgweze5cFc3IYgZi")
AspCoding.EnCode("aflhYfVbiG2H1GXd4iSfvfFh2HZhEhahni8evfzhahhcCH5cngahmg3IaiXChcgI2Hnfjflg1G3C4e3hwf5ckf3fkgYf4bvfxi3Izg3fjhng6fWIhb3I3I1GaiYg5cVengyCnHje4ejhngwI2HHhHgXdlI5cACziZekfWIVc5c1G2H2H5cCeAgRi3fzeaimgghjh5hxhjg2HHgXdnf3fkhlhmhWIWd2H2H5c3I3I4iTgxhliXdYgEhzg5fFhvfkeahoHhb3I3IXdngahnh5cainfVbCHXdXd2HYgyi7fXdvf")
AspCoding.EnCode("4bHg1GkG4b8ejf3IWf4iyCydxiYCkgmhycoHhb4b5cXdXd5c5f4bHg2Hiini3fFi4inHWeai4CvIzgYCzfngnd3IzCzI5cjHycxdhcCH5c2HXd2H3IvfYg5cCekfRfEgEixc1IXg5e5fmgmhYgneaCzCkCyeviwijeag8iDi7fEC8eAi8g7iTgBgTeMixHzGYcyH3IXenG5cEcHg3I6c2H5hkfnh1GkfkeAC5cif6fWh8fjhmhAhaiXenH3hvb5cDfzingahWIgI5cXd5c3I2H2H2Hpg7eqC4ekhvf3iefzf")
AspCoding.EnCode("Xgvfkh2HFc3IYg3fkhAgYfWIhb3I3I1G5c3I5c1GngHOvf8e1GZhFgzg5fFhygxCzghcWd5c1G2H3I5c4ijeZf2HaimeWIVc2H1G5czgmhBhFhVbgI2H3IXdvfnf4bOhmhYgACnHkfZikgngmc3IlbycXdHg4b1IaH2b2HkeAh2HQhygZgaCEgwbahZiwiYfab2H6dxd2HHg5c4Hwd4H4bEgveZeahpGCH3I2H5cXdXd5cVCAgshZiafxhnhbivCYCaiaf4bHg2H5iZiafFi4ioHiG5cXd3I3IXd2HngHOyg")
AspCoding.EnCode("AC3I5i8fximClivfyikfgdCH3I2H3I4ijeZf2Hyg5ihcgI3IjeYfTgFhWIiGXdzCXC1GWixiqeEgEixckfYCae4iAgxcAIwIxG5c4HzGYcmH3ITGBG5c6c3IEgziYfahoHhb1G2H1GVCFiuf3fkhvfnhghjhZiweaf4bGh5cnfZijglhngWIVcXd5c3IYfSfvfEg1GXCDeah5flivfjfzgoHhb2H4izgmg2HxhYgoHgI4byg3IBG5c9g4ijevIyC3faeZelhvIAImHvb3Imd3IWiyCui8e7fPg4i6imGkf3f")
AspCoding.EnCode("wiZeAgxcjHnGmc3I2byb2bvbWICH3IzCnf2Hxh4bHhTIXdAH2HZizgmg5cyg4bEcSd3Ijb3IDfyhYfjeVbCH4b3I3IVCAgsh5hviaiZfghzfYCzCaf3IFc2HXC3fkhAgZepGhb1G2H3IYfG9zCAC5cXCFgahniDfxhzhxigdWd5cYfahmg2Hai5ioHVc5cvfme5cVCzgQgAC7fvI3CkgYCygviyH5cZdvcaHYcmHXdHf3IkH3IliveYfkfWIVc5c3I3ICe6frg5hjgwe4CICvC4eaivi1GHg5c5i3fwC7e4i")
AspCoding.EnCode("WIVc3Ingje3i2Hwe5ioHgIpGiG4iximg3I5i8fah5fFhwejfjegdVc5HHfVbCHHhchlh8idejfnhxhximfvcbgyhXglgFi3CliHgmfXfAHkIkGDdGe")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>