大家帮我看看网业验证码不显示

问题描述：

是否源码出错？
下面是源码
<%
Response.buffer=true
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
YChar="0,1,2,3,4,5,6,7,8,9"
YC=split(Ychar,",")
YCodeNum=4
for i=1 to YCodeNum
Randomize
YCode=YCode&YC(Int((10*Rnd)))
next
Session("GetCode")=YCode

Response.Clear
Response.ContentType="image/gif"
set obj=Server.CreateObject("ShotGraph.image")
x=50
y=22
obj.CreateImage x,y,8
obj.SetColor 1,222,222,222
obj.SetColor 0,000,000,000
obj.CreatePen "PS_SOLID",1,0
obj.SetBgColor 1
obj.Rectangle 0,0,x-1,y-1
obj.SetBkMode "TRANSPARENT"
obj.CreateFont "Tahoma",100,17,1,True,False,False,False
obj.SetTextColor 0
obj.TextOut 5,3,YCode

img=obj.GifImage(-1,1,"")
Response.BinaryWrite (img)
%>

问题解答：

大家帮我看看网业验证码不显示这个旅游问答期待您的解答，请登录账号或关注微信公众号回答这个问题。