b中字段如下：
序号（自动）
日期（访客进入时间）
电脑（IP地址）
来自（如果访客从进入本站，那会显示“hello”）
地址（通过对IP地址分析后知道的地址（如：中国网通或北京大学））
在网站首页中插入以下代码：
《%
ifsession(\"0086it\")1then
\'上面一行防止刷新给统计造成不准。
dsntemp=server.mappath(\"abc.mdb\")
setconn=server.createobject(\"adodb.connection\")
conn.open\"driver=;dbq=\"uid=admin;password=hello;dbq=\"defds123dsntemp
ifrequest.querystring(\"cha\")《》\"\"then
sql=\"select*fromdbwhere来自like\'%\"defds123request.form(\"cha\")defds123\"%\'orderby日期DESC\"
else
sql=\"select*fromdborderby序号DESC\"
endif
setrs=server.createobject(\"adodb.recordset\")
rs.opensql,conn,1,1
%》
《palign=\"center\"》《br》
《fontface=\"黑体\"》访问统计系统《/font》《/p》
《tablewidth=\"700\"border=\"0\"cellspacing=\"1\"cellpadding=\"0\"align=\"center\"class=\"jiangc\"bgcolor=\"#000000\"》
《formname=\"form1\"method=\"post\"action=\"?cha=1\"》《tr》
《tdheight=\"24\"bgcolor=\"#ECF9FF\"align=\"center\"》[共《fontcolor=red》《%=rs.recordcount%》《/font》
条记录]列出最近《ahref=\"?id=100\"》100《/a》《ahref=\"?id=300\"》300《/a》《ahref=\"?id=500\"》500《/a》
《ahref=\"?id=1000\"》1000《/a》《ahref=\"?id=3000\"》3000《/a》《ahref=\"?id=5000\"》5000《/a》
《ahref=\"?ID=《%=rs.recordcount%》defds123ID2=all\"》所有《/a》记录
《inputtype=\"text\"name=\"cha\"class=\"jiangc\"size=\"12\"》
《inputtype=\"submit\"name=\"Submit\"value=\"查\"class=\"jiangc\"》
《/td》
《/tr》《/form》
《/table》
《tablewidth=\"100%\"border=\"0\"cellspacing=\"0\"》
《tr》
《tdheight=2》《/td》
《/tr》
《/table》
《tableborder=\"0\"cellspacing=\"1\"cellpadding=\"2\"bordercolorlight=\"#CCCCCC\"bordercolordark=\"#FFFFFF\"class=\"jiangc\"align=\"center\"bgcolor=\"#999999\"》
《trbgcolor=\"#CCCCCC\"》
《td》序号《/td》
《td》记录中总编号《/td》
《td》访问者进入日期《br》
0000000000000000000《/td》
《td》访问者电脑IP地址《/td》
《td》地区《/td》
《td》来自《/td》
《/tr》
《%
whilenotrs.eofandi《cint(id)
i=i1
%》
《trbgcolor=\"#FFFFFF\"》
《tdalign=\"center\"》《fontcolor=cccccc》《%=i%》《/font》《/td》
《tdalign=\"center\"》《%=rs(\"序号\")%》《/td》
《td》
《%
ifrs(\"日期\")》date()then
response.write\"《fontcolor=red》\"defds123rs(\"日期\")defds123\"《/font》\"
else
response.writers(\"日期\")
endif%》
《/td》
《td》
《%ifrs(\"电脑\")=\"221.215.99.61\"thenresponse.write\"*\"elseresponse.writers(\"电脑\")endif%》
《/td》
《td》
《%=rs(\"地址\")%》
《/td》
《td》
《%ifinstr(rs(\"来自\"),\"◆\")《》0then
response.write\"《ahref=\'\"defds123right(rs(\"来自\"),len(rs(\"来自\"))-instr(rs(\"来自\"),\"◆\"))defds123\"\'target=\'_blank\'》\"defds123rs(\"来自\")defds123\"《/a》\"
endif%》
《/td》
《/tr》
《%
rs.movenext
wend
%》
《/table》
《br》
《tablewidth=\"700\"border=\"0\"cellspacing=\"1\"cellpadding=\"10\"align=\"center\"class=\"jiangc\"bgcolor=\"#CCCCCC\"bordercolor=\"#0000CC\"》
《tr》
《tdbgcolor=\"#EFEFEF\"》备注：《%ifrequest.querystring(\"id2\")=allthen%》只列出最近的《fontcolor=red》《%=id%》《/font》条记录《br》
《%else%》
系统列出了所有访问记录《br》
《%endif%》
设计：[email protected](MSN)《br》
设计日期：2003年03月《/td》
《/tr》
《/table》
《/html》 |
