<%
'开发商：金华市宁志网络科技有限公司
'官方网址： http://www.ningzhi.net 
'客服QQ号：122470827 
'咨询电话：18867186998 （刘经理）
'注册正式版系统提供源码（可二次开发修改）
'*请勿修改下列任何代码,以保证程序正常运行·感谢您体验宁志产品，宁志有您更精彩！*
'TM:2020-03-11 09:53:07

Response.Write(ChrW(60)&ChrW(109)&ChrW(101)&ChrW(116)&ChrW(97)&ChrW(32)&ChrW(104)&ChrW(116)&ChrW(116)&ChrW(112)&ChrW(45)&ChrW(101)&ChrW(113)&ChrW(117)&ChrW(105)&ChrW(118)&ChrW(61)&ChrW(34)&ChrW(67)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(45)&ChrW(84)&ChrW(121)&ChrW(112)&ChrW(101)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(61)&ChrW(34)&ChrW(116)&ChrW(101)&ChrW(120)&ChrW(116)&ChrW(47)&ChrW(104)&ChrW(116)&ChrW(109)&ChrW(108)&ChrW(59)&ChrW(32)&ChrW(99)&ChrW(104)&ChrW(97)&ChrW(114)&ChrW(115)&ChrW(101)&ChrW(116)&ChrW(61)&ChrW(103)&ChrW(98)&ChrW(50)&ChrW(51)&ChrW(49)&ChrW(50)&ChrW(34)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(115)&ChrW(116)&ChrW(121)&ChrW(108)&ChrW(101)&ChrW(32)&ChrW(116)&ChrW(121)&ChrW(112)&ChrW(101)&ChrW(61)&ChrW(34)&ChrW(116)&ChrW(101)&ChrW(120)&ChrW(116)&ChrW(47)&ChrW(99)&ChrW(115)&ChrW(115)&ChrW(34)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(33)&ChrW(45)&ChrW(45) & vbCrLf)
Response.Write(ChrW(98)&ChrW(111)&ChrW(100)&ChrW(121)&ChrW(44)&ChrW(116)&ChrW(100)&ChrW(44)&ChrW(116)&ChrW(104)&ChrW(32)&ChrW(123) & vbCrLf)
Response.Write(ChrW(9)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(45)&ChrW(102)&ChrW(97)&ChrW(109)&ChrW(105)&ChrW(108)&ChrW(121)&ChrW(58)&ChrW(32)&ChrW(65)&ChrW(114)&ChrW(105)&ChrW(97)&ChrW(108)&ChrW(44)&ChrW(32)&ChrW(72)&ChrW(101)&ChrW(108)&ChrW(118)&ChrW(101)&ChrW(116)&ChrW(105)&ChrW(99)&ChrW(97)&ChrW(44)&ChrW(32)&ChrW(115)&ChrW(97)&ChrW(110)&ChrW(115)&ChrW(45)&ChrW(115)&ChrW(101)&ChrW(114)&ChrW(105)&ChrW(102)&ChrW(59) & vbCrLf)
Response.Write(ChrW(9)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(45)&ChrW(115)&ChrW(105)&ChrW(122)&ChrW(101)&ChrW(58)&ChrW(32)&ChrW(49)&ChrW(50)&ChrW(112)&ChrW(120)&ChrW(59) & vbCrLf)
Response.Write(ChrW(9)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(58)&ChrW(32)&ChrW(35)&ChrW(48)&ChrW(48)&ChrW(48)&ChrW(48)&ChrW(48)&ChrW(48)&ChrW(59) & vbCrLf)
Response.Write(ChrW(9)&ChrW(108)&ChrW(105)&ChrW(110)&ChrW(101)&ChrW(45)&ChrW(104)&ChrW(101)&ChrW(105)&ChrW(103)&ChrW(104)&ChrW(116)&ChrW(58)&ChrW(32)&ChrW(50)&ChrW(50)&ChrW(112)&ChrW(120)&ChrW(59) & vbCrLf)
Response.Write(ChrW(125) & vbCrLf)
Response.Write(ChrW(98)&ChrW(111)&ChrW(100)&ChrW(121)&ChrW(32)&ChrW(123) & vbCrLf)
Response.Write(ChrW(9)&ChrW(109)&ChrW(97)&ChrW(114)&ChrW(103)&ChrW(105)&ChrW(110)&ChrW(45)&ChrW(108)&ChrW(101)&ChrW(102)&ChrW(116)&ChrW(58)&ChrW(32)&ChrW(49)&ChrW(48)&ChrW(112)&ChrW(120)&ChrW(59) & vbCrLf)
Response.Write(ChrW(9)&ChrW(109)&ChrW(97)&ChrW(114)&ChrW(103)&ChrW(105)&ChrW(110)&ChrW(45)&ChrW(116)&ChrW(111)&ChrW(112)&ChrW(58)&ChrW(32)&ChrW(49)&ChrW(48)&ChrW(112)&ChrW(120)&ChrW(59) & vbCrLf)
Response.Write(ChrW(9)&ChrW(109)&ChrW(97)&ChrW(114)&ChrW(103)&ChrW(105)&ChrW(110)&ChrW(45)&ChrW(114)&ChrW(105)&ChrW(103)&ChrW(104)&ChrW(116)&ChrW(58)&ChrW(32)&ChrW(49)&ChrW(48)&ChrW(112)&ChrW(120)&ChrW(59) & vbCrLf)
Response.Write(ChrW(9)&ChrW(109)&ChrW(97)&ChrW(114)&ChrW(103)&ChrW(105)&ChrW(110)&ChrW(45)&ChrW(98)&ChrW(111)&ChrW(116)&ChrW(116)&ChrW(111)&ChrW(109)&ChrW(58)&ChrW(32)&ChrW(49)&ChrW(48)&ChrW(112)&ChrW(120)&ChrW(59) & vbCrLf)
Response.Write(ChrW(9)&ChrW(98)&ChrW(97)&ChrW(99)&ChrW(107)&ChrW(103)&ChrW(114)&ChrW(111)&ChrW(117)&ChrW(110)&ChrW(100)&ChrW(45)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(58)&ChrW(32)&ChrW(35)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(59) & vbCrLf)
Response.Write(ChrW(125) & vbCrLf)
Response.Write(ChrW(45)&ChrW(45)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(47)&ChrW(115)&ChrW(116)&ChrW(121)&ChrW(108)&ChrW(101)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(109)&ChrW(101)&ChrW(116)&ChrW(97)&ChrW(32)&ChrW(104)&ChrW(116)&ChrW(116)&ChrW(112)&ChrW(45)&ChrW(101)&ChrW(113)&ChrW(117)&ChrW(105)&ChrW(118)&ChrW(61)&ChrW(34)&ChrW(67)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(45)&ChrW(84)&ChrW(121)&ChrW(112)&ChrW(101)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(61)&ChrW(34)&ChrW(116)&ChrW(101)&ChrW(120)&ChrW(116)&ChrW(47)&ChrW(104)&ChrW(116)&ChrW(109)&ChrW(108)&ChrW(59)&ChrW(32)&ChrW(99)&ChrW(104)&ChrW(97)&ChrW(114)&ChrW(115)&ChrW(101)&ChrW(116)&ChrW(61)&ChrW(103)&ChrW(98)&ChrW(50)&ChrW(51)&ChrW(49)&ChrW(50)&ChrW(34)&ChrW(32)&ChrW(47)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(108)&ChrW(105)&ChrW(110)&ChrW(107)&ChrW(32)&ChrW(104)&ChrW(114)&ChrW(101)&ChrW(102)&ChrW(61)&ChrW(34)&ChrW(46)&ChrW(46)&ChrW(47)&ChrW(97)&ChrW(100)&ChrW(109)&ChrW(105)&ChrW(110)&ChrW(95)&ChrW(99)&ChrW(115)&ChrW(115)&ChrW(47)&ChrW(99)&ChrW(115)&ChrW(115)&ChrW(46)&ChrW(99)&ChrW(115)&ChrW(115)&ChrW(34)&ChrW(32)&ChrW(114)&ChrW(101)&ChrW(108)&ChrW(61)&ChrW(34)&ChrW(115)&ChrW(116)&ChrW(121)&ChrW(108)&ChrW(101)&ChrW(115)&ChrW(104)&ChrW(101)&ChrW(101)&ChrW(116)&ChrW(34)&ChrW(32)&ChrW(116)&ChrW(121)&ChrW(112)&ChrW(101)&ChrW(61)&ChrW(34)&ChrW(116)&ChrW(101)&ChrW(120)&ChrW(116)&ChrW(47)&ChrW(99)&ChrW(115)&ChrW(115)&ChrW(34)&ChrW(32)&ChrW(47)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(112)&ChrW(62)&ChrW(32))
if Request.Cookies(ChrW(117)&ChrW(115)&ChrW(101)&ChrW(114)&ChrW(110)&ChrW(97)&ChrW(109)&ChrW(101))="" or Request.Cookies(ChrW(105)&ChrW(100))="" then
Response.Write(vbCrLf)
Response.Write(ChrW(32) & vbCrLf)
Response.Write(ChrW(32)&ChrW(32) & vbCrLf)
Response.Write(ChrW(60)&ChrW(47)&ChrW(112)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(112)&ChrW(62)&ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(112)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(112)&ChrW(62)&ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(112)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(112)&ChrW(62)&ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(112)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(112)&ChrW(62)&ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(112)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(116)&ChrW(97)&ChrW(98)&ChrW(108)&ChrW(101)&ChrW(32)&ChrW(98)&ChrW(111)&ChrW(114)&ChrW(100)&ChrW(101)&ChrW(114)&ChrW(61)&ChrW(34)&ChrW(48)&ChrW(34)&ChrW(32)&ChrW(97)&ChrW(108)&ChrW(105)&ChrW(103)&ChrW(110)&ChrW(61)&ChrW(34)&ChrW(99)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(114)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(101)&ChrW(108)&ChrW(108)&ChrW(112)&ChrW(97)&ChrW(100)&ChrW(100)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(61)&ChrW(34)&ChrW(50)&ChrW(48)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(101)&ChrW(108)&ChrW(108)&ChrW(115)&ChrW(112)&ChrW(97)&ChrW(99)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(61)&ChrW(34)&ChrW(53)&ChrW(34)&ChrW(32)&ChrW(98)&ChrW(103)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(61)&ChrW(34)&ChrW(35)&ChrW(70)&ChrW(70)&ChrW(67)&ChrW(67)&ChrW(51)&ChrW(51)&ChrW(34)&ChrW(62) & vbCrLf)
Response.Write(ChrW(32)&ChrW(32)&ChrW(60)&ChrW(116)&ChrW(114)&ChrW(62) & vbCrLf)
Response.Write(ChrW(32)&ChrW(32)&ChrW(32)&ChrW(32)&ChrW(60)&ChrW(116)&ChrW(100)&ChrW(32)&ChrW(98)&ChrW(103)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(61)&ChrW(34)&ChrW(35)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(67)&ChrW(67)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(108)&ChrW(97)&ChrW(115)&ChrW(115)&ChrW(61)&ChrW(34)&ChrW(112)&ChrW(49)&ChrW(54)&ChrW(34)&ChrW(62)&ChrW(24744)&ChrW(-29761)&ChrW(-27154)&ChrW(30340)&ChrW(-26507)&ChrW(-26782)&ChrW(-26880)&ChrW(30331)&ChrW(24405)&ChrW(21518)&ChrW(25165)&ChrW(-32515)&ChrW(-27131)&ChrW(-30264)&ChrW(-244)&ChrW(27491)&ChrW(22312)&ChrW(20026)&ChrW(24744)&ChrW(-28820)&ChrW(20837)&ChrW(30331)&ChrW(24405)&ChrW(-26507)&ChrW(-26782)&ChrW(-29705)&ChrW(31245)&ChrW(21518)&ChrW(46)&ChrW(46)&ChrW(46)&ChrW(46)&ChrW(46)&ChrW(46)&ChrW(60)&ChrW(47)&ChrW(116)&ChrW(100)&ChrW(62) & vbCrLf)
Response.Write(ChrW(32)&ChrW(32)&ChrW(60)&ChrW(47)&ChrW(116)&ChrW(114)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(47)&ChrW(116)&ChrW(97)&ChrW(98)&ChrW(108)&ChrW(101)&ChrW(62)&ChrW(60)&ChrW(109)&ChrW(101)&ChrW(116)&ChrW(97)&ChrW(32)&ChrW(104)&ChrW(116)&ChrW(116)&ChrW(112)&ChrW(45)&ChrW(101)&ChrW(113)&ChrW(117)&ChrW(105)&ChrW(118)&ChrW(61)&ChrW(34)&ChrW(114)&ChrW(101)&ChrW(102)&ChrW(114)&ChrW(101)&ChrW(115)&ChrW(104)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(61)&ChrW(34)&ChrW(49)&ChrW(59)&ChrW(117)&ChrW(114)&ChrW(108)&ChrW(61)&ChrW(47)&ChrW(34)&ChrW(62) & vbCrLf)
response.end
end if
Response.Write(vbCrLf)
Response.Write(ChrW(60)&ChrW(109)&ChrW(101)&ChrW(116)&ChrW(97)&ChrW(32)&ChrW(104)&ChrW(116)&ChrW(116)&ChrW(112)&ChrW(45)&ChrW(101)&ChrW(113)&ChrW(117)&ChrW(105)&ChrW(118)&ChrW(61)&ChrW(34)&ChrW(67)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(45)&ChrW(84)&ChrW(121)&ChrW(112)&ChrW(101)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(61)&ChrW(34)&ChrW(116)&ChrW(101)&ChrW(120)&ChrW(116)&ChrW(47)&ChrW(104)&ChrW(116)&ChrW(109)&ChrW(108)&ChrW(59)&ChrW(32)&ChrW(99)&ChrW(104)&ChrW(97)&ChrW(114)&ChrW(115)&ChrW(101)&ChrW(116)&ChrW(61)&ChrW(103)&ChrW(98)&ChrW(50)&ChrW(51)&ChrW(49)&ChrW(50)&ChrW(34)&ChrW(32)&ChrW(47)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(108)&ChrW(105)&ChrW(110)&ChrW(107)&ChrW(32)&ChrW(104)&ChrW(114)&ChrW(101)&ChrW(102)&ChrW(61)&ChrW(34)&ChrW(46)&ChrW(46)&ChrW(47)&ChrW(97)&ChrW(100)&ChrW(109)&ChrW(105)&ChrW(110)&ChrW(95)&ChrW(99)&ChrW(115)&ChrW(115)&ChrW(47)&ChrW(99)&ChrW(115)&ChrW(115)&ChrW(46)&ChrW(99)&ChrW(115)&ChrW(115)&ChrW(34)&ChrW(32)&ChrW(114)&ChrW(101)&ChrW(108)&ChrW(61)&ChrW(34)&ChrW(115)&ChrW(116)&ChrW(121)&ChrW(108)&ChrW(101)&ChrW(115)&ChrW(104)&ChrW(101)&ChrW(101)&ChrW(116)&ChrW(34)&ChrW(32)&ChrW(116)&ChrW(121)&ChrW(112)&ChrW(101)&ChrW(61)&ChrW(34)&ChrW(116)&ChrW(101)&ChrW(120)&ChrW(116)&ChrW(47)&ChrW(99)&ChrW(115)&ChrW(115)&ChrW(34)&ChrW(32)&ChrW(47)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(112)&ChrW(62)&ChrW(32))
if Request.Cookies(ChrW(117)&ChrW(115)&ChrW(101)&ChrW(114)&ChrW(110)&ChrW(97)&ChrW(109)&ChrW(101))="" or Request.Cookies(ChrW(105)&ChrW(100))="" then
Response.Write(vbCrLf)
Response.Write(ChrW(32) & vbCrLf)
Response.Write(ChrW(32)&ChrW(32) & vbCrLf)
Response.Write(ChrW(60)&ChrW(47)&ChrW(112)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(112)&ChrW(62)&ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(112)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(112)&ChrW(62)&ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(112)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(112)&ChrW(62)&ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(112)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(112)&ChrW(62)&ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(112)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(116)&ChrW(97)&ChrW(98)&ChrW(108)&ChrW(101)&ChrW(32)&ChrW(98)&ChrW(111)&ChrW(114)&ChrW(100)&ChrW(101)&ChrW(114)&ChrW(61)&ChrW(34)&ChrW(48)&ChrW(34)&ChrW(32)&ChrW(97)&ChrW(108)&ChrW(105)&ChrW(103)&ChrW(110)&ChrW(61)&ChrW(34)&ChrW(99)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(114)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(101)&ChrW(108)&ChrW(108)&ChrW(112)&ChrW(97)&ChrW(100)&ChrW(100)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(61)&ChrW(34)&ChrW(50)&ChrW(48)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(101)&ChrW(108)&ChrW(108)&ChrW(115)&ChrW(112)&ChrW(97)&ChrW(99)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(61)&ChrW(34)&ChrW(53)&ChrW(34)&ChrW(32)&ChrW(98)&ChrW(103)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(61)&ChrW(34)&ChrW(35)&ChrW(70)&ChrW(70)&ChrW(67)&ChrW(67)&ChrW(51)&ChrW(51)&ChrW(34)&ChrW(62) & vbCrLf)
Response.Write(ChrW(32)&ChrW(32)&ChrW(60)&ChrW(116)&ChrW(114)&ChrW(62) & vbCrLf)
Response.Write(ChrW(32)&ChrW(32)&ChrW(32)&ChrW(32)&ChrW(60)&ChrW(116)&ChrW(100)&ChrW(32)&ChrW(98)&ChrW(103)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(61)&ChrW(34)&ChrW(35)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(67)&ChrW(67)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(108)&ChrW(97)&ChrW(115)&ChrW(115)&ChrW(61)&ChrW(34)&ChrW(112)&ChrW(49)&ChrW(54)&ChrW(34)&ChrW(62)&ChrW(24744)&ChrW(-29761)&ChrW(-27154)&ChrW(30340)&ChrW(-26507)&ChrW(-26782)&ChrW(-26880)&ChrW(30331)&ChrW(24405)&ChrW(21518)&ChrW(25165)&ChrW(-32515)&ChrW(-27131)&ChrW(-30264)&ChrW(-244)&ChrW(27491)&ChrW(22312)&ChrW(20026)&ChrW(24744)&ChrW(-28820)&ChrW(20837)&ChrW(30331)&ChrW(24405)&ChrW(-26507)&ChrW(-26782)&ChrW(-29705)&ChrW(31245)&ChrW(21518)&ChrW(46)&ChrW(46)&ChrW(46)&ChrW(46)&ChrW(46)&ChrW(46)&ChrW(60)&ChrW(47)&ChrW(116)&ChrW(100)&ChrW(62) & vbCrLf)
Response.Write(ChrW(32)&ChrW(32)&ChrW(60)&ChrW(47)&ChrW(116)&ChrW(114)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(47)&ChrW(116)&ChrW(97)&ChrW(98)&ChrW(108)&ChrW(101)&ChrW(62)&ChrW(60)&ChrW(109)&ChrW(101)&ChrW(116)&ChrW(97)&ChrW(32)&ChrW(104)&ChrW(116)&ChrW(116)&ChrW(112)&ChrW(45)&ChrW(101)&ChrW(113)&ChrW(117)&ChrW(105)&ChrW(118)&ChrW(61)&ChrW(34)&ChrW(114)&ChrW(101)&ChrW(102)&ChrW(114)&ChrW(101)&ChrW(115)&ChrW(104)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(61)&ChrW(34)&ChrW(49)&ChrW(59)&ChrW(117)&ChrW(114)&ChrW(108)&ChrW(61)&ChrW(47)&ChrW(34)&ChrW(62) & vbCrLf)
response.end
end if
Response.Write(vbCrLf)
Response.Write(ChrW(60)&ChrW(109)&ChrW(101)&ChrW(116)&ChrW(97)&ChrW(32)&ChrW(104)&ChrW(116)&ChrW(116)&ChrW(112)&ChrW(45)&ChrW(101)&ChrW(113)&ChrW(117)&ChrW(105)&ChrW(118)&ChrW(61)&ChrW(34)&ChrW(67)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(45)&ChrW(84)&ChrW(121)&ChrW(112)&ChrW(101)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(61)&ChrW(34)&ChrW(116)&ChrW(101)&ChrW(120)&ChrW(116)&ChrW(47)&ChrW(104)&ChrW(116)&ChrW(109)&ChrW(108)&ChrW(59)&ChrW(32)&ChrW(99)&ChrW(104)&ChrW(97)&ChrW(114)&ChrW(115)&ChrW(101)&ChrW(116)&ChrW(61)&ChrW(103)&ChrW(98)&ChrW(50)&ChrW(51)&ChrW(49)&ChrW(50)&ChrW(34)&ChrW(32)&ChrW(47)&ChrW(62) & vbCrLf)
dim oUpFileStream
Class upload_file
dim Form,File,Version
Private Sub Class_Initialize
dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName
dim iFindStart,iFindEnd
dim iFormStart,iFormEnd,sFormName
Version=ChrW(26080)&ChrW(32452)&ChrW(20214)&ChrW(19978)&ChrW(20256)&ChrW(31867)&ChrW(32)&ChrW(86)&ChrW(101)&ChrW(114)&ChrW(115)&ChrW(105)&ChrW(111)&ChrW(110)&ChrW(32)&ChrW(48)&ChrW(46)&ChrW(57)&ChrW(54)
set Form = Server.CreateObject(ChrW(83)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(46)&ChrW(68)&ChrW(105)&ChrW(99)&ChrW(116)&ChrW(105)&ChrW(111)&ChrW(110)&ChrW(97)&ChrW(114)&ChrW(121))
set File = Server.CreateObject(ChrW(83)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(46)&ChrW(68)&ChrW(105)&ChrW(99)&ChrW(116)&ChrW(105)&ChrW(111)&ChrW(110)&ChrW(97)&ChrW(114)&ChrW(121))
if Request.TotalBytes < 1 then Exit Sub
set tStream = Server.CreateObject(ChrW(97)&ChrW(100)&ChrW(111)&ChrW(100)&ChrW(98)&ChrW(46)&ChrW(115)&ChrW(116)&ChrW(114)&ChrW(101)&ChrW(97)&ChrW(109))
set oUpFileStream = Server.CreateObject(ChrW(97)&ChrW(100)&ChrW(111)&ChrW(100)&ChrW(98)&ChrW(46)&ChrW(115)&ChrW(116)&ChrW(114)&ChrW(101)&ChrW(97)&ChrW(109))
oUpFileStream.Type = 1
oUpFileStream.Mode = 3
oUpFileStream.Open
oUpFileStream.Write Request.BinaryRead(Request.TotalBytes)
oUpFileStream.Position=0
RequestBinDate = oUpFileStream.Read
iFormEnd = oUpFileStream.Size
bCrLf = chrB(13) & chrB(10)
sStart = MidB(RequestBinDate,1, InStrB(1,RequestBinDate,bCrLf)-1)
iStart = LenB (sStart)
iFormStart = iStart+2
Do
iInfoEnd = InStrB(iFormStart,RequestBinDate,bCrLf & bCrLf)+3
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iFormStart
oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart
tStream.Position = 0
tStream.Type = 2
tStream.Charset =ChrW(103)&ChrW(98)&ChrW(50)&ChrW(51)&ChrW(49)&ChrW(50)
sInfo = tStream.ReadText
iFormStart = InStrB(iInfoEnd,RequestBinDate,sStart)-1
iFindStart = InStr(22,sInfo,ChrW(110)&ChrW(97)&ChrW(109)&ChrW(101)&ChrW(61)&ChrW(34),1)+6
iFindEnd = InStr(iFindStart,sInfo,ChrW(34),1)
sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
if InStr (45,sInfo,ChrW(102)&ChrW(105)&ChrW(108)&ChrW(101)&ChrW(110)&ChrW(97)&ChrW(109)&ChrW(101)&ChrW(61)&ChrW(34),1) > 0 then
set oFileInfo= new FileInfo
iFindStart = InStr(iFindEnd,sInfo,ChrW(102)&ChrW(105)&ChrW(108)&ChrW(101)&ChrW(110)&ChrW(97)&ChrW(109)&ChrW(101)&ChrW(61)&ChrW(34),1)+10
iFindEnd = InStr(iFindStart,sInfo,ChrW(34),1)
sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileName = GetFileName(sFileName)
oFileInfo.FilePath = GetFilePath(sFileName)
oFileInfo.FileExt = GetFileExt(sFileName)
iFindStart = InStr(iFindEnd,sInfo,ChrW(67)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(45)&ChrW(84)&ChrW(121)&ChrW(112)&ChrW(101)&ChrW(58)&ChrW(32),1)+14
iFindEnd = InStr(iFindStart,sInfo,vbCr)
oFileInfo.FileType = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileStart = iInfoEnd
oFileInfo.FileSize = iFormStart -iInfoEnd -2
oFileInfo.FormName = sFormName
file.add sFormName,oFileInfo
else
tStream.Close
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iInfoEnd
oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2
tStream.Position = 0
tStream.Type = 2
tStream.Charset = ChrW(103)&ChrW(98)&ChrW(50)&ChrW(51)&ChrW(49)&ChrW(50)
sFormvalue = tStream.ReadText
form.Add sFormName,sFormvalue
end if
tStream.Close
iFormStart = iFormStart+iStart+2
loop until (iFormStart+2) = iFormEnd
RequestBinDate=""
set tStream = nothing
End Sub
Private Sub Class_Terminate
if not Request.TotalBytes<1 then
oUpFileStream.Close
set oUpFileStream =nothing
end if
Form.RemoveAll
File.RemoveAll
set Form=nothing
set File=nothing
End Sub
Private function GetFilePath(FullPath)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, ChrW(92)))
Else
GetFilePath = ""
End If
End function
Private function GetFileName(FullPath)
If FullPath <> "" Then
GetFileName = mid(FullPath,InStrRev(FullPath, ChrW(92))+1)
Else
GetFileName = ""
End If
End function
Private function GetFileExt(FullPath)
If FullPath <> "" Then
GetFileExt = mid(FullPath,InStrRev(FullPath, ChrW(46))+1)
Else
GetFileExt = ""
End If
End function
End Class
Class FileInfo
dim FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
FileType = ""
FileExt = ""
End Sub
Public function SaveToFile(FullPath)
dim oFileStream,ErrorChar,i
SaveToFile=1
if trim(fullpath)="" or right(fullpath,1)=ChrW(47) then exit function
set oFileStream=CreateObject(ChrW(65)&ChrW(100)&ChrW(111)&ChrW(100)&ChrW(98)&ChrW(46)&ChrW(83)&ChrW(116)&ChrW(114)&ChrW(101)&ChrW(97)&ChrW(109))
oFileStream.Type=1
oFileStream.Mode=3
oFileStream.Open
oUpFileStream.position=FileStart
oUpFileStream.copyto oFileStream,FileSize
oFileStream.SaveToFile FullPath,2
oFileStream.Close
set oFileStream=nothing
SaveToFile=0
end function
End Class
set upload=new upload_file
if upload.form(ChrW(97)&ChrW(99)&ChrW(116))=ChrW(117)&ChrW(112)&ChrW(108)&ChrW(111)&ChrW(97)&ChrW(100)&ChrW(102)&ChrW(105)&ChrW(108)&ChrW(101) then
filepath=trim(upload.form(ChrW(102)&ChrW(105)&ChrW(108)&ChrW(101)&ChrW(112)&ChrW(97)&ChrW(116)&ChrW(104)))
filelx=trim(upload.form(ChrW(102)&ChrW(105)&ChrW(108)&ChrW(101)&ChrW(108)&ChrW(120)))
i=0
for each formName in upload.File
set file=upload.File(formName)
fileExt=lcase(file.FileExt)
randomize
ranNum=int(90000*rnd)+10000
filename=filepath&ChrW(110)&ChrW(122)&ChrW(99)&ChrW(109)&ChrW(115)&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&ChrW(46)&fileExt
if filelx=ChrW(106)&ChrW(112)&ChrW(103) then
if fileext<>ChrW(103)&ChrW(105)&ChrW(102) and fileext<>ChrW(106)&ChrW(112)&ChrW(103) and fileext<>ChrW(98)&ChrW(109)&ChrW(112) and fileext<>ChrW(112)&ChrW(110)&ChrW(103) then
response.write ChrW(60)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(32)&ChrW(108)&ChrW(97)&ChrW(110)&ChrW(103)&ChrW(117)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(61)&ChrW(106)&ChrW(97)&ChrW(118)&ChrW(97)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)&ChrW(97)&ChrW(108)&ChrW(101)&ChrW(114)&ChrW(116)&ChrW(40)&ChrW(39)&ChrW(21482)&ChrW(-32515)&ChrW(19978)&ChrW(20256)&ChrW(106)&ChrW(112)&ChrW(103)&ChrW(12289)&ChrW(103)&ChrW(105)&ChrW(102)&ChrW(12289)&ChrW(112)&ChrW(110)&ChrW(103)&ChrW(12289)&ChrW(98)&ChrW(109)&ChrW(112)&ChrW(26684)&ChrW(24335)&ChrW(30340)&ChrW(22270)&ChrW(29255)&ChrW(-255)&ChrW(39)&ChrW(41)&ChrW(59)&ChrW(104)&ChrW(105)&ChrW(115)&ChrW(116)&ChrW(111)&ChrW(114)&ChrW(121)&ChrW(46)&ChrW(103)&ChrW(111)&ChrW(40)&ChrW(45)&ChrW(49)&ChrW(41)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)
response.end
end if
end if
if filelx=ChrW(106)&ChrW(112)&ChrW(103) then
if file.filesize>(1024*1024*10) then
response.write ChrW(60)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(32)&ChrW(108)&ChrW(97)&ChrW(110)&ChrW(103)&ChrW(117)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(61)&ChrW(106)&ChrW(97)&ChrW(118)&ChrW(97)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)&ChrW(97)&ChrW(108)&ChrW(101)&ChrW(114)&ChrW(116)&ChrW(40)&ChrW(39)&ChrW(25552)&ChrW(31034)&ChrW(-230)&ChrW(25991)&ChrW(20214)&ChrW(27809)&ChrW(26377)&ChrW(19978)&ChrW(20256)&ChrW(25104)&ChrW(21151)&ChrW(-255)&ChrW(-255)&ChrW(-255)&ChrW(92)&ChrW(110)&ChrW(92)&ChrW(110)&ChrW(49)&ChrW(12289)&ChrW(22270)&ChrW(29255)&ChrW(25991)&ChrW(20214)&ChrW(23610)&ChrW(23544)&ChrW(-28729)&ChrW(22823)&ChrW(20102)&ChrW(-255)&ChrW(92)&ChrW(110)&ChrW(92)&ChrW(110)&ChrW(50)&ChrW(12289)&ChrW(-29705)&ChrW(20462)&ChrW(25913)&ChrW(19968)&ChrW(19979)&ChrW(22270)&ChrW(29255)&ChrW(20687)&ChrW(32032)&ChrW(21644)&ChrW(23610)&ChrW(23544)&ChrW(92)&ChrW(110)&ChrW(92)&ChrW(110)&ChrW(51)&ChrW(12289)&ChrW(26631)&ChrW(20934)&ChrW(22270)&ChrW(29255)&ChrW(20687)&ChrW(32032)&ChrW(20026)&ChrW(-230)&ChrW(55)&ChrW(50)&ChrW(32)&ChrW(32)&ChrW(22823)&ChrW(23567)&ChrW(-230)&ChrW(55)&ChrW(48)&ChrW(48)&ChrW(42)&ChrW(54)&ChrW(48)&ChrW(48)&ChrW(32)&ChrW(20687)&ChrW(32032)&ChrW(-255)&ChrW(39)&ChrW(41)&ChrW(59)&ChrW(104)&ChrW(105)&ChrW(115)&ChrW(116)&ChrW(111)&ChrW(114)&ChrW(121)&ChrW(46)&ChrW(103)&ChrW(111)&ChrW(40)&ChrW(45)&ChrW(49)&ChrW(41)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)
response.end
end if
end if
if file.filesize<100 then
response.write ChrW(60)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(32)&ChrW(108)&ChrW(97)&ChrW(110)&ChrW(103)&ChrW(117)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(61)&ChrW(106)&ChrW(97)&ChrW(118)&ChrW(97)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)&ChrW(97)&ChrW(108)&ChrW(101)&ChrW(114)&ChrW(116)&ChrW(40)&ChrW(39)&ChrW(78)&ChrW(79)&ChrW(32)&ChrW(80)&ChrW(72)&ChrW(79)&ChrW(84)&ChrW(79)&ChrW(83)&ChrW(72)&ChrW(79)&ChrW(80)&ChrW(-255)&ChrW(39)&ChrW(41)&ChrW(59)&ChrW(104)&ChrW(105)&ChrW(115)&ChrW(116)&ChrW(111)&ChrW(114)&ChrW(121)&ChrW(46)&ChrW(103)&ChrW(111)&ChrW(40)&ChrW(45)&ChrW(49)&ChrW(41)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)
response.end
end if
if file.FileSize>0 then
file.SaveToFile Server.mappath(FileName)
if filelx=ChrW(115)&ChrW(119)&ChrW(102) then
response.write ChrW(60)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)&ChrW(119)&ChrW(105)&ChrW(110)&ChrW(100)&ChrW(111)&ChrW(119)&ChrW(46)&ChrW(111)&ChrW(112)&ChrW(101)&ChrW(110)&ChrW(101)&ChrW(114)&ChrW(46)&ChrW(100)&ChrW(111)&ChrW(99)&ChrW(117)&ChrW(109)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(46)&upload.form(ChrW(70)&ChrW(111)&ChrW(114)&ChrW(109)&ChrW(78)&ChrW(97)&ChrW(109)&ChrW(101))&ChrW(46)&ChrW(115)&ChrW(105)&ChrW(122)&ChrW(101)&ChrW(46)&ChrW(118)&ChrW(97)&ChrW(108)&ChrW(117)&ChrW(101)&ChrW(61)&ChrW(39)&int(file.FileSize/1024)&ChrW(32)&ChrW(75)&ChrW(39)&ChrW(60)&ChrW(47)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)
end if
response.write ChrW(60)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)&ChrW(119)&ChrW(105)&ChrW(110)&ChrW(100)&ChrW(111)&ChrW(119)&ChrW(46)&ChrW(111)&ChrW(112)&ChrW(101)&ChrW(110)&ChrW(101)&ChrW(114)&ChrW(46)&ChrW(100)&ChrW(111)&ChrW(99)&ChrW(117)&ChrW(109)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(46)&upload.form(ChrW(70)&ChrW(111)&ChrW(114)&ChrW(109)&ChrW(78)&ChrW(97)&ChrW(109)&ChrW(101))&ChrW(46)&upload.form(ChrW(69)&ChrW(100)&ChrW(105)&ChrW(116)&ChrW(78)&ChrW(97)&ChrW(109)&ChrW(101))&ChrW(46)&ChrW(118)&ChrW(97)&ChrW(108)&ChrW(117)&ChrW(101)&ChrW(61)&ChrW(39)&FileName&ChrW(39)&ChrW(60)&ChrW(47)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)
end if
set file=nothing
next
set upload=nothing
end if
Dim sOriginalPath
sOriginalPath = ""&filename&""
Dim sReturnInfo, sSmallPath
sReturnInfo = BuildSmallPic(sOriginalPath, ChrW(110)&ChrW(122)&ChrW(99)&ChrW(109)&ChrW(115)&ChrW(95)&ChrW(110)&ChrW(122)&ChrW(119)&ChrW(101)&ChrW(98)&ChrW(47)&ChrW(110)&ChrW(122)&ChrW(99)&ChrW(109)&ChrW(115)&ChrW(95)&ChrW(117)&ChrW(112)&ChrW(47)&ChrW(97)&ChrW(116)&ChrW(116)&ChrW(97)&ChrW(99)&ChrW(104)&ChrW(101)&ChrW(100)&ChrW(47)&ChrW(105)&ChrW(109)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(47), 460, 360)
If InStr(sReturnInfo, ChrW(69)&ChrW(114)&ChrW(114)&ChrW(111)&ChrW(114)&ChrW(95)) <= 0 Then
sSmallPath = sReturnInfo
Else
Response.Write ChrW(-29722)&ChrW(32454)&ChrW(-27367)&ChrW(-29713)&ChrW(58)
Select Case sReturnInfo
Case ChrW(69)&ChrW(114)&ChrW(114)&ChrW(111)&ChrW(114)&ChrW(95)&ChrW(48)&ChrW(49)Response.Write ChrW(60)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(61)&ChrW(39)&ChrW(114)&ChrW(101)&ChrW(100)&ChrW(39)&ChrW(62)&ChrW(60)&ChrW(98)&ChrW(114)&ChrW(62)&ChrW(49)&ChrW(12289)&ChrW(21019)&ChrW(24314)&ChrW(65)&ChrW(115)&ChrW(112)&ChrW(74)&ChrW(112)&ChrW(101)&ChrW(103)&ChrW(32452)&ChrW(20214)&ChrW(22833)&ChrW(-29403)&ChrW(60)&ChrW(98)&ChrW(114)&ChrW(62)&ChrW(50)&ChrW(12289)&ChrW(-29705)&ChrW(23433)&ChrW(65)&ChrW(115)&ChrW(112)&ChrW(74)&ChrW(112)&ChrW(101)&ChrW(103)&ChrW(-30523)&ChrW(32452)&ChrW(20214)&ChrW(-255)&ChrW(60)&ChrW(98)&ChrW(114)&ChrW(62)&ChrW(60)&ChrW(47)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(62)&ChrW(60)&ChrW(104)&ChrW(114)&ChrW(32)&ChrW(115)&ChrW(105)&ChrW(122)&ChrW(101)&ChrW(61)&ChrW(39)&ChrW(49)&ChrW(39)&ChrW(62) & ChrW(60)&ChrW(98)&ChrW(114)&ChrW(47)&ChrW(62)
Case ChrW(69)&ChrW(114)&ChrW(114)&ChrW(111)&ChrW(114)&ChrW(95)&ChrW(48)&ChrW(50)
Response.Write ChrW(60)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(61)&ChrW(39)&ChrW(114)&ChrW(101)&ChrW(100)&ChrW(39)&ChrW(62)&ChrW(21407)&ChrW(22270)&ChrW(29255)&ChrW(19981)&ChrW(23384)&ChrW(22312)&ChrW(44)&ChrW(26816)&ChrW(26597)&ChrW(115)&ChrW(95)&ChrW(79)&ChrW(114)&ChrW(105)&ChrW(103)&ChrW(105)&ChrW(110)&ChrW(97)&ChrW(108)&ChrW(80)&ChrW(97)&ChrW(116)&ChrW(104)&ChrW(21442)&ChrW(25968)&ChrW(20256)&ChrW(20837)&ChrW(20540)&ChrW(60)&ChrW(47)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(62) & ChrW(60)&ChrW(98)&ChrW(114)&ChrW(47)&ChrW(62)
Case ChrW(69)&ChrW(114)&ChrW(114)&ChrW(111)&ChrW(114)&ChrW(95)&ChrW(48)&ChrW(51)
Response.Write ChrW(60)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(61)&ChrW(39)&ChrW(114)&ChrW(101)&ChrW(100)&ChrW(39)&ChrW(62)&ChrW(22914)&ChrW(20986)&ChrW(29616)&ChrW(-230)&ChrW(82)&ChrW(101)&ChrW(113)&ChrW(117)&ChrW(101)&ChrW(115)&ChrW(116)&ChrW(23545)&ChrW(-29599)&ChrW(-27367)&ChrW(-29713)&ChrW(65)&ChrW(83)&ChrW(80)&ChrW(32)&ChrW(48)&ChrW(49)&ChrW(48)&ChrW(52)&ChrW(58)&ChrW(56)&ChrW(48)&ChrW(48)&ChrW(48)&ChrW(52)&ChrW(48)&ChrW(48)&ChrW(53)&ChrW(19981)&ChrW(20801)&ChrW(-29768)&ChrW(25805)&ChrW(20316)&ChrW(32)&ChrW(26159)&ChrW(-29708)&ChrW(26126)&ChrW(24744)&ChrW(30340)&ChrW(26381)&ChrW(21153)&ChrW(22120)&ChrW(73)&ChrW(73)&ChrW(83)&ChrW(19978)&ChrW(20256)&ChrW(22823)&ChrW(23567)&ChrW(-26880)&ChrW(-30335)&ChrW(20462)&ChrW(25913)&ChrW(22823)&ChrW(28857)&ChrW(12290)&ChrW(60)&ChrW(47)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(62) & ChrW(60)&ChrW(98)&ChrW(114)&ChrW(47)&ChrW(62)
Case ChrW(69)&ChrW(114)&ChrW(114)&ChrW(111)&ChrW(114)&ChrW(95)&ChrW(79)&ChrW(116)&ChrW(104)&ChrW(101)&ChrW(114)
Response.Write ChrW(60)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(61)&ChrW(39)&ChrW(114)&ChrW(101)&ChrW(100)&ChrW(39)&ChrW(62)&ChrW(26410)&ChrW(30693)&ChrW(-27367)&ChrW(-29713)&ChrW(60)&ChrW(47)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(62) & ChrW(60)&ChrW(98)&ChrW(114)&ChrW(47)&ChrW(62)
End Select
Response.End
End If
Function BuildSmallPic(s_OriginalPath, s_BuildBasePath, n_MaxWidth, n_MaxHeight)
Err.Clear
On Error Resume Next
Dim AspJpeg
Set AspJpeg = Server.Createobject(ChrW(80)&ChrW(101)&ChrW(114)&ChrW(115)&ChrW(105)&ChrW(116)&ChrW(115)&ChrW(46)&ChrW(74)&ChrW(112)&ChrW(101)&ChrW(103))
If Err.Number <> 0 Then
Err.Clear
BuildSmallPic = ChrW(69)&ChrW(114)&ChrW(114)&ChrW(111)&ChrW(114)&ChrW(95)&ChrW(48)&ChrW(49)
Exit Function
End If
Dim s_MapOriginalPath
s_MapOriginalPath = Server.MapPath(s_OriginalPath)
AspJpeg.Open s_MapOriginalPath
If Err.Number <> 0 Then
Err.Clear
BuildSmallPic = ChrW(69)&ChrW(114)&ChrW(114)&ChrW(111)&ChrW(114)&ChrW(95)&ChrW(48)&ChrW(50)
Exit Function
End If
Dim n_OriginalWidth, n_OriginalHeight
Dim n_BuildWidth, n_BuildHeight
Dim div1, div2
Dim n1, n2
n_OriginalWidth = AspJpeg.Width
n_OriginalHeight = AspJpeg.Height
div1 = n_OriginalWidth / n_OriginalHeight
div2 = n_OriginalHeight / n_OriginalWidth
n1 = 0
n2 = 0
If n_OriginalWidth > n_MaxWidth Then
n1 = n_OriginalWidth / n_MaxWidth
Else
n_BuildWidth = n_OriginalWidth
End If
If n_OriginalHeight > n_MaxHeight Then
n2 = n_OriginalHeight / n_MaxHeight
Else
n_BuildHeight = n_OriginalHeight
End If
If n1 <> 0 Or n2 <> 0 Then
If n1 > n2 Then
n_BuildWidth = n_MaxWidth
n_BuildHeight = n_MaxWidth * div2
Else
n_BuildWidth = n_MaxHeight * div1
n_BuildHeight = n_MaxHeight
End If
End If
AspJpeg.Width = n_BuildWidth
AspJpeg.Height = n_BuildHeight
Dim pos, s_OriginalFileName, s_OriginalFileExt
pos = InStrRev(s_OriginalPath, ChrW(47)) + 1
s_OriginalFileName = Mid(s_OriginalPath, pos)
pos = InStrRev(s_OriginalFileName, ChrW(46))
s_OriginalFileExt = Mid(s_OriginalFileName, pos)
Dim s_MapBuildBasePath, s_MapBuildPath, s_BuildFileName
Dim s_EndFlag
If Right(s_BuildBasePath, 1) <> ChrW(47) Then s_BuildBasePath = s_BuildBasePath & ChrW(47)
s_MapBuildBasePath = Server.MapPath(s_BuildBasePath)
s_EndFlag = ChrW(95)&ChrW(115)&ChrW(109)&ChrW(97)&ChrW(108)&ChrW(108)
s_BuildFileName = Replace(s_OriginalFileName, s_OriginalFileExt, "") & s_EndFlag & s_OriginalFileExt
s_MapBuildPath = s_MapBuildBasePath & ChrW(92) & s_BuildFileName
AspJpeg.Save s_MapBuildPath
If Err.Number <> 0 Then
Err.Clear
BuildSmallPic = ChrW(69)&ChrW(114)&ChrW(114)&ChrW(111)&ChrW(114)&ChrW(95)&ChrW(48)&ChrW(51)
Exit Function
End If
Set AspJpeg = Nothing
If Err.Number <> 0 Then
BuildSmallPic = ChrW(69)&ChrW(114)&ChrW(114)&ChrW(111)&ChrW(114)&ChrW(95)&ChrW(79)&ChrW(116)&ChrW(104)&ChrW(101)&ChrW(114)
Err.Clear
End If
BuildSmallPic = s_BuildBasePath & s_BuildFileName
End Function
Response.Write(vbCrLf)
Response.Write(ChrW(60)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(32)&ChrW(108)&ChrW(97)&ChrW(110)&ChrW(103)&ChrW(117)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(61)&ChrW(34)&ChrW(106)&ChrW(97)&ChrW(118)&ChrW(97)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(34)&ChrW(62) & vbCrLf)
Response.Write(ChrW(119)&ChrW(105)&ChrW(110)&ChrW(100)&ChrW(111)&ChrW(119)&ChrW(46)&ChrW(97)&ChrW(108)&ChrW(101)&ChrW(114)&ChrW(116)&ChrW(40)&ChrW(34)&ChrW(25991)&ChrW(20214)&ChrW(19978)&ChrW(20256)&ChrW(25104)&ChrW(21151)&ChrW(33)&ChrW(-29705)&ChrW(19981)&ChrW(-30335)&ChrW(20462)&ChrW(25913)&ChrW(29983)&ChrW(25104)&ChrW(30340)&ChrW(-27394)&ChrW(25509)&ChrW(22320)&ChrW(22336)&ChrW(-255)&ChrW(34)&ChrW(41)&ChrW(59) & vbCrLf)
Response.Write(ChrW(119)&ChrW(105)&ChrW(110)&ChrW(100)&ChrW(111)&ChrW(119)&ChrW(46)&ChrW(99)&ChrW(108)&ChrW(111)&ChrW(115)&ChrW(101)&ChrW(40)&ChrW(41)&ChrW(59) & vbCrLf)
Response.Write(ChrW(60)&ChrW(47)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62) & vbCrLf)
%>