WEB开发网
开发学院WEB开发ASP ASP图形计数器设计详解 阅读

ASP图形计数器设计详解

 2003-05-15 11:11:30 来源:WEB开发网   
核心提示:这里介绍一种不用CGI而设计出的漂亮的图形计数器,这里分为三部分:1,ASP图形计数器设计详解,建立图形文件, 2,——————number.asp———————————— <%@ language="vbscript" %><!--#include file="ad

这里介绍一种不用CGI而设计出的漂亮的图形计数器。
这里分为三部分:1,建立图形文件。
       2,建立数据库。
       3,编写代码。
1,建立图形文件。
  首先,用做图软件制作10个图形,用于显示计数
器的十个数字:1,2,3,4,5,6,7,8,9,0。如果
你有美术才能,还能做出更好的图形。
2,建立数据库。
  用建立一个数据库,名字为。数据库包含一个表,
名字为,结构为:整数,有一条记录,初始值为0。
用于存放上一次访问本页面的次数。
3,编写代码。
——————number.asp———————————— 
<%@ language="vbscript" %>
<!--#include file="adovbs.inc"-->
<%
set objconn=server.createobject("adodb.connection")
objconn.attributes=adxactcommitretaining
dbpath=server.mappath("num.mdb")
objconn.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
注释:与数据库建立连接。

sqlquery= "select * from numt"
set rsrecordset=server.createobject("adodb.recordset")
rsrecordset.open sqlquery,objconn,adopenkeyset,adlockoptimistic
注释:打开数据库。

application.lock
application("nmb")=rsrecordset("number")
application.unlock
注释:把上一次访问次数赋给Application对象

application.lock
application("nmb")=application("nmb")+1
application.unlock
rsrecordset("number")=rsrecordset("number")+1
rsrecordset.update
rsrecordset.close
objconn.close
set rsrecordset=nothing
set objconn=nothing
注释:关闭数据库,释放对象

dim nmb1
dim str()
nmb1=application("nmb")
redim str(nmb1)
for i=1 to len(nmb1)
str(i)=mid(nmb1,i,1)
注释:对于每一个数得到相应的图形文件

select case str(i)
 case"0"
  imgF="0.gif"
 case"1"
  imgF="1.gif"
 case"2"
  imgF="2.gif"
 case"3"
  imgF="3.gif"
 case"4"
  imgF="4.gif"
 case"5"
  imgF="5.gif"
 case"6"
  imgF="6.gif"
 case"7"
  imgF="7.gif"
 case"8"
  imgF="8.gif"
 case"9"
  imgF="9.gif"
end select
注释:输出图形

response.write"<img src="&imgF&">"
next
%>

Tags:ASP 图形 计数器

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接