asp实现google Url编码转换函数

Function toUTF8(szInput)
    Dim wch, uch, szRet
    Dim x
    Dim nAsc, nAsc2, nAsc3
    '如果输入参数为空，则退出函数
    If szInput = "" Then
      toUTF8 = szInput
      Exit Function
    End If
    '开始转换
    For x = 1 To Len(szInput)
      '利用mid函数分拆GB编码文字
      wch = Mid(szInput, x, 1)
      '利用ascW函数返回每一个GB编码文字的Unicode字符代码
      '注：asc函数返回的是ANSI 字符代码，注意区别
      nAsc = AscW(wch)
      If nAsc < 0 Then nAsc = nAsc + 65536
   
      If (nAsc And &HFF80) = 0 Then
          szRet = szRet & wch
      Else
          If (nAsc And &HF000) = 0 Then
            uch = "%" & Hex(((nAsc \ 2 ^ 6)) or &HC0) & Hex(nAsc And &H3F or &H80)
            szRet = szRet & uch
          Else
            'GB编码文字的Unicode字符代码在0800 - FFFF之间采用三字节模版
            uch = "%" & Hex((nAsc \ 2 ^ 12) or &HE0) & "%" & _
                    Hex((nAsc \ 2 ^ 6) And &H3F or &H80) & "%" & _
                    Hex(nAsc And &H3F or &H80)
            szRet = szRet & uch
          End If
      End If
    Next
       
    toUTF8 = szRet
  End Function

Tags: asp google url编码

Function RemoveHTML(Textstr)
    Dim sStr, regEx
    sStr = Textstr
    Set regEx = New RegExp
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Multiline = True
    regEx.Pattern = "<script[\s\S]*?</script>"
    sStr = regEx.Replace(sStr, "")
    regEx.Pattern = "<style[\s\S]*?</style>"
    sStr = regEx.Replace(sStr, "")
    regEx.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"
    sStr = regEx.Replace(sStr, "")
    regEx.Pattern = "<(.[^>]*)>"
    sStr = regEx.Replace(sStr, "")
    Set regEx = Nothing
    RemoveHTML = sStr
End Function

好不容易找到的比较好用的正则过滤代码,大家支持一下!!!

Tags: asp

winrar目前的最新简体版本是winrar3.71了，但是目前网络上的注册文件大部分都是3.7的，所以不能使用，放上来方便需要的人吧，把压缩包解压后直接放在winrar的安装文件夹里，重新打开winrar就是已注册的了，注意了，这个是winrar3.71的，放在其他版本（比如winrar3.7或者以后的winrar3.72、winrar3.8）都不行，对清楚版本不要乱喊，建议在霏凡下载站下载winrar。点击下载此文件

查看更多...

Tags: winrar

虽说在CSS参考手册中注明了cursor兼容性：IE4.0+ NS6.0+　继承性：有。但还是有些属性值在FF环境中不支持.

FF及IE6＋
支持的鼠标样式有

all-scroll	:	IE6.0	有上下左右四个箭头，中间有一个圆点的光标。用于标示页面可以向上下左右任何方向滚动。
col-resize	:	IE6.0	有左右两个箭头，中间由竖线分隔开的光标。用于标示项目或标题栏可以被水平改变尺寸。
crosshair	:		简单的十字线光标。
move	:		十字箭头光标。用于标示对象可被移动。
help	:		带有问号标记的箭头。用于标示有帮助信息存在。
no-drop	:	IE6.0	带有一个被斜线贯穿的圆圈的手形光标。用于标示被拖起的对象不允许在光标的当前位置被放下。
not-allowed	:	IE6.0	禁止标记(一个被斜线贯穿的圆圈)光标。用于标示请求的操作不允许被执行。
pointer	:	IE6.0	和 hand 一样。竖起一只手指的手形光标。就像通常用户将光标移到超链接上时那样。
progress	:	IE6.0	带有沙漏标记的箭头光标。用于标示一个进程正在后台运行。
row-resize	:	IE6.0	有上下两个箭头，中间由横线分隔开的光标。用于标示项目或标题栏可以被垂直改变尺寸。
text	:		用于标示可编辑的水平文本的光标。通常是大写字母 I 的形状。
vertical-text	:	IE6.0	用于标示可编辑的垂直文本的光标。通常是大写字母 I 旋转90度的形状。
wait	:		用于标示程序忙用户需要等待的光标。通常是沙漏或手表的形状。
url ( url )	:	IE6.0	用户自定义光标。使用绝对或相对 url 地址指定光标文件(后缀为 .cur 或者 .ani )。

今天帮别人做个小东西，发现我的ie7不支持java applet动画效果了，显示don't support java~

在微软的网站找到解决办法，希望能给遇到相同问题的人一点帮助！

点这里下载Java For IE

以下是微软的原文：
Enable Java in Internet Explorer

查看更多...

Tags: ie

'过滤掉HTML标记，同时截取相应的字符数
Function cutStr(str,strlen)  
 Dim re  
 Set re = new RegExp  
 re.IgnoreCase = True  
 re.Global = True  
 re.Pattern = "<(.[^>]*)>"  
 str = re.Replace(str,"")  
 set re = Nothing
 str=Replace(str,chr(10),"")
 str=Replace(str,chr(13),"")
 str=Replace(str,"　","")
 str=Replace(str," ","")
 str=Replace(str,"&nbsp;","")
 Dim l,t,c,i  
 l = Len(str)  
 t = 0  
 For i = 1 to l  
  c = Abs(Asc(Mid(str,i,1)))  
  If c > 255 Then  
   t = t + 2  
  Else  
   t = t + 1  
  End If  
  If t >= strlen Then  
   cutStr = left(str,i) & "..."  
   Exit For  
  Else  
   cutStr = str  
  End If  
 Next
End Function

 function nohtml(str)
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True
    re.Pattern="(\<.[^\<]*\>)"
    str=re.replace(str," ")
    re.Pattern="(\<\/[^\<]*\>)"
    str=re.replace(str," ")
    nohtml=str
    set re=nothing
end function

 '清梦的过滤HTML标记
Function RemoveHTML(strHTML)
 Dim objRegExp, Match, Matches
 Set objRegExp = New Regexp
 objRegExp.IgnoreCase = True
 objRegExp.Global = True
 objRegExp.Pattern = "<.+?>"     '取闭合的<>
 objRegExp.Pattern = "<img[\s\S]+>"    '过滤图片
 Set Matches = objRegExp.Execute(strHTML)  '进行匹配
 For Each Match in Matches      '遍历匹配集合，并替换掉匹配的项目
  strHtml=Replace(strHTML,Match.Value,"")
 Next
 RemoveHTML=strHTML
 Set objRegExp = Nothing
End Function

 '过滤所有HTML标记
Function DelHTML(strToFilter)
 Dim strTemp
 strTemp = strToFilter
 While Instr(1,strTemp,"<") AND Instr(1, strTemp, ">")
  strTemp = Left(strTemp, Instr(1, strTemp, "<")-1) & Right(strTemp, Len(strTemp)-Instr(1,strTemp, ">"))
 WEnd
 DelHTML = strTemp
End Function

查看更多...

Tags: asp

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

查看更多...

Tags: 正则表达式

在javascript中得到当前窗口的高和宽
<body><SCRIPT LANGUAGE="JavaScript">
var  s = "";
s += "\r\n网页可见区域宽："+ document.body.clientWidth;
s += "\r\n网页可见区域高："+ document.body.clientHeight;
s += "\r\n网页可见区域宽："+ document.body.offsetWidth  +" (包括边线和滚动条的宽)";
s += "\r\n网页可见区域高："+ document.body.offsetHeight +" (包括边线的宽)";
s += "\r\n网页正文全文宽："+ document.body.scrollWidth;
s += "\r\n网页正文全文高："+ document.body.scrollHeight;
s += "\r\n网页被卷去的高："+ document.body.scrollTop;
s += "\r\n网页被卷去的左："+ document.body.scrollLeft;
s += "\r\n网页正文部分上："+ window.screenTop;
s += "\r\n网页正文部分左："+ window.screenLeft;
s += "\r\n屏幕分辨率的高："+ window.screen.height;
s += "\r\n屏幕分辨率的宽："+ window.screen.width;
s += "\r\n屏幕可用工作区高度："+ window.screen.availHeight;
s += "\r\n屏幕可用工作区宽度："+ window.screen.availWidth;
s += "\r\n你的屏幕设置是 "+ window.screen.colorDepth +" 位彩色";
s += "\r\n你的屏幕设置 "+ window.screen.deviceXDPI +" 像素/英寸";
alert(s);
</SCRIPT>

Tags: javascript

