<% '****************************** '函数：Userip() '参数：无 '作者：阿里西西 '日期：2007/7/12 '描述：取得客户端IP地址 '示例：<%=Userip()%> '****************************** Function Userip() Dim GetClientIP '如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If GetClientIP = "" or isnull(GetClientIP) or isempty(...
'================================================== '函数名：UrlEncoding '作 用：转换编码 '================================================== Function UrlEncoding(DataStr) Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8 StrReturn = "" For Si = 1 To Len(DataStr) ThisChr = Mid(DataStr,Si,1) If Abs(Asc(ThisChr)) < &HFF Then StrReturn = StrReturn & ThisChr ...
<% '****************************** '函数：HTMLEncode(reString) '参数：reString,待编码转换处理的字符串 '作者：阿里西西 '日期：2007/7/15 '描述：对HTML代码进行转换 '示例：HTMLEncode("<p>欢迎访问<br>阿里西西</p>") '****************************** Function HTMLEncode(reString) Dim Str:Str=reString If Not IsNull(Str) Then Str = UnCheckStr(Str) Str = Replace(Str, "&", "&") Str = Replace(Str, ">", ...
若需要utf-8格式，请自行将下面的GB2312改成utf-8。 ' 二进制转字符串，否则会出现乱码的！ Function sTb(vin) Const adTypeText = 2 Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") With BytesStream .Type = adTypeText .Open .WriteText vin .Position = 0 .Charset = "GB2312" .Position = 2 StringRetur...
研究编码，得知GB2312编码与区位码的关系，尝试之后，得此程序。 搜索，似乎没人写，故发此地。 原创首发： http://bbs.blueidea.com http://mytju.com/classcode/ 任意转载，任意使用。 1.简述 （1）GB2312标准的定义，其实就是区位码。 共94行，94列，行就是区号，列就是位号。 如“啊”字区号为16，位号为01，它的区位码就是1601。 （2）每个字符由区号+位号组成，共占两个字节。 每个字节都是01-94，与通信控制符0-31冲突， 所...
今天搞sxna,遇到了编码转换的难题，搞了一个多小时，历尽千辛万苦，总算总结了如下的汉字转换为各种UTF-8 Unicode Ansi编码的程序．不敢独享，特此奉献给各位编程爱好者！ -------------------------------------------------------------------------------- 符合GOOGLE的UTF编码 汉字 经过encodeURIComponent变成 %E6%B1%89%E5%AD%97 %E6%B1%89%E5%AD%97经过decodeURIComponent变成汉字 用google搜索"汉字": http://www.gxlsy...
[code]<script> function chinesefromutf8url(strutf8) { var bstr = ""; var noffset = 0; // processing point on strutf8 if( strutf8 == "" ) return ""; strutf8 = strutf8.tolowercase(); noffset = strutf8.indexof("%e"); if( noffset == -1 ) ...
代码如下://转换中文为unicode function URLEncoding(vstrIn) dim i dim strReturn,ThisChr,innerCode,Hight8,Low8 strReturn = "" for i = 1 to Len(vstrIn) ThisChr = Mid(vStrIn,i,1) If Abs(Asc(ThisChr)) < &HFF then strReturn = strReturn & ThisChr else innerCode = Asc(ThisChr) If innerCode < 0 then innerCode = inner...
代码如下:'把字符串转换成数据库SQL语句格式 '------------------------------------------------- Function AllStr2Database(str,strType) Dim strTemp:strTemp=str Select Case strType Case "" Case "num" strTemp = Clng(strTemp) Case "string" '无Trim strTemp = Replace(strTemp, "'", "''") Case "str_br" '无Trim,把回车转换为<br>，一般用于多行文本输...
\\\'EXAMPLE AS：把数据库中一个每天24小时在线人数放到一个EXCEL文件中去 \\\'AUTHOR ：钢铁工人 \\\'EMAIL ：hello_hhb@21cn.com \\\'DATE ：2001-3-25 \\\'TEST ：在NT4，SP6，SQL SERVER 7.0，EXCEL2000中测试通过 %>生成EXCEL文件生成在线人口的EXCELif Request("act") = "" then else dim connset conn=server.CreateObject("adodb.connection")conn.Open "test","sa",""\\\'conn.Open Application("connst...