利用ADO STREAM实现BASE64编码和解码
[ 2015-11-14 13:13:47 | 作者: admin ]
'* ************************************** *
'* 模块名称：modBase64.bas
'* 模块功能：BASE64编码和解码函数
'* 作者：lyserver
'* ************************************** *
Option Explicit
'- ------------------------------------------- -
' 函数说明：BASE64编码
'- ------------------------------------------- -
Public Function Base64Encode(varIn As Variant) As String
Dim adoStream As Object
Dim xmlDoc As Object
...'* 模块名称：modBase64.bas
'* 模块功能：BASE64编码和解码函数
'* 作者：lyserver
'* ************************************** *
Option Explicit
'- ------------------------------------------- -
' 函数说明：BASE64编码
'- ------------------------------------------- -
Public Function Base64Encode(varIn As Variant) As String
Dim adoStream As Object
Dim xmlDoc As Object
阅读全文…
利用ADO STREAM实现GB2312和UTF8编码转换
[ 2015-11-14 13:12:51 | 作者: admin ]
'* ************************************** *
'* 模块名称：modCharset.bas
'* 模块功能：GB2312与UTF8相互转换函数
'* 作者：lyserver
'* ************************************** *
Option Explicit
'- ------------------------------------------- -
' 函数说明：GB2312转换为UTF8
'- ------------------------------------------- -
Public Function GB2312ToUTF8(strIn As String, Optional ByVal ReturnValueType As VbVarType = vbString) As Variant
...'* 模块名称：modCharset.bas
'* 模块功能：GB2312与UTF8相互转换函数
'* 作者：lyserver
'* ************************************** *
Option Explicit
'- ------------------------------------------- -
' 函数说明：GB2312转换为UTF8
'- ------------------------------------------- -
Public Function GB2312ToUTF8(strIn As String, Optional ByVal ReturnValueType As VbVarType = vbString) As Variant
阅读全文…
[locvps]mount: unknown filesystem type 'LVM2_member'解决方案
[ 2015-11-10 11:21:26 | 作者: admin ]
From: http://hi.baidu.com/williwill/item/7a36fdd92340b2ee55347f13
系统启动到request_module: runaway loop modprobe binfmt-464c挂起
利用U盘系统，挂载硬盘出现：mount: unknown filesystem type 'LVM2_member'
解决办法：
需要安装 lvm2: yum install lvm2
然后按一下步骤：
1、查看物理卷：pvs
PV VG Fmt Attr PSize PFree
/dev/sda2 VolGroup00 lvm2 a- 279.22G 32.00M
2、查看卷组：vgs
阅读全文…
系统启动到request_module: runaway loop modprobe binfmt-464c挂起
利用U盘系统，挂载硬盘出现：mount: unknown filesystem type 'LVM2_member'
解决办法：
需要安装 lvm2: yum install lvm2
然后按一下步骤：
1、查看物理卷：pvs
PV VG Fmt Attr PSize PFree
/dev/sda2 VolGroup00 lvm2 a- 279.22G 32.00M
2、查看卷组：vgs
VG #PV #LV #SN Attr VSize VFree
...阅读全文…
asp的文件处理，查看文件大小类型创建时间
[ 2015-11-09 15:51:18 | 作者: admin ]
获取文件SIZE
'==================================================
'过程名：showsize
'获取文件大小
' filesize = GetFileSize("123.rar")
'==================================================
Function GetFileSize(filename)
FPath=server.mappath(filename) '本目录下
set fso=server.CreateObject("scripting._fso")
If fso.fileExists(FPath) Then
Set f = fso.GetFile(FPath)...
阅读全文…
'==================================================
'过程名：showsize
'获取文件大小
' filesize = GetFileSize("123.rar")
'==================================================
Function GetFileSize(filename)
FPath=server.mappath(filename) '本目录下
set fso=server.CreateObject("scripting._fso")
If fso.fileExists(FPath) Then
Set f = fso.GetFile(FPath)
阅读全文…
百度网盘的限速，直接用手机版
[ 2015-10-27 19:23:37 | 作者: admin ]
先www.baidu.com 登陆百度账号
然后http://pan.baidu.com/wap登陆手机版网盘就可以下载1M的速度了
然后http://pan.baidu.com/wap登陆手机版网盘就可以下载1M的速度了
获取到base64数据，然后转换成图片
[ 2015-09-04 15:31:30 | 作者: admin ]
获取到base64数据，转换成图片
阅读全文…
<%
Subfolder=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now()) ''生成当天的子文件夹的名称
picture=Trim(request.Form("urls"))
picture=replace(picture,"data:image/png;base64,","")
path=Subfolder&".jpg"
xmlstr="<data>"&picture&"</data>"
Dim xml : Set xml=Server.CreateObject("MSXML2.DOMDocument")
Dim stm : Set stm=Server.CreateObject("ADODB.Stream")
xml.resolveExternals=False
...Subfolder=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now()) ''生成当天的子文件夹的名称
picture=Trim(request.Form("urls"))
picture=replace(picture,"data:image/png;base64,","")
path=Subfolder&".jpg"
xmlstr="<data>"&picture&"</data>"
Dim xml : Set xml=Server.CreateObject("MSXML2.DOMDocument")
Dim stm : Set stm=Server.CreateObject("ADODB.Stream")
xml.resolveExternals=False
阅读全文…
asp传递给js,javascript中文乱码的问题,gbk乱码解决办法
[ 2015-08-31 16:51:27 | 作者: admin ]
因为js获取的都是utf-8编码，当asp传递gbk中文给js的时候，就会出现乱码。
javascript中使用 escape()和unescape()，分别是编码和解码字符串。
asp中使用相应的自定义函数来解决中文编码加密escape和解密unescape：
阅读全文…
javascript中使用 escape()和unescape()，分别是编码和解码字符串。
asp中使用相应的自定义函数来解决中文编码加密escape和解密unescape：
<%
'加密
Function vbsEscape(str)
dim i,s,c,a
s=""
For i=1 to Len(str)
c=Mid(str,i,1)
a=ASCW(c)
If (a>=48 and a<=57) or (a>=65 and a<=90) or (a>=97 and a<=122) Then
s = s & c
ElseIf InStr("@*_+-./",c)>0 Then
...'加密
Function vbsEscape(str)
dim i,s,c,a
s=""
For i=1 to Len(str)
c=Mid(str,i,1)
a=ASCW(c)
If (a>=48 and a<=57) or (a>=65 and a<=90) or (a>=97 and a<=122) Then
s = s & c
ElseIf InStr("@*_+-./",c)>0 Then
阅读全文…
iphone手机日期变1970年1月1日，也无法访问app store
[ 2015-08-25 21:32:47 | 作者: admin ]
手机还有电却自动关机了，power键开机不了，加home键也启动不了，只有连接电源才出现白苹果，然后等很久才开机。
日期就变成了1970年1月1日8点。。。这个到底是什么问题。。今天才出现这个问题的。
手机是港行4.3.3已越狱。
前面也发了张贴，但是貌似没有答案。在这里发多一次，这次还没能解决的话就不发了，麻烦各位了。。谢谢！
我的拆开后。也是1970。日期自己改的。后来就好了
我的和楼主你的一摸一样，我也发了几次贴，没发解决，楼主如果有办法一定要告诉我，我问了一些维修的人，说是IC问题！！
哈哈，这个问题跟我一个月前一模一样啊。我是原生4.3.5的，手机放在那里 突然之间没反映，强制开启也没用。 后来连接ITUNES，在手机上按了 全部恢复。就一直没出现过。
我也是这问题，真是愁死了，经过一年的摸索是硬件问题，充电芯片问题，要求，苹果公司召回。
电池坏了，确定。昨天同样的情况换了电池解决了。
日期就变成了1970年1月1日8点。。。这个到底是什么问题。。今天才出现这个问题的。
手机是港行4.3.3已越狱。
前面也发了张贴，但是貌似没有答案。在这里发多一次，这次还没能解决的话就不发了，麻烦各位了。。谢谢！
我的拆开后。也是1970。日期自己改的。后来就好了
我的和楼主你的一摸一样，我也发了几次贴，没发解决，楼主如果有办法一定要告诉我，我问了一些维修的人，说是IC问题！！
哈哈，这个问题跟我一个月前一模一样啊。我是原生4.3.5的，手机放在那里 突然之间没反映，强制开启也没用。 后来连接ITUNES，在手机上按了 全部恢复。就一直没出现过。
我也是这问题，真是愁死了，经过一年的摸索是硬件问题，充电芯片问题，要求，苹果公司召回。
电池坏了，确定。昨天同样的情况换了电池解决了。
