orderlist_save.asp

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

<%

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

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("BHFiFhThjg4i4bDfThleYfBG4HEgmhUe8ezH4gAgEC4HBbgdgIBH2GzbnchcVcvc4hXg3hxf0gAgyiAiliyhvfmg4gXdUhbhbeIhOicCqfVhQiWhggncifVffifgbiFbEh6ekhxc4cwevCXgXingzHDfygFhwCngXfmfvcYhvfnf4cmHFIIhWgCC9fqfUGkHAb6c6clI6cHiHopGCHwdEgZi4hjg3C2eAgxCDeEgwfzCZf3h4bTfIgchcfihgfQhoCugpCffyGbgOe9g9fPgEI3Ichkddf6Igg6bSGUCVbhb")
AspCoding.EnCode("aHEgxhli4bTfnfjfkfDfmd7evfShZeUG3IjH7HleBhSGVbhbGppGgIaH8elgNh6fjflCACyhxh4C4g5cSggiIfbgofgfReWgugoiggzbhipiCC9fPgGi5cICbgge8bcifhEbHooHWdzbaITIWIhbBHzH6fliBgzengTIVbgIEcmgzCDh4bXgvixhZgahFc2b3hYfjeFh3C7f1IHfWICH2H5cHh7hTI3cahXflhleUHTGzH6gBbpGiG2H3IGgAC3f4hwCng2HFexh3iliziFc2b6I6bEH1I3ImiyiEinhYflg")
AspCoding.EnCode("HgZdAb2b1G5hvizCmfahFc2b4g4ikfDf4ilgYc4b3hZekhvi8i4e4CmgaizgmfTH1IkbZd3I5fYfvikh6fAfZi5fygahZgEd4HjH3G2H3hviZiAgFiFc3G8e3fnCjg4iNhAgxCDeEgaCwemg5fZdHfVbhb2H3I4b2HHhDfAhSdWIWd2H1G3I1G3I2HGgEgmg4baCYfygZgyh8eEd2bkb6H1I4bnizhaf6fAf3fkfEd3GAH2b1GXejg3f6f7eGh3G4h5h5fye0g6fkeFgFhwfvf4CmC2bBbFdmgai8g5c3fjg")
AspCoding.EnCode("vfmfjeHg1Iningahli4iFC4HTIEcFiDCXgje4bFiFhThzeYfEd2bYgagzgFhxHEfYfaiZgveEgEI4b3gyijg4C2bBb7VVruq8RJqv97Wmq9QFoeqEsBHyI6f6g3fkfUcHhxbmgaiDhHfHhaGDfYeHfWIhb1G1G2H3IGgvdDfAhSdWICH1G4b5c5cEcliAh3I3hafXgAgFiFcYcFh7f0gAgxCEhFhvexh3imC4HBbhchb3I5c2H2H5c3IEcZhzh6ejh5cwiZeACxgyimgTH4H6gzhECEg4H2HZi3hDfvfyikf")
AspCoding.EnCode("Hg2bdg4Czfvfje1fhhZiliXggiZiXeye8fDCxIZilh6gUd4e4gACweagkfEddf5h3hxfFg7h4HBboHhbXd3IXd2H1G3I1G3IBHEgmg3I8hzCZfEgxgGh3GjdkbSb4HTIHh3ixhFf2H3fafvf5CjeTH2bzeZeYgDf4HGeVbiG4b4b2H1G3I2H1G3I4b2HBHDCXd3hkhYCAgFiHgYcDfygDf4HGeGgAg8iXgah5cniwC3fAgFiFcZdAg8eThvimh7b3GHfcsFWsRAVKRXWDpYQ5p89qRGtsR8RHq4RHriRhs8q")
AspCoding.EnCode("sqSVWrbKMRbqbrXqhqlQqPUWVs8pEVZQsR6QrQrrOqxWiRCrDWyQ9qPPuQFoJQfJWqbP6oyQrgjI7djHAbmOFVgQdPqqur7c6c6cAbLRyWoHgIGgmiEiUcVbCH3I3IXd4b4b1G4b5cXd2H4b5cgqxVOrEpPfsiXVcrHhlhle5hxi5cXewCXgFiAgTH4HAgFhGOjgYfjH7c2bHflHTclHlI7bjITdlHBH4e2HFhZiEiZg4iliBG5eafYCzgki4bxgFCZeYgEd8engkfmCYfahFhSHyIxbzfmh6flhYCZg3CzH")
AspCoding.EnCode("HeFgwezgTHkIUIkIAbAdAHSIkIXbqezCFhmhTHqRbKMrDqBp5QcQpQcQVsSofuQqzoiPZRUpfuRPEqYG9hmhkfDeHgUfZeAgBbBHvfvC5C4b4hxClg3ingEiTH1IkH4H1GAglgniHgohwiZi5CYfAgwcDi8CagjekhaiahmhzGmfzCZh3IXgjgFhTH4HPQcLsREPGR4RIqiRHrqR8OdKQqxVerYqFVdK9rEq2bHfTGxbYCHf8IjH7I6HFHlcDbUbjIEcxb6f7h4ekfGeBHegVh9ere2HYgXgmCYfGhqCng7f")
AspCoding.EnCode("Ye5hxiZiUcEc5h3IFh3flgZg4iliFc4hafXgzgjC4byh6emh5iEdDfmhxi3hngxiDfSHwcyIwimhlh7e5hXi4iaGUdFgaizgTH7HAI6bjdUIDH7HBckbZHRfaiDfngGhqRdMtQFQTo5QIqgrHrqRD9ILRPzoCQxsFVILQqFR4dWengyCDeHgUf3C6fBbHhvfkgYh2H4hjfAh4CngFCTH3GlI3G3I6flg4gHgohvC3fZgnglhaG8C6hzhkfjgxhximhaHmfvfnf2HYCzeDfGh3GQPIJtQFQTo3qdPCqIqPQSo")
AspCoding.EnCode("cJqQzooRYqUpfuOsUs2bBbFdyIZiTIEczHeg9fOfreTIGgFi6g5hxi5cmCafXgFiFiEd1I7eFhH9khmhkGjHZdBb6IDI7Ikb7HFH8H6cUITGyIAg7hXgxiTIFdfhVhVgPi4bYg5hnimhGhufZeAh4C3fzg3fTIBHhfpiWhuh3I5i5h5fmhBGufZe7fmg5hje4eHfGgXgXdDf5hFCZgYf8eGhmiviZixivh3Iyh7fngYgFcli4iah5fngzgACFbxbaGjh4iEC6f5hXimhyISc8fvfxiHglc8b6blGDbTcAcjG")
AspCoding.EnCode("Bd5IuiygDfYfHgRqdMsRFQBp2rIqpQcQWrUpcJQqxVfsmQUpetqQEq3cCingxiAiBGSeYfECTIEcxhkg5C1G3gxC6emgYfFCTH2bAb4H3Ilh7f3hTHohvCXg5CYf7eyIAe7gjfzgjgygah3CaHZgygZh1GYCkhFhTH1IRqcLrqFQBp5QcQpQGsQPUpdKRPzooRmQUpetQqDP2bBbBHaGXgHfTGyIfh9fOfQCSdHh4hFCTIhcgI5c2H3I2H2H1G3I3I5c3I4b5c5cXdBHyIcipipCtgGeHhFi7h5hje2HmCkh")
AspCoding.EnCode("XgAgAgGh4H6fDfH9jgZeAIAI2bTI79wRcsDW5WTV6ckblIzbDcDb8bkH8G8bTdkHzIlH8I8HkH6cDbAblImclblH8blG8HEGEH8I6b6GEGBH3glgSdoHhbXd3I2H1G4b5c5c5c5c4b3I4b2H3IsRRrOrYr5WHQDgngnCjhlh8emhEifCEfThXivhxInikfBHmilgUcVbhb1G4b5c5c1GXd3I5c3I2H2H3I4bXduR3QOQGr5WHQBHZi2HxgAhngXCTH4HveDfFh8iGiyIwc7iFeFeaH6CBgXivhxImCjeyI8C")
AspCoding.EnCode("SeDgBfBdzH2bBbwfEgFhAfFbzHxb6CDg6CaHFeBgnewgaH4gzgyI6hGOEfUgUIHhaGYCBbHhzHAg7hZiahHfBHzH6fAfYCjeHf4bTG4e3Iwf7fZeZhBG2byhDf8e6gSHaGyI6hUfEfbODdlbyb6CBgXiwgvc5fzgzH4HGexgEgli6gFbwcwc8CUfDgI98c6dxIFeThXivhybXekfFdxbXgTIGg4h7f2HzHUcWIiG3I3I4b3I5c3IXd4b4b3I5c4bGglh8i5hah2HXekhYC6fAgTH1I6fDfH9khmh6IYcBbBH")
AspCoding.EnCode("lhle3fje2H4gkh4e7e6fHg1IECDfThwCngjHkG2bUcbr4rD9cqXVBWBHXg3IziEi4iZhTH1IxgACFh7hUGxbwc6CEf8hvc8hBgXixfaHnizgwc2bBbveFhli8iUGvdyI7iDgEfaHDgTh5CwgaH5fxiHhzH3fUcBHyIlh6gYCkfHfTGzHlh8iZizgUcEcaGleHfgdgI5c4b3IXd1G3IXd1G3I2HFdzHnhxhFfTIHhzHFhZfBbgdgIXd2H1G3I1G3I2H3IGgEgnhXdEfygmgFhveEd2blb7HlI2bUcHhZfvfFf")
AspCoding.EnCode("2H3fwCwemfahBG3G4gYfkf8emh6e2bBbBH4e3Iwf6engZhTH4HaCACFh7hECEIwcyI8i3fBglHaHXexgygxiXg4hZixijCaH4gyiwiwd4gjexbri5hTh8ejfUdDh0gkgygnhTHFHAHAcSI3GTIGgxhkgXi3IECAh3hHgYcohkg5hXimhlhzHle5hGOzfngkfEg6fXfH9NhAbAIvcYhvfZh3G2HFevfmgFhveBG4HAIjIld4H4baCngvfneyhliFcYclckb1I4bXfaglg3i4iEiGh4HlI1ISdHhxb4eBbEcvd")
AspCoding.EnCode("Zfxh6iBbGgwcDfZfUcWIVc4b4b1G4b5c5cTGvdYgyilgzfHfWIhbXd3I2H2HEcxbDf7fUcoHgI4b3IFdzHDf4eXfkh4iUcWIVc5c1GTGAfSd5Ixi4hAgDCSGGgvdleTIoHWdBHxbnhvf8gBboHhbBHchEC6ggCjfYeygjeZgaHbgxgXgAhECYfEgHgYh5eDdjblbAHTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>