网络Online

防止数据被采集的最终解决方法尽管互联网上很多人提出种种防止信息被采集的方案，但是结果都是不尽人意。目前互联网提供的方案有：1，基于Js控制的，如：function setCookie(name, value, expires, path, domain, secure) {         var curCookie = name + "=" + escape(value) +  

用法:  new AJAX().Request(url,cmd,async,method,postString,title)  参数:  url: 请求页面URL（必填）  cmd: 返回值处理函数（必填）  async: 是否异步 ,(ture|false), 默认true  method: 请求方式,(post|get), 默认get  postString: 请求方式为post时,请求内

有时候想为我们的网页提供多语言支持，如果一种语言用一张网页来做实在太麻烦了，幸好Google提供了语言工具功能，下面介绍如何利用它来实现网页多种语言之间的转换。 　　lan.htm＜form＞＜select name="lan"＞＜option value="en|de"＞英语 翻译成 德语＜/option＞＜option value="en|es"＞英语 翻译成 西班牙语＜/opti

代码:  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">http://www.w3.org/1999/xhtml">this is testvar XmlHttp;function createXmlHttpRequest() {    if (window.ActiveXObject) {        XmlHttp =

AJAX原意本是让人利用异步获取Xml内容，以实现无刷新的网页效果asp.Net AJAX已将底层内容封装实现起来远比自写Xmlhttp来的方便，至少浏览器兼容方面要强得很多下面以一个www.asp.Net的示例说明一下利用microsoft AJAX library来简单异步获取Xml文档的方法// 返回Xml的Web 请求function OnSucceededXml(executor

TempSource,TempEnd必须用绝对路径 rootPath=Request.ServerVariables("APPL_PHYSICAL_PATH")  ‘获取当前程序绝对路径 Function CopyFiles(TempSource,TempEnd)     Dim FSO     Set FSO = Server.CreateObject("Scripting.FileSyst

Function RemoveHTML( strText )Dim RegExSet RegEx = New RegExpRegEx.Pattern = "]*>"RegEx.Global = TrueRemoveHTML = RegEx.Replace(strText, "")End FunctionAA="http://www.xrss.cn"Response.Writ

建立文件夹的函数1：Sub CreateFolderOne(strFolder)    首选判断要建立的文件夹是否已经存在    Dim strTestFolder, objFSO    strTestFolder = Server.Mappath(strFolder)    Set objFSO = CreateObject("Scripting.FileSystemObject")   

　用Javascript获取指定页面元素的位置是一个非常常见的需求，本文介绍的函数能够准确返回一个元素相对于整个文档左上角的坐标，即元素的 top 、left 的位置，而且能够兼容浏览器，相信对新手非常有用。function getElementPos(elementId) { var ua = navigator.userAgent.toLowerCase(); var isOpera =

Access中：DateDiff(d,Time1,Time2)Sql中：DateDiff(d,Time1,Time2)下面是我自己的sql语句判断数据库类型IF IsSqlDataBase = 1 ThenConn.execute("Delete from lyt_log_info where datediff(day,logintime,getdate())>=3 ")ElseConn.e

　现在基于WEB页的HTML的编辑器在新闻系统，文章系统中用得越来越广，一个网页一粘就可以保持原来的样式，同时图片也可以在这个页中保持。但是在使用过程中，如果所粘贴页中的图片被删除，就会在自己的页面上留下一个大大的“X”，影响美观。 以前只好把这个图片保存下来，再重新上传到服务器上，这样实在麻烦。能不能让服务器自动去下载图片保存在服务器并且替换页面上的链接？答案是肯定的。要实现这个功能需要经过三个

function getHTTPimg(url)on error resume nextdim httpset http=server.createobject("MSXML2.XMLHTTP")Http.open "GET",url,falseHttp.send()if Http.readystategetHTTPimg=Http.responseBodyset http=nothing

需采集内容如下： 1.电影地区：中国；演员：刘德华；日期：2003：网络大本营http://www.xrss.cn> 2.电影地区：台湾；日期：2004 3.演员：张学友；日期：2003/4/2 ...... 我想将到中间的内容采集成一数组里。 如何写正则表达式？ 这里注明一下：我是想将中间包括地区，演员和日期，这些内容为一个值。  Dim str str="1.电影地区：中国；演员：刘德

function getHTTPPage(url)  on error resume next  dim http  set http=Server.createobject("Microsoft.XmlHTTP")  Http.open "GET",url,false  Http.send()  if Http.readystate  exit function  end if  getHT

  〈%  dim str,host,url,keyword,full  str="http://";  host = Request.ServerVariables("HTTP_HOST")  url = Request.ServerVariables("PATH_INFO") ’或url  keyword = Request.ServerVariables("QUERY_STRING") 

此ASP函数实现截取自定义长度的字符串,并可定义超出部分显示样式,支持中英文字符串自动判别 以下为代码部分:定义字符串判别函数function strlen(str)dim p_lenp_len=0strlen=0if trim(str)p_len=len(trim(str))for xx=1 to p_lenif asc(mid(str,xx,1))strlen=int(strlen) +

### 提取字符，并以数组方式返回Function RegExpTest(patrn, strng)    Dim regEx, Match, Matches 建立变量。    Dim i, RetStr()    i = 0    Set regEx = New RegExp 建立正则表达式。    regEx.Pattern = patrn 设置模式。    regEx.Ig

正则表达式用于字符串处理，表单验证等场合，实用高效，但用到时总是不太把握，以致往往要上网查一番。我将一些常用的表达式收藏在这里，作备忘之用。本贴随时会更新。 匹配中文字符的正则表达式： [/u4e00-/u9fa5] 匹配双字节字符(包括汉字在内)：[^/x00-/xff] 应用：计算字符串的长度（一个双字节字符长度计2，ASCII字符计1） String.prototype.len=functi

提供你一个超级好用的函数，使用方法 response.write FixString(需要截取的字符串,字符串字节长度汉字算2个,如果被截取添加省略点的个数) Function FixString(ByVal strWord, ByVal intByteLength, ByVal intPadDotAmount)         If strWord > "" Then            

Function GetKey(Content,Start,Last)filearray=split(Content,Start)filearray2=split(filearray(1),Last)GetKey=filearray2(0)End Function bb="网络大本营(http://www.xrss.cn) 中国最大编程网站！ "Response.Write Get

正则表达式语法一个正则表达式就是由普通字符（例如字符 a 到 z）以及特殊字符（称为元字符）组成的文字模式。该模式描述在查找文字主体时待匹配的一个或多个字符串。正则表达式作为一个模板，将某个字符模式与所搜索的字符串进行匹配。这里有一些可能会遇到的正则表达式示例： JScript VBScript

str1="hello,spell,i,love,you"aa= split(str1,",")这里已经生成了一个数组aa,aa的内容是从str1中以‘，’为分格出来的！  for i=0 to Ubound(aa)开始去的各个ID，i 是下标    response.write(aa(i)&" ")  next%>该文章转载自网络大本营：http://www.xrss.cn/Dev/

删除文件夹的函数：Sub DeleteFolder(strFolder)    首选判断要建立的文件夹是否已经存在    Dim strTestFolder, objFSO    strTestFolder = Server.Mappath(strFolder)    Set objFSO = CreateObject("Scripting.FileSystemObject")    检查

删除文件函数：Sub DeleteFile(FileName)    首选判断要建立的文件夹是否已经存在    Dim strTestFile, objFSO    strTestFile = Server.Mappath(FileName)    Set objFSO = CreateObject("Scripting.FileSystemObject")    检查文件是否存在   

-------------------复制文件－－－－－－－－Function CopyFiles(TempSource,TempEnd)     Dim FSO     Set FSO = Server.CreateObject("Scripting.FileSystemObject") IF FSO.FileExists(TempEnd) then        Response.Wri

Sub PreventRefresh()    Dim RefreshTime,isRefresh    RefreshTime = 10   防止刷新时间,单位（秒）    isRefresh = 1    是否使用防刷新功能，0=否，1=是    If isRefresh = 1 Then        If (Not IsEmpty(Session("RefreshTime")))

如果喜欢 QQ空间开场flash 的朋友，可以添加使用以下这组代码，加上后的效果是，打开你的博客先出现是QQ空间FLASH的开场白，然后点击进入才能进入你博客。 代码如下： 代码说明：width=1204      1204是flash的宽 （也就是flash左右大小）height=900      900是flash的高。如果想全屏幕显示，建议代码中的数值不必修改。 使用说明：在

（注：你要替换的内容，最好在文件中是唯一的．否则也许会把你不想替换的地方也替换掉了哦@_@） dim picWidth,picHeight picWidth=600 picHeight=400 on error resume next function get_extend_name(file_name,action_type)取得文件的扩展名或文件名  n1=instrrev(file

Rss特殊字符过滤    Public Function GetTextFromHtml(strHtml)        strHtml=Replace(strHtml," ","")        strHtml=Replace(strHtml,"­","")        strHtml=Replace(strHtml,"&","")        Dim strPatrn

Function RemoveHTML( strText )Dim RegExSet RegEx = New RegExpRegEx.Pattern = "]*>"RegEx.Global = TrueRemoveHTML = RegEx.Replace(strText, "")End Function 

------------------Start获取客户端IP地址函数----------Function GetIp() dim realip,proxy realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") proxy = Request.ServerVariables("REMOTE_ADDR") if realip = "" th

建立文件夹的函数2：Sub CreateFolder(strFolder,ifok)    首选判断要建立的文件夹是否已经存在    Dim strTestFolder, objFSO   IF Ifok   strFolder="../"&strFolder   End IF    strTestFolder = Server.Mappath(strFolder)    Set objFSO

// 随机数个数// 随机数下限  /// 随机数上限public int[] GetRandomArray(int Number,int minNum,int maxNum)  {   int j;   int[] b=new int[Number];   Random r=new Random();   for(j=0;j   {    int i=r.Next(minNum,maxNum

function getHTTPimg(url)on error resume nextdim httpset http=server.createobject("MSXML2.XMLHTTP")Http.open "GET",url,falseHttp.send()if Http.readystategetHTTPimg=Http.responseBodyset http=nothingif

Dim AppealNum,AppealCountAppealNum=10                                                 同一IP60秒内请求限制10次AppealCount=Request.Cookies("AppealCount") If AppealCount="" Thenresponse.Cookies("AppealCount")=1A

Sub StopInjection(Values)    Dim regEx    Set regEx = New RegExp    regEx.IgnoreCase = True    regEx.Global = True    regEx.Pattern = "|;|#|([/s/b+()]+(select|update|insert|delete|declare|@|exec|db

Sub OpenConn()    On Error Resume Next    If SystemDatabaseType = "SQL" Then        ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " &

思路就是断开数据库的链接,然后还原.网上多数是用储存过程杀死链接进程.那样比较烦.而且会导致SQLserver出错  rs.Close  conn.Close  set rs = nothing  set conn = nothing 断开数据库链接  Set conn = Server.CreateObject("ADODB.Connection")  ConnStr= "PROVID

sub sendmail( fromWho, toWho, Subject, Body )     dim mymail setmymail = Server.CreateObject("CDONTS.Newmail") mymail.From = fromWho mymail.To = toWho mymail.Subject = Subject mymail.Body = Body mymai

---------------------------------防注入操作------------------------------------------------------------ASP通用防注入代码 您可以把该代码COPY到头文件中.也可以单独作为一个文件存在,每次调用使用 作者:y3gu - 2005-7-29