update.asp

来自「人民医院眼科全站」· ASP 代码 · 共 18 行

<%
'飞鸟计数器V1.0
%>
<!--#include file="ip.asp"-->
<%
Application.Lock	
SQLcmd = "select * from sum"
set rs=conn.Execute(SQLcmd)
sum=rs("sum")+1
SQLcmd1 = "update sum set sum=sum+1"
conn.Execute SQLcmd1
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
Application.UnLock 
%>