aspÑéÖ¤Â루¼Ó·¨ÔËË㣩
ÔÚÌá½»Ò³ÃæÖÐÑéÖ¤session("GetCode")
<%@CodePage="65001"%>
<%
Call Com_CreatValidCode("GetCode")
Sub Com_CreatValidCode(pSN)
' ½ûÖ¹»º´æ
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
'Response.ContentType = "Image/BMP"
Randomize
Dim i, ii, iii
Const cOdds = 4 ' ÔÓµã³öÏֵĻúÂÊ
Const cAmount = 13 ' ÎÄ×ÖÊýÁ¿
Const cCode = "0123456789+=?"
' ÑÕÉ«µÄÊý¾Ý(×Ö·û£¬±³¾°)
Dim vColorData(1),vColorRandom(10)
'vColorData(0) = ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) ' À¶0£¬ÂÌ0£¬ºì0£¨ºÚÉ«£©
vColorRandom(0)=ChrB(150) & ChrB(0) & ChrB(0)
vColorRandom(1)=ChrB(0) & ChrB(150) & ChrB(0)
vColorRandom(2)=ChrB(0) & ChrB(0) & ChrB(150)
vColorRandom(3)=ChrB(0) & ChrB(50) & ChrB(150)
vColorRandom(4)=ChrB(150) & ChrB(50) & ChrB(0)
vColorRandom(5)=ChrB(150) & ChrB(0) & ChrB(150)
vColorRandom(6)=ChrB(150) & ChrB(100) & ChrB(10)
vColorRandom(7)=ChrB(150) & ChrB(40) & ChrB(120)
vColorRandom(8)=ChrB(150) & ChrB(0) & ChrB(250)
vColorRandom(9)=ChrB(100) & ChrB(100) & ChrB(100)
vColorRandom(10)=ChrB(50) & ChrB(50) & ChrB(50)
vColorData(0) = vColorRandom(0)
vColorData(1) = ChrB(250) & ChrB(250) & ChrB(255) '±³¾°É« À¶250£¬ÂÌ236£¬ºì211£¨Ç³À¶É«£©
' Ëæ»ú²úÉú×Ö·û
Dim vCode(6),vCodes,vCodeColors(6)
F
Ïà¹ØÎĵµ£º
C#Éú³Écom×é¼þ£¬¹©aspµ÷ÓÃ
Ò»¡¢vs2005—н¨ÏîÄ¿—C#Àà¿â
Àà¿âÔ´ÂëÈçÏÂ(°üº¬½Ó¿Ú£¬À࣬ʼþ½Ó¿Ú)£º
using System;
using System.Collections.Generic;
using System.Text;
using System.IO;
using System.Data.SqlClient;
using System.Runtime.InteropServices;
namespace entryclass
{
  ......
Ò»¡¢ÕâÑùÅäÖõĺô¦£¿
²»Öª´ó¼ÒÓÐûÓÐÌý¹ýÅÔ×¢£¿ÎÒ¼òµ¥µÄ½âÊÍһϰɣºÓиöÈËÏëºÚµôAÕ¾µã£¬µ«ÕÒÀ´ÕÒÈ¥¶¼Ã»·¢ÏÖ¿ÉÀûÓõÄ©¶´£¬ÎÞÒâÖÐËû·¢ÏÖÓëAͬ·þÎñÆ÷ÉÏ»¹ÓиöBÕ¾µã£¬²¢ÇÒÔÚBÕ¾µãÉÏÕÒµ½ÁË¿ÉÀûÓõÄ©¶´£¬ÓÚÊÇËû½«Ä¾Âí´ÓBÕ¾ÖÐÉÏ´«ÖÁ·þÎñÆ÷£¬Èç¹û·þÎñÆ÷ȨÏÞÅäÖò»µ±£¬ÄÇôÏÖÔÚËû¾Í¿ÉÒÔºÚµô·þÎñÆ÷ÉϵÄËùÓÐÕ¾µãÁË£¡Èç¹ûÎÒÃÇΪà ......
ActiveX¿Ø¼þÔËÐÐÔÚ¿Í»§¶Ë¡£ÎÒÃÇ¿ÉÒÔ»ñµÃ¿Í»§¶ËµÄһЩÐÅÏ¢£¬ÈçIC¿¨µÄÐÅÏ¢,¿Í»§¶ËµÄÑéÖ¤µÈµÈ¡£µ«ÊÇActiveX¿Ø¼þÒ²ÓÐÐí¶àȱµã£º¿Í»§¶ËµÄ²¿ÊðºÜÀ§ÄÑ£¬Èç¿Í»§¶Ë²»ÄÜÕýÈ·ÏÂÔØ£¬ÏÂÔØÁËÒÔºó²»ÄÜÕýÈ·Ö´ÐУ¬ÏÂÔØµÄʱºòÐèÒªÉèÖÃIEµÄ°²È«¼¶±ðµÈµÈ¡£
¸ü¶àµÄʱºò£¬ÎÒ¶¼ÔÚʹÓÃCOM×é¼þÀ´À©Õ¹ASPµÄ¹¦ÄÜ¡£×¼È·µØËµ£¬ÊÇ·þÎñ¶ËÔËÐеÄActivex Dll ......
ASPÊÇĿǰһÖÖ¹ãΪӦÓõÄÓÃÀ´¿ìËÙ¹¹½¨¶¯Ì¬WEBÕ¾µãµÄ±à³ÌÓïÑÔ£¬Ä¬ÈϵÄÄÚÖÿª·¢ÓïÑÔÊÇVBScript£¬ÓÉÓÚASPºÍ΢ÈíWindowsϵÁвÙ×÷ϵͳµÄ½áºÏ·Ç³£µÄºÃ£¬Ê¹µÃASPÒѾ³ÉΪÁËNT¿ª·¢Æ½Ì¨ÉÏÃæ½øÐÐWEB¿ª·¢µÄÊ×Ñ¡ÓïÑԺͻ·¾³¡£
ËûÓÐ׿òµ¥Ò×ѧ£¬·½±ã¿ìËÙ¿ª·¢µÄÖÖÖÖÓŵ㣬µ«ÊÇËûÒ²ÓÐ×ÅÖÂÃüµÄÈõµã£¬¾ÍÊÇËûÊǽű¾ÓïÑÔ½âÊÍÖ´Ðеģ¬ËÙ¶È»áÊܵ½ ......