UC知道请解释下边的代码 （最详细最详细的 ）
来源：百度知道 编辑：UC知道 时间：2024/05/01 01:36:12
dim fkrs '定义字符串
fkrs=request.Cookies("fangkerenshu") '从数据库读取访客人数
if fkrs="" then
strSql="Select 访客人数 From fkrs" '如果访客人数是空则找到访客人数的记录
dim rs_renshu
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSql,db,1 '要应用Count属性，要用键盘指针
If not rs.eof Then
rs_renshu=rs(0) '如果到末尾
end if
rs.close
response.Cookies("fangkerenshu")=rs_renshu
rs_renshu=rs_renshu+1
strSql="update fkrs set 访客人数=访客人数+1 where id=1"
db.Execute(strSql)
response.Write("你是第"&rs_renshu &"位访客！<br>")
else
response.Write("你是第"&fkrs+1&"位访客！<br>")
end if
%>
<p>
</p>
<%
response.Write("您来访的时间是" & Now() &"<br>")
%>
fkrs=request.Cookies("fangkerenshu") '从数据库读取访客人数
if fkrs="" then
strSql="Select 访客人数 From fkrs" '如果访客人数是空则找到访客人数的记录
dim rs_renshu
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSql,db,1 '要应用Count属性，要用键盘指针
If not rs.eof Then
rs_renshu=rs(0) '如果到末尾
end if
rs.close
response.Cookies("fangkerenshu")=rs_renshu
rs_renshu=rs_renshu+1
strSql="update fkrs set 访客人数=访客人数+1 where id=1"
db.Execute(strSql)
response.Write("你是第"&rs_renshu &"位访客！<br>")
else
response.Write("你是第"&fkrs+1&"位访客！<br>")
end if
%>
<p>
</p>
<%
response.Write("您来访的时间是" & Now() &"<br>")
%>
dim fkrs '定义字符串
fkrs=request.Cookies("fangkerenshu") '从cookie中读取fangkerenshu的值
if fkrs="" then
strSql="Select 访客人数 From fkrs" '如果访客人数是空则到数据库表[fkrs]中找到 [访客人数]的值
dim rs_renshu '定义变量
Set rs=Server.CreateObject("ADODB.Recordset") '定义数据集
rs.Open strSql,db,1 '用以上SQL语句打开数据集
If not rs.eof Then '如果数据集的指针不在结束位置
rs_renshu=rs(0) '获取 [访客人数]的值
end if
rs.close '关闭数据集
response.Cookies("fangkerenshu")=rs_renshu'设置cookie中 fangkerenshu的值
rs_renshu=rs_renshu+1 '访客人数加1
strSql="update fkrs set 访客人数=访客人数+1 where id=1"
db.Execute(strSql) '修改数据库中[访客人数]的值
response.Write("你是第"&rs_renshu &"位访客！<br>") '页面上打印访客人数
else
response.Write("你是第"&fkrs+1&"位访客！<br>")
end if
%>
<p>
</p>
<%
respo