访问数据库(5)

ASP编程

ASP编程
 ASP.NET编程
 PHP编程
 JSP编程
 XML编程
 数据库

本类阅读TOP10

·如何利用ASP把图片上传到数据库
·访问数据库(6)
·asp中常用的文件处理函数
·ASP SCRIPT: 计数器(使用GrapShot组件)
·ADO数据访问一点通
·显示以OLE对象存储图片的方法
·实用篇:用asp实现QQ在线查询
·关于ASPNET在IIS中的经验总结
·使用ASP读出文本文件并显示
·ASP中一个字符串处理类加强版(VBScript)

　

精品推荐

访问数据库(5)

作者：未知来源：未知 加入时间：2007-6-11 点击量：17

访问数据库(5)

　　这一章我要向大家讲的是如何利用asp去做一些实际的事情。
　　想必大家都有用记数器的经验，在没有asp的时候，我们的办法是去一个网站上申请一个，那样的效果是不错的。在使用别人的记数器的时候，我们是否有想过他们的程序昌怎么写的，我们用asp可不可以实现呢？答案是肯定的，我们利用asp和access数据库，可以很方便地做到这一点。下面，就让我们开始吧！

　　首先，我们要先规划一下这个程序的整体构思。首先是一个申请程序，这可以是一个简单的具有表单的asp页面。另外就是主页面。在主页面中，用户把他们的用户名和口令通过get方法提交给我们的主程序，我们暂且把它命名为count.asp，然后我们对用户名和口令进行数据库分析，看是否有此用户，以及它的密码是否正确。如果正确，则读取此用户的数据库记录，即将他的记数数据读出。然后把他的记数数加一。最后关闭这个数据库。至此，我们已经把数据读取出来了，下一步的工作便是将数据处理成图形的形式。如123456，我们可以把它变成图形的。这对我们来说，只不过是一碟小菜，请看下面的程序（假设我们读取出来的记数值存储在变量count中）：

countlen=len(count)
for i=1 to countlen
response.write "< IMG src=http://www.dvbbs.net/tech/asp/"".gif>"
next

试一试，是不是很简单呢？哈哈！

我们的核心程序已经写出来了，下面我给出所有的程序：

'从用户请求命令中得到用用户名和密码
user=request.querystring("user")
pwd=request.querystring("pwd")

'打开数据库并开始验证用户名和密码
set objconn=server.createobject("adodb.connection")
objconn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & SERVER.MapPath("count.mdb")
set rslogin=objconn.execute ("select * from tab where user='"&user&"' and pwd='"&pwd&"'")
if rslogin.eof then call error else call ok

'以下是验证密码部份
'密码错误
sub error
response.write("对不起，不存在此用户或您的密码不正确！")
'关闭连接
objconn.close
end sub

'密码正确
sub ok
'读取用户的记数值
count=rslogin("count")
'格式化数字为图形
countlen=len(count)
for i=1 to countlen
response.write "< IMG src=http://www.dvbbs.net/tech/asp/"".gif>"
next
'把用户的记数值加一
count=count+1
'把新的记数值写入数据库中
objconn.execute "update tab set count='"&count&"'"
'关闭连接
objconn.close
end sub

　　好像写完了，是的，写完了！原来很神秘的东西怎么这么简单！是的，世界就是这么简单！
喔，差点忘了，我是不是应该讲一讲count.mdb这个数据库的结构呢？这个数据库包括一个表tab,这个表中只有三个字段，它们是user,pwd,count。其中user指的是用户名，pwd是用户密码，count是用户的记数值。

下面，可以试一下我们的劳动成果了。在tab表中建立一个记录，其中user=a,pwd=a,count=10
在我们的网址后面加上?user=a&pwd=a

例如：www.mysite.com\test.asp?user=a&pwd=a

怎么样，可以了吧！

　　还有的是申请页面，想必这个大家一定没有什么问题！好了，下节课再见！
　　

相关文章：

相关软件：

Kaspersky Internet Security 2006 V6.0.12.175 汉化补丁

Kaspersky Internet Security 2006 V6.0.15.222

Kaspersky Personal Security Suite V1.0.22

Kaspersky Anti-Virus(AVP) 每周病毒库(2005.10.28)

Kaspersky Anti-Virus(AVP) Personal V5.0.388 汉化补丁

ExcelEverywhere for ASP & ASP.NET V3.4.1

Aspose.Word V3.1.4.0


	搜索引擎软件注册码电脑知识软件运用技巧 QQ宝典网站开发网页制作图形图像
	数据库类程序设计电脑硬件网络技术免费留言簿索尼爱立信免费邮箱
	游戏攻略游戏秘技魔兽私服技术网游专区免费主页空间