为什么必须要加on error resume next
<%
const MAXLENGTH=6
'on error resume next
if Not Request.Cookies("ID") <> "" Then
Request.Cookies("ID")="ID"
Application.Lock
if application("counter")="" Then
application("counter")=0
End If
application("counter")=application("counter")+1
Application.Unlock
End If
Response.Write(application("counter"))
length=len(application("counter"))
for i=1 to MAXLENGTH-length
Response.Write("<img src=../images/c0.gif align='absmiddle'>")
next
for i=1 to length
index=mid(application("counter"),i,1)
Response.Write("<img src=../images/c"&index&".gif align='absmiddle'>")
next
Response.Cookies("ID")="ID"
%>