<% '****----参数设定----**** imgFolderPath="images/CheckCode/" '**存放路径 fileExt=".gif" '**文件扩展名，要加上圆点的。可以使用的文件类型为gif jpeg bmp png imgWidth=15 '**图像宽 imgHeight=20 '**图像高 dim imgFileName(10) '**文件名,不要加扩展名 imgFileName(0)="0" imgFileName(1)="1" imgFileName(2)="2" imgFileName(3)="3" imgFileName(4)="4" imgFileName(5)="5" imgFileName(6)="6" imgFileName(7)="7" imgFileName(8)="8" imgFileName(9)="9" '****----写图片----**** no=request.querystring("no") CheckCodeStr=session("CheckCodeStr") url=imgFolderPath+imgFileName(cint(mid(CheckCodeStr,no,1)))+fileExt select case lCase(fileExt) case ".gif" response.ContentType="image/gif" case ".jpg" response.ContentType="image/jpeg" case ".bmp" response.ContentType="image/bmp" case ".png" response.ContentType="image/png" end select set Ados=Server.CreateObject("Adodb.Stream") Ados.Mode=3 Ados.Type=1 Ados.Open Ados.LoadFromFile(server.mappath(url)) response.BinaryWrite Ados.read(Ados.size) %>