ASP网站制作之【编程】开源(OpenSource) - 反向链接(...
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了编程|链接|链接反向链接(Referrers)体系能够很好的显现反向链接，今朝良多站点上显现的最新来历（referer）统计都是用的是Stephen的referrer统计体系，好比Booso反向链接(Referrers)统计体系，另有一个朱传伟的反向链接统计服务不晓得是否是他本人完成的。总之，网上供应这些反向链接(Referrers)体系不是服务欠好，就是定制性欠好，以是，爽性，我烦了，本人花一地利间写了一个，而且公然源代码，基础上架构和功效都用了，可是还必要完美。
因为我没有撑持ASP+Access的主机，以是没法为人人供应服务，但愿有哪一个同仁能够供应这个服务？大概CSDN会供应这个服务给我？最终效果以下：
基础架构：
接纳ASP+Access
用以下剧本在必要统计的页面增添反向链接纪录
<scriptlanguage=javascriptsrc="/lib/refadd.js"></script>
用以下剧本在必要显现的页面增添反向链接显现
<scriptlanguage=javascriptsrc="/lib/refcnt.js"></script>
数据库：
数据库只必要一张表便可
ID:整数
IP:字符串(255)
Agent：字符串(255)
To：字符串(255)
Name：字符串(255)
From：字符串(255)
Date：日期工夫
个中"Name"字段的值是对From处置后的了局，好比From="http://www.google.com/"则Name="Google"
剖析:
只必要复杂一个SQL查询便可：
SELECT,COUNT(*)FROMGROUPBYORDERBYCOUNT(*)DESC"
假如必要，还能够加上需要的前提，好比显现会见次数年夜于3次的纪录：
SELECT,COUNT(*)FROMGROUPBYHAVINGCOUNT(*)>3ORDERBYCOUNT(*)DESC"
基础功效：
反向链接纪录
反向链接显现（撑持多种参数）
文件列表：
lib/refadd.asp
lib/refadd.js
lib/refcnt.asp
lib/refcnt.js
lib/refcon.asp
lib/images/percent.gif
dat/refdb.mdb
源代码：
因为CSDN不供应文件下载功效，以是我还要找一个中央上传源代码，不晓得那里有，列位同仁请告诉道
default.asp
<html>
<head>
<title>Top100ReferingSites</title>
<metahttp-equiv="content-type"content="text/html;charset=gb2312">
</head>
<body>
<scriptlanguage=javascriptsrc="/lib/refadd.js"></script>
<scriptlanguage=javascriptsrc="/lib/refcnt.js"></script>
</body>
</html>
refadd.asp
<%@language=javascript%>
<!--#includefile="refcon.asp"-->
<%
functionmakeURL(sName,sURL)
{
if(sURL.indexOf("http://")==0)
{
sURL=sURL.substring(7);
}
return"<ahref="http://"+sURL+"">"+sName+"</a>";
}
functiongetName(sIP,sURL)
{
varsName=sURL.toLowerCase();
if(sName=="")
{
sName=makeURL("DirectRefrence",sIP);
}
else
{
if(sName.indexOf("http://")==0)
{
sName=sName.substring(7);
}
if(sName.indexOf("www.")==0)
{
sName=sName.substring(4);
}
varnIndex=sName.indexOf("/");
if(nIndex>0)
{
sName=sName.substring(0,nIndex);
}
if(sName.indexOf(".")==0)
{
sName=makeURL("NotAvalible",sURL);
}
else
{
if(sName.indexOf("google")==0)
{
sName=makeURL("Google",sURL);
}
else
if(sName.indexOf("yahoo")==0)
{
sName=makeURL("Yahoo",sURL);
}
else
{
sName=makeURL(sURL,sURL);
}
}
}
returnsName.substring(0,255);
}
varnCT=parseInt(""+Request.QueryString("ct"));if(isNaN(nCT))nCT=8;
varsIP=""+Request.ServerVariables("REMOTE_ADDR");if(sIP=="undefined"||sIP=="null")sIP="";
varSQL="SELECTFROMWHERE="+sIP+"ANDDATEDIFF(h,,NOW())<"+nCT;
varoRS=oConnect.Execute(SQL)
if(oRS.EOF&&oRS.BOF)
{
varsRF=""+Request.QueryString("fr");if(sRF=="undefined"||sRF=="null")sRF="";
varsTO=""+Request.QueryString("to");if(sTO=="undefined"||sTO=="null")sTO="";
varsAG=""+Request.ServerVariables("HTTP_USER_AGENT");
sRF=sRF.substring(0,255);
sTO=sTO.substring(0,255);
sAG=sAG.substring(0,255);
SQL="INSERTINTO(,,,,,)VALUES("
+"NOW()"
+","+sIP+"&qu</p>ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。 Session:这个存储跟客户端会话过程的数据，默认20分钟失效 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。
页:
[1]