<% '======== 2006-10-10 Add a counter Dim theMaxNumb Dim theSql Dim execSql execSql ="update tEmailServicesVisit set theId = theId + 1" conn.Execute(execSql) theSql ="select max(theID) as theMaxId from tEmailServicesVisit" theMaxNumb = conn.execute(theSql)(0) Response.Write(theMaxNumb) %>
图片显示
<script language="javascript" runat="server"> var theCount="223"; // input your counter numb. var showNum =""; for(i=0; i< theCount.length; i++) ...{ digi = theCount.substr(i,1); showNum +="<img src='num//"+ digi +".gif'>"; } document.write(showNum); </script>