你现在的位置:首页DW学习》一招一式

 

 

菜鸟也学asp

浏览次数:3722

   想学asp,总有畏难情绪在作怪,开不了头。这万事开头难,我真的好想突破。下载了一套asp视频教程,看了一遍,却是一头雾水。
   今天在网友的帮助下,做了第一张asp网页,就是在主页上加页面点击数统计和时间显示,这些仅仅是加代码而言,因为不需要数据库,恐怕是最简单的asp网页了吧,把操作过程和代码纪录如下:

   一、页面点击数统计光标停在插入处,在代码视图里加入以下代码,网页后缀为.asp

<%
application.Lock()
application.Contents("visitnum")=application.contents("visitnum")+1
application.UnLock()
dim t8
t8=application.contents("visitnum")
response.Write("点击数:"&t8)
%>
   二、取得服务器日期年月日星期的代码:光标停在插入处,在代码视图里加入以下代码,网页后缀为.asp

<%=year(date())%>年<%=month(date())%>月<%=day(date())%>日&nbsp;<%select case Weekday(date())
case "1"
response.write "星期天"
case "2"
response.write "星期一"
case "3"
response.write "星期二"
case "4"
response.write "星期三"
case "5"
response.write "星期四"
case "6"
response.write "星期五"
case "7"
response.write "星期六"
case else
response.write ""
end select%>

2007年9月4日

  三、用数据库实现点击数统计:(上面一、的统计效果不好,也不知道问题在哪里,有知道的请告知。)

1.建立数据库:

我建了以下字段:id(自动编号);ym(页面名称);dj(点击)。数据库里的表名为:db1;保存数据库名称和格式为:dj.mdb

2.在页面顶部放入以下代码:

<%
dim conn,connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data\dj.mdb")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
dim rs,sql
set rs=server.CreateObject("ADODB.Recordset")
sql="select dj from db1 where ym='index'"
rs.open sql,conn,3,3
rs("dj")=rs("dj")+1
rs.update
%>

解释:
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath
("data\db1.mdb")中Provider=Microsoft.Jet.OLEDB.4.0 这一句申明数据库的
的提供者,Data Source="&Server.MapPath("data\dj.mdb")这个是数据库的
地图路径!

set conn=server.createobject("ADODB.CONNECTION")
这个是建立一个数据库连接对象!

conn.open connstr这个是对象以connstr打开数据库
dim rs,sql
set rs=server.CreateObject("ADODB.Recordset")
sql="select dj from db1 where ym='index'"
rs.open sql,conn,3,3
rs("dj")=rs("dj")+1
rs.update
底下是记录集的操作。

3.<%=rs("dj")%>这个就是点击的次数,你想放哪就放那!
比如:浏览次数:<%=rs("dj")%>
这样就可以了!

4.别的页面要统计的话,就在数据库里添加个页面名(方法与加index一样):

把<%
dim conn,connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data\dj.mdb")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
dim rs,sql
set rs=server.CreateObject("ADODB.Recordset")
sql="select dj from db1 where ym='index'"
rs.open sql,conn,3,3
rs("dj")=rs("dj")+1
rs.update
%>

中的index改成你加的页面名,就可以了,其余的一样!


2007年9月28日

 

返回主页