/// <summary> /// 搜索内容 /// </summary> /// <param name="sender"></param> /// <param name="e"></param> protected void btnSearch_Click(object sender, EventArgs e) {string key = txtSearch.Text.Trim();string action = this.radTitle.Checked ? "byTitle" : "byContent";Response.Redirect("~/NewsSearch.aspx?key=" + Server.UrlEncode(key) + "&action=" + action + ""); } 原文：http://www.cnblogs.com/KTblog/p...
详情看这里 http://hi.baidu.com/lael80/blog/item/6633d7fc89f9f282b801a061.html http://www.gzyd.net/lael/coding.rar 文件编码转换/Screnc加解密/简繁转换 1.0 使用注意： 1、使用前请备份，使用本软件造成的损失自负； 2、进行编码转换前请确认所有文件的源编码一致并选择正确，否则可能出现错误。 3、对ASP代码进行加密或解密或简繁转换前须确认文件的编码为ANSI，否则可能出现乱码， 完成操作后可再转回原编码。 4...
最好的方法： 先说一下基本的东西： <%@ codepage=65001%>UTF-8 <%@ codepage=936%>简体中文 <%@ codepage=950%>繁体中文 <%@ codepage=437 %>美国/加拿大英语 <%@ codepage=932 %>日文 <%@ codepage=949 %>韩文 <%@ codepage=866 %>俄文 codepage指定了IIS按什么编码读取传递过来的串串（表单提交，地址栏传递等）。 出乱码的原因也就是网站要整合的时候模块编码不相同引起的。 就像我的博客相同，整合的时候都会出这个问题，因为...
因为要新作系统，因此对于JS脚本又重新研究了一下。在对新的URL编码的时候发现，网页编码的格式对于JS的影响很大，在这里书写一点。 {var B=siteUrl+this.actionUrl+(this.type==="all"?"":this.type)+"&SearchWord="+encodeURIComponent(A).replace(/'/g,"%27");$redirect(B)}} 在制作的时候，发现传出去的数据包的编码全部是UTF-8格式的，而在改正网页编码后也同样没有反映，最后在修改了ENCODE成DECODE方式才解决问题。 js 对文...
前些天我就碰到了用Ajax提交表单, 然后发送邮件的情况. 于是写出了下面的两个函数来解决这两个问题. 第一个函数把HTML中的数据转成HTML实体, 而HTML标签则自动不转, 这样无论到哪里都不会乱码, 可以在发送邮件时选择发送HTML格式的邮件. 第二个函数把JS数据同样是换成转义字符, 同样避开了JS关键词等字符的转换, 不管网页是什么编码它都不会乱码. 废话少说, 看下面的代码. 代码如下:Function htmlentities(str) Dim a,i,char For ...
用ASP开发的时候遇到一个解码问题。虽然在ASP中使用Request获取编码过URL字符串会自动解码，但是Request.BinaryRead(Request.TotalBytes)取得Post数据时却不会解码，所以只能手动进行解码。 ASP解码函数：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(strSpec...
ASP是Active Server Page的缩写，意为“动态服务器页面”。ASP是微软公司开发的代替CGI脚本程序的一种应用，它可以与数据库和其它程序进行交互，是一种简单、方便的编程工具。在这里仅就代码优化进行一些简单讨论。 1、声明VBScript变量 在ASP中，对vbscript提供了强劲的支持，能够无缝集成vbscript的函数、方法，这样给扩展ASP的现有功能提供了很大便利。由于ASP中已经模糊了变量类型的概念，所以，在进行ASP与vbscript交互的过程...
8条Asp编码优化技巧： 1、声明VBScript变量 在ASP中，对vbscript提供了强劲的支持，能够无缝集成vbscript的函数、方法，这样给扩展ASP的现有功能提供了很大便利。由于ASP中已经模糊了变量类型的概念，所以，在进行ASP与vbscript交互的过程中，很多程序员也惯于不声明vbscript的变量，这样加重了服务器的解析负担，进而影响服务器的响应请求速度。 鉴于此，我们可以象在VB中强制用户进行变量声明一样在vbscript中强制用户进行...
将asp函数的参数通过chrw编码加密后，如何解码chrw内容。下面的解码函数，原来很简单，用正则提取内容中的chrw串，然后eval动态执行获取的chrw串得到内容，再执行替换即可。注意事项参考源代码里面的注释，注意将源代码保存为vbs格式的文件后执行，如果是asp文件，需要将createobject修改为server.createobject。 function readfile(fn)读取编码文件的内容set fso=createobject("scripting.filesystemobject")set ts=fso.OpenTextF...
由于动态页是utf8格式的编码，我得到它的html代码后，使用fso保存，生成html是成功了，但是不能访问，因为html的编码有问题，选择gb2312就可以正常访问了。这样不行，因为整站都是utf8格式的编码，打开这个页面，还需要选择编码才可访问，这样太麻烦了，也没有人愿意去访问，所以必须解决utf8格式编码问题。 经过一翻搜索才了发现，fso不能生成utf8格式的文件。所以要换种方法。 www.gxlsystem.com又找了一会，找到一个函数，可代...
1. 支持参数纯汉字 ?a=深山老熊 2. 支持参数gb2312 Urlencode编码： ?a=%C9%EE%C9%BD%C0%CF%D0%DC 3. 支持参数UTF-8 Urlencode编码: ?a=%E6%B7%B1%E5%B1%B1%E8%80%81%E7%86%8A 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit Const YXCMS_CHARSET = "UTF-8" Const YXCMS_CODEPAGE = 65001 Response.CharSet = "UTF-8" Session.CodePage = 65001 测试URL ?n1=深山老熊&n2=%C9%EE%C9%BD%C0%CF%D0%DC&n3=%E...
出现这样的问题是当你浏览UTF-8编码的时候，服务器默认用UTF-8的引擎来输出html，当你用再浏览GB2312的页面时，它还是用UTF-8来输出本应是GB2312编码的页面所以会乱码。 为了这个问题烦了我一个早上，终于的蓝色理想上得到解决。 首先让我们来了解一下Session对象提供了四个属性。 1.CodePage 读/写。整型。 定义用于在浏览器中显示页内容的代码页（Code Page）。代码页是字符集的数字值，不同的语言和场所可能使用不同的代码页。例...
asp解码url 代码如下:<a href="1.asp?action=<%=server.urlencode("你好")%>">asdf</a> 解码函数 [code] <% 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(...
1、'UTF转GB---将UTF8编码文字转换为GB编码文字 代码如下:function UTF2GB(UTFStr) for Dig=1 to len(UTFStr) 如果UTF8编码文字以%开头则进行转换 if mid(UTFStr,Dig,1)="%" then UTF8编码文字大于8则转换为汉字 if len(UTFStr) >= Dig+8 then GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9)) Dig=Dig+8 else GBStr=GBStr & mid(UTFStr,Dig,1) end if else GBStr=GBStr & mid(UTFStr,Dig,1) end if next UTF2GB=GBStr end function...
例如:我们在百度中搜索 脚本之家，则网址后面的参数就是http://www.gxlsystem.com/s?cl=3&wd=%BD%C5%B1%BE%D6%AE%BC%D2如果我们想将%BD%C5%B1%BE%D6%AE%BC%D2还原为中文，使用下面的函数即可。<% response.write urldecode("http://www.gxlsystem.com/s?cl=3&wd=%BD%C5%B1%BE%D6%AE%BC%D2") '================================================ '函数名：URLDecode '作 用：URL解码 '============================================...