http://www.tsov.net/blog/article.asp?id=416TSYS资源特性的以字符型存储的，所以在更新文件的判断比较麻烦，直接把类型改成数值型，方便，效率也有提高。 如： 原来的方法： Sql="select Top 5 Title,FilePath,SmallImg,ShortContent,AddTime From view_NewsInfo where Class=61 and Instr(','+Speciality+',',',29,')<>0 order By Id DESC" 修改后数据库中的Speciality的型号为数值型，默认值为0，，后， Sql="select Top 5 Tit...
方式一： 代码如下:<% Function IsSelfRefer() Dim formUrl,relUrl formUrl=LCase(Trim(request.ServerVariables("HTTP_REFERER"))) If formUrl="" Then IsSelfRefer = False Else relUrl="http://" & Trim(Request.ServerVariables("SERVER_NAME")) If (formUrl<>relUrl) Then IsSelfRefer = False Else IsSelfRefer = True End If End If End Function %> 方式二： ...
代码如下:<% dim objXML dim objRootElement dim strValue dim strInetURL dim strXML dim item strInetURL ="http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml" Dim HttpReq set HttpReq = server.CreateObject("MSXML2.XMLHTTP") HttpReq.open "GET", "http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml", False HttpReq.send strXML = HttpReq.responseText ...
asp: 代码如下:<a href="<％=request.serverVariables("Http_REFERER")％>">preivous page</a>或用图片如：<img src=http://www.gxlsystem.com/Get/asp/00010006/"arrowback.gif" alt="<％=request.serverVariables("HTTP_REFERER")％>"> js:document.referer即可php: 代码如下:$url=$HTTP_SERVER_VARS["HTTP_REFERER"]; if($url) { $url_resource=$url; } else{ $url_resource...
图片入库 代码如下:<!--#include virtual="/_inc/conn.inc"--> <% '取得客户端送出的数据字节大小 frmsize=Request.TotalBytes '以二进制方式读取数据 frmData=Request.BinaryRead(frmsize) '去掉实际数据前、后的边界字符串行 bnCrLf=ChrB(13)&ChrB(10) divider=leftB(frmdata,CLng(InstrB(frmdata,bnCrLf))-1) dataStart=InstrB(frmData,bnCrLf&bncrlf)+4 dataEnd=InstrB(datastart+1,frmData,divider)-dataStart '...
无组件生成验证码-GIF格式 代码如下:<% Option Explicit ' 显示声明 Class Com_GifCode_Class ''''''''''''''''''''''''''''''''''''''''''''' ' Author: Layen support@ssaw.net 84815733(QQ) ' Thanks: Laomi, Laomiao, NetRube ' 2006-01-02 ''''''''''''''''''''''''''''''''''''''''''''' Public Noisy, Count, Width, Height, Angle, Offset, Border Private Graph(), Margin(3) Private Sub Class_Initialize() Randomize ...
有很多人需要，也有很多人问了，我记得在一个帖子中做了详细回复的。 现在再整理出来！1、下载文件 imgchk.rar 该压缩包为 imgchk 文件夹 ，其中有三个文件：validatecode.asp，validatebody.fix，validatehead.fix 主要即是为生成 验证码 服务的。 将解压文件夹直接释放在需要在某页添加验证码的同目录下 （比如 addnew.asp 需要添加验证码，该文件在 cnbruce 文件夹下，则将 imgchk 文件夹同时释放到 cnbruce 文件夹 中） 2、添加...
一个二叉树的递归,找出左边最下面的一个点 id 自动编号 pid 父ID id_path 节点路径 flg 位置,0左边,1右边 ALTER PROCEDURE [dbo].[get_class] 代码如下:@class int, @return int output AS SELECT @return=isnull(( select top 1 id from class where pid=@class and flg=0 ),-2) if @return>-1 begin exec get_class @return,@return output--这里为什么要用@return,你要最后得到这个值,必须把它传进去...
在浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径，那么该文件会直接显示在浏览器里。而在很多时候我们希望能直接弹出下载提示框让用户下载，我们该怎么办呢？这里有两种方法： 1、设置你的服务器的iis，给doc等后缀名做映射 2、在向客户端发送时设置其contenttype 下面详细说明方法2 <% Response.Buffer = true Response.Clear dim url Dim fso,fl,flsize dim Dname Dim objStream,ContentType,flName,isre,url1 '***...
经常听说的ASP上传漏洞，即是将一些木马文件修改后缀名（修改为图像文件后缀），进行上传。 针对此情况使用下列函数进行辨别： 代码如下:<% '****************************************************************** 'CheckFileType 函数用来检查文件是否为图片文件 '参数filename是本地文件的路径 '如果是文件jpeg,gif,bmp,png图片中的一种，函数返回true，否则返回false '*******************************************************...
<% @language="jscript"%> <% //使用FSO生成 var fso=Server.CreateObject("scripting.filesystemobject") fso.CreateTextFile(Server.Mappath("./")+"/test1.xml"); // 创建文件。 f = fso.GetFile(Server.Mappath("./")+"/test1.xml"); ts = f.OpenAsTextStream(2,-2); ts.Write( "<root><name>"+escape("中国").replace(/%u(\w{4})/g,function($0,$1){return "&#"+(("0x"+$1)-0).toString(10)+";"})+"</name...
折腾了一阵，总算把ASP和MySQL连接完成了，有感，特写此文与大家一同分享。 查了很多资料，ASP和MySQL连接目前有两种办法：一个是使用组件，比较有名是MySQLX，可惜要99美元。二就是使用MyODBC 来连接，下面我们 就来看看第二种方式。 试验的平台： MySQL 4.0 For RadHat Linux （也可以使用for windows） Windows 2003 standard Edition Windows XP English 一、安装MyODBC 1．访问网站 www.gxlsystem.com 并...
众所周知，FileSystemObject组件的强大功能及破坏性是它屡屡被免费主页 提供商(那些支持ASP)的禁用的原因，我整理了一下，本来只找到两种方法，后来 被某人一刺激，硬是想到第三种不为人所知的方法，呵呵，也不知道是不是这样的。 第一种：用RegSrv32 /u C:\WINDOWS\SYSTEM\scrrun.dll(win98路径)来注销该组 件。此方法过于狠毒，属于同归于尽的方法，大家都没得用，是下招 第二种：修改Progid的值，在ASP里调用组件的方式通常...
FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题，至少我是这么认为的，还要别外做一个模板，麻烦！，我今天看见有一个方法可以解决这个问题 如一个正常的index.asp页面，并且用ASP代码调出数据库中的内容，另建一个makehtml.asp的页面，加入一个textarea域，假设为name="body"，将index.asp在textarea里调出来，如： <textarea name="body"><!--#include file="index.asp"--></textarea>，将这个textarea包含在表单...
第一采用防刷新机制,譬如浏览刷新时间间隔3秒,但采集时如果采用间隔3秒再采集,那有没有办法,但我们可以使用随机变量来让它采集不成功! 浏览刷新时间间隔<%=(int(rnd()*5)+1)%>秒 间隔时间不确定,可以让它采集失败 你要可以在文章间隔中使用 <font color="#ffffff"><%=(int(rnd()*10000)+1)%>ivucc.com 版权所有</font> 随机的变量是无法替换的,这招也能让别人复制文章都不能轻松完成. <%=(int(rnd()*40)+1)%> 40是让它限定范围,...