网络天地|网站建设|网页-网站|第1章 网页设计基础|第2章 设计网页元素|第3章 网页布局与数据显示|第4章 快速部署网页
第5章 编写网页文档|第6章 制作交互网页|第7章 构建动态网页|第8章 处理网页图像|第9章 编辑动画元素|第10章 综合实例
谢老师
2017-01-28
广东佛山谢老师，任教多年建网站。网络编程ＡＳＰ，调用网络数据库。
自建网站十七年，访问人次几十万。曾经带班六十多，指导建站二千多。
２０１１到１６，清华大学深研院。师生集体去爬山，翻山越岭自行车。
坚持早上去跑步，喜欢游泳山水间。体操锻炼单双杠，倒立行走练手臂。
道士进山练功夫，气功暗劲太极拳。江山如画随意游，网络天地任逍遥。
谢老师
2017-01-28
广东佛山谢老师，任教多年建网站。网络编程ＡＳＰ，调用网络数据库。
自建网站十七年，访问人次几十万。曾经带班六十多，指导建站二千多。
<%
'1.创建连接对象 Connection
set cn=Server.CreateObject("ADODB.Connection")
cn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&server.MapPath ("../mdb/wssdk.mdb")
'2.创建记录集对象 Recordset
set rs=Server.CreateObject("ADODB.Recordset")
'3.打开计数表，向网站数字段赋值,用Update写入
rs.open"select 网站数 from 计数表",cn,adOpenDynamic,3
rs("网站数")=rs("网站数")+1
rs.Update
rs.close
rs.open"select 网站数 from 计数表",cn,3
Counter=rs("网站数")
Function G_Split(CounterValue,CounterBits)
for i=1 to CounterBits
G=Mid(CounterValue,i,1)
If G="" Then
G=0
ImgTag= "![](ssfg/"&G&".gif){kind=small}
" & ImgTag
Else
ImgTag=ImgTag & ""
End If
Next
G_Split=ImgTag
End Function
%>
计数器：<%=G_Split(Counter,6)%>
<%
rs.close
cn.close
set rs=nothing
%>
２０１１到１６，清华大学深研院。师生集体去爬山，翻山越岭自行车。
坚持早上去跑步，喜欢游泳山水间。体操锻炼单双杠，倒立行走练手臂。
道士进山练功夫，气功暗劲太极拳。江山如画随意游，网络天地任逍遥。
