 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
这里介绍一种不用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 %> 返回类别: 教程 上一教程: 简朴实用的ASP编程代码对照表 下一教程: 提高ASP页面的执行效率(上) 您可以阅读与"ASP图形计数器设计详解"相关的教程: · ASP计数器设计详解-2 · ASP计数器设计详解 · ASP计数器设计详解-1 · 编写“公平”的ASP图形计数器 · 趣味访客计数器设计两则 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