ASP中把中文和一些符号转换为URL编码直接有一个函数直接转，但是却没有反编码的函数，这样很多人都比较麻烦。在网站找了很长时间才找到了以下的一个函数，效果不错，贴上来提供有需要的朋友分享。

Function URLDecode(enStr)
  dim deStr,strSpecial
  dim c,i,v
    deStr=""
    strSpecial="!""#$%&'()*+,.-_/:;<=>?@[\]^`{|}~%"
    for i=1 to len(enStr)
      c=Mid(enStr,i,1)
      if c="%" then
        v=eval("&h"+Mid(enStr,i+1,2))
        if inStr(strSpecial,chr(v))>0 then
          deStr=deStr&chr(v)
          i=i+2
        else
          v=eval("&h"+ Mid(enStr,i+1,2) + Mid(enStr,i+4,2))
          deStr=deStr & chr(v)
          i=i+5
        end if
      else
        if c="+" then
          deStr=deStr&" "
        else
          deStr=deStr&c
        end if
      end if
    next
    URLDecode=deStr
End function

Tags: asp

Private Sub Command1_Click()
Text2.Text = URLEncode(Text1.Text)
End Sub


Public Function URLEncode(ByRef strURL As String) As String
Dim I As Long
Dim tempStr As String
For I = 1 To Len(strURL)
If Asc(Mid(strURL, I, 1)) < 0 Then
tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2)
tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr
URLEncode = URLEncode & tempStr
ElseIf (Asc(Mid(strURL, I, 1)) >= 65 And Asc(Mid(strURL, I, 1)) <= 90) or (Asc(Mid(strURL, I, 1)) >= 97 And Asc(Mid(strURL, I, 1)) <= 122) Then
URLEncode = URLEncode & Mid(strURL, I, 1)
Else
URLEncode = URLEncode & "%" & Hex(Asc(Mid(strURL, I, 1)))
End If
Next
End Function

Public Function URLDecode(ByRef strURL As String) As String
Dim I As Long

If InStr(strURL, "%") = 0 Then URLDecode = strURL: Exit Function

For I = 1 To Len(strURL)
If Mid(strURL, I, 1) = "%" Then
If Val("&H" & Mid(strURL, I + 1, 2)) > 127 Then
URLDecode = URLDecode & Chr(Val("&H" & Mid(strURL, I + 1, 2) & Mid(strURL, I + 4, 2)))
I = I + 5
Else
URLDecode = URLDecode & Chr(Val("&H" & Mid(strURL, I + 1, 2)))
I = I + 2
End If
Else
URLDecode = URLDecode & Mid(strURL, I, 1)
End If
Next
End Function

Private Sub Command2_Click()
Text3.Text = URLDecode(Text2.Text)
End Sub

Private Sub Form_Load()
Text1.Text = "微迈互联"
End Sub  

Tags: vb

研究好多天了，也试过好多办法了，总结出目前发现最好的方法：
先说一下基本的东西：
<%@ codepage=65001%>UTF-8
<%@ codepage=936%>简体中文
<%@ codepage=950%>繁体中文
<%@ codepage=437 %>美国/加拿大英语
<%@ codepage=932 %>日文
<%@ codepage=949 %>韩文
<%@ codepage=866 %>俄文

codepage指定了IIS按什么编码读取传递过来的串串（表单提交，地址栏传递等）。

出乱码的原因也就是网站要整合的时候模块编码不一样引起的。
就像我的博客一样，整合的时候都会出这个问题，因为BLOG是Utf-8的，
近来很多网友都在为这个问题咨询，我尝试了很多种方法。
最方便的方法如下：
不要转换任何模块网页的编码该utf-8的还是utf-8，该Gb22312的还是Gb2312
在Utf-8模块的包文件（如conn.asp，但是要注意conn.asp必须是在第一行调用）最前面加上
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
在GB2312模块的包文件最前面加上
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
其他编码的类推。

Tags: asp

LastVisit = Request.Cookies("LastVisitCookie")
Response.Cookies("LastVisitCookie") = FormatDateTime(now)
minsecond=datediff("s",LastVisit,now)
if minsecond<=3 then
'Response.Write("<br>你上一次访问本页在" & LastVisit)
'Response.Write("<br>时间相差：" & minsecond)
response.Write("防刷新机制已启用，5秒后将自动跳转到您要访问的内容！<meta http-equiv=""refresh"" content=""5"" />")
response.End()
end if
转载请注明来源:https://blog.guanjianci.net

查看更多...

Tags: asp