ASPコードコード

「仅ASP部分、
　　
　　<％の
　　
　　明示的なオプション
　　
　　でResponse.Buffer =真
　　
　　NumCodeの
　　
　　機能NumCode（）
　　
　　Response.Expires = -1
　　
　　Response.AddHeader "プラグマ"、 "キャッシュなし"
　　
　　Response.AddHeader "キャッシュctrol"、「キャッシュなし"
　　
　　エラーで次の再開
　　
　　薄暗いzNumを、I、J
　　
　　薄暗いADOS、Ados1
　　
　　ランダマイズタイマー
　　
　　zNum = CINT（8999 *のRnd + 1000）
　　
　　セッション（"コードの取得」）= zNum
　　
　　点心zimg（4）、NSTR
　　
　　NSTR = CSTR（zNum）
　　
　　のiについて= 0~3
　　
　　zimg（I）= CINT（MID（NSTR、i）は1,1 +）
　　
　　次に
　　
　　薄暗い順位
　　
　　設定ADOS = Server.CreateObjectに（ "Adod​​b.Stream"）
　　
　　Ados.Mode = 3
　　
　　Ados.Type = 1
　　
　　ADOS。開いた
　　
　　設定Ados1 = Server.CreateObjectに（ "Adod​​b.Stream"）
　　
　　Ados1.Mode = 3
　　
　　Ados1.Type = 1
　　
　　Ados1.Open
　　
　　Ados.LoadFromFile（Server.MapPathの（ "body.Fix"））
　　
　　Ados1.write Ados.read（1280）
　　
　　I = 0〜3
　　
　　Ados.Position =（9- zimg（I））* 320
　　
　　Ados1.Position =私は320×
　　
　　Ados1.write ados.read（320）
　　
　　次に
　　
　　Ados.LoadFromFile（Server.MapPathの（ "head.fix"を））
　　
　　順位= LENB（Ados.read（））
　　
　　Ados.Position =順位
　　
　　i = 0〜9のステップ1については
　　
　　J = 0〜3について
　　
　　Ados1.Position = I * 32 + J * 320
　　
　　Ados.Position =順位+ 30 * J + I 120 *
　　
　　Ados.write ados1.read（30）
　　
　　次へ
　　
　　次へ
　　
　　Response.ContentTypeの= http://zzdxjyzd.com "画像/ BMP"
　　
　　ADOSを。位置= 0
　　
　　Response.BinaryWrite Ados.read（）
　　
　　Ados.Close：設定ADOS =何も
　　
　　Ados1.Close：設定Ados1 =何もない
　　
　　場合はその後のErrセッション（ "コードの取得"）= 9999
　　
　　エンド機能
　　
　　％>