asp下载防盗链代码第一种: 终于对下载系统做了个防盗链措施，在下载的页面头部做了如下代码，相关代码如下： 代码如下:<% From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) if mid(From_url,8,len(Serv_url)) <> Serv_url and mid(From_url,8,len(Serv_url))<>"ITstudy.cn" and mid(From_url,8,len(Serv_url))<>"www.ITstudy.cn" then response.wri...
代码如下:一 遍历Request 方式1: <% For Each r In Request.QueryString Response.Write "Request("""&r&""") = " & Request(r) Response.Write "<p>" Next %> 方式2: <% For i = 1 To Request.QueryString.Count Response.Write "Request("""&Request.QueryString.Key(i)&""") = " & Request.QueryString(Request.QueryString.Key(i)) Response.Write "<p>" Next %> 将QueryString改为Form，即可遍历Post变量。 二 遍历Sessio...
1. CDONTS.NewMail 组件使用说明 Set MailObject = Server.CreateObject("CDONTS.NewMail") MailObject.From = "发信邮箱" MailObject.To = "收信邮箱" MailObject.Cc = "抄送邮箱" MailObject.Bcc = "密送邮箱" MailObject.Subject = "邮件主题" MailObject.Body = "邮件内容" MailObject.MailFormat = 0 '邮件的格式，0是MIME格式，1是文本消息 MailObject.BodyFormat = 0 '邮件的正文的格式，0表示HTML格式，...
<!--#include file="md5.asp"--> <% Dim iniPath,iniFileName,iniStr,tmpStr,n Dim userName,passWord,tmp userName = "myfso222" '用户名 passWord = "awaysrain" '密码 tmp = "ai" '随机生成两个小写字母，（应该是随机生成的，但是我这里省略了） passWord = tmp & UCase(md5(passWord)) '密码，是MD5加密过的，用动网的MD5加密程序，具体算法是随机生成两位小写字母，然后和你的密码连接后进行MD5加密，把随机生成的密码...
代码如下:防止一般的采集以及小偷读取，加在顶部。同理，可以改造成JS脚本。<% Dim AppealNum,AppealCount AppealNum=10 '同一IP60秒内请求限制10次 AppealCount=Request.Cookies("AppealCount") If AppealCount="" Then response.Cookies("AppealCount")=1 AppealCount=1 response.cookies("AppealCount").expires=dateadd("s",60,now()) Else response.Cookies("AppealCount")=AppealCount+1 response.cookies("Appeal...
代码如下:<% ' -- Loader.asp -- ' -- version 1.5.2 ' -- last updated 12/5/2002 ' ' Faisal Khan ' faisal@stardeveloper.com ' www.gxlsystem.com ' Class for handling binary uploads Class Loader Private dict Private Sub Class_Initialize Set dict = Server.CreateObject("Scripting.Dictionary") End Sub Private Sub Class_Terminate If IsObject(intDict) Then ...
提起asp很多人就认为是一堆html脚本和被括在<%和%>之中的一些代码还有就是一些javascript脚本等筹在一起的一些代码的集合，这样的代码，再加上各类的不同格式的注释，看起来就一个字：乱。也不管别人能不能看得懂，只要是能实现自己的目的就可以了，因为asp的代码也是脚本，给了客户也不可能不被人看到其中的内容，经多包容在dll中一部分业务逻辑，但是还是觉得asp代码是最不值钱的代码，没有人回去购买，可以随时从别人的网站中查...
<%@ Language = VBSCRIPT %> <% Option Explicit %> <% rem 在asp中通过getrows实现数据库记录分页的一段代码 Dim iStart, iOffset iStart = Request("Start") iOffset = Request("Offset") if Not IsNumeric(iStart) or Len(iStart) = 0 then iStart = 0 else iStart = CInt(iStart) end if if Not IsNumeric(iOffset) or Len(iOffset) = 0 then iOffset = 30 else iOffset = Cint(iOffset) end if Response.Write "Viewing " & ...
计算当前文件夹中，有多少行JS代码和ASP代码，并且还可统计代码有多少字节有示例代码 代码如下:<% '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ '\\ '\\ 来自 codeproject.com '\\ 计算js和asp代码 '\\ 修改 bluedestiny '\\ mail:bluedestiny at 126.com '\\ '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ option explicit response.buffer=false class COUNT_CODE private fso,spath private asplines, jsline...
在和尚那里看到他给z-blog加上了运行代码功能，放了几天假，有些怕怕再这样闲下去会生锈的，在补了一个半小时的觉之后，也给blog加上运行功能，因为是从L-Blog修改而来，因此同样适用于L-Blog，另外，FBS也是L-Blog修改而来，应该也可以使用本文中的方法来添加运行代码功能。另外，由于和保存代码还没有找到兼容各浏览器的解决方法，就没有加进来了。 示例： 步骤如下： 1. 在 include/common.js 中添加如下代码： 代码如下:funct...
代码如下:<style> td { font-family: "宋体"; font-size:9pt} </style> <body bgcolor="eeeeee"> <table width="180" cellpadding="0" cellspacing="1" bgcolor="dddddd" align=center> <% '以下为ASP中通过该日历算法实现的具体代码 '先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示 If Request("ReqDate")="" then CurrentDate=Date else CurrentDate=Trim(Request("ReqDate")) ...
使用FSO修改文件特定内容的函数 function FSOchange(filename,Target,String) Dim objFSO,objCountFile,FiletempData Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True) FiletempData = objCountFile.ReadAll objCountFile.Close FiletempData=Replace(FiletempData,Target,String) Set objCountFile=objFSO.CreateTextFile(Serv...
为了避免ASP程序和HTML代码混写造成维护困难的情况，本文介绍了一种方法，利用模板来分离程序和页面，使程序设计更加轻松。 在使用ASP制作一个站点的时候，常常会出现一个ASP文件中，程序代码和HTML代码混合的情况。这样子做有许多缺点： 1. 且不说编程时就要对页面布局进行设计和编排，造成代码混乱难懂，不规范； 2. 当需要改变页面外观时，你不仅要改变HTML部份，也需要改变ASP代码，不易维护。 那么，要如何才能避...
代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.gxlsystem.com/pr/rank.asp?domain="&domain) getPrLine=RegExpText(getContent,"在Google PageRank满分10分评价中获得.*(\\d).*分") getPr=RegExpText(getPrLine,"\\s\\d\\s") End Function Function bstr(vIn) Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode strRetur...
使用说明 1.在要保护的页面顶部加如对AntiRefresh.asp文件的引用如： <!--#include virtual="AntiRefresh.asp" --> 2.接着添加调用代码 代码如下:<% Const VarNameDateArr="www_domai_net_App_DataArr" 队列名称 Const VarNameIPArr="www_domai_net_App_IPArr" 队列名称 Dim objAntiRefresh Set objAntiRefresh= new AntiRefresh objAntiRefresh.BufferSize=100 队列大小 objAntiRefresh.CacheItemAvailTime=2 间隔时间 If Not ob...