noupdate.asp

来自「asp 和 flash 的完美结合」· ASP 代码 · 共 15 行

<%
'飞鸟计数器V1.0
%>
<%
Application.Lock
SQLcmd = "select * from sum"
set rs=conn.Execute(SQLcmd)
sum=rs("sum")
Application.UnLock 
x = CStr(sum)  
For i = 1 To Len(x)              
   gif = gif & "<img src='count/gif/"& Mid(x, i, 1) & ".gif' border=0>"
Next
gif_sum = gif
%>