教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

clow = MidB(binstr,i,1)
'判断是否中文的字符
If AscB(clow) > 127 Then
'AscW会把二进制的中文双字节字符高位和低位反转，所以要先把中文的高低位反转
ccc = ccc & Chr(AscW(MidB(binstr,i + 1,1) & clow))
skipflag = 1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag = 0
End If
Next
End If
bin2str = ccc
End Function

'把普通字符串转成二进制字符串函数
Function str2bin(varstr)
str2bin = ""
For i = 1 To Len(varstr)
varchar = mid(varstr,i,1)
varasc = Asc(varchar)
' asc对中文字符求出来的值可能为负数，
' 加上65536就可求出它的无符号数值
' -1在机器内是用补码表示的0xffff,
' 其无符号值为65535,65535=-1+65536
' 其他负数依次类推。
If varasc < 0 Then
varasc = varasc + 65535
End If
'对中文的处理：把双字节低位和高位分开
If varasc > 255 Then
varlow = Left(Hex(Asc(varchar)),2)
varhigh = right(Hex(Asc(varchar)),2)
str2bin = str2bin & chrB("&H" & varlow) & chrB("&H" & varhigh)
Else
str2bin = str2bin & chrB(AscB(varchar))
End If
Next
End Function

'取得文件名(去掉Path)
Function GetFileName(FullPath)
If FullPath <> "" Then

来源:upschool.cn
作者:
关键字：
发表日期：2006-10-7

网页显示有限 阅读全文请下载本文完整版WORD文档

上一篇：ASP同一个帐号不能同时登陆的问题（1）   下一篇：新浪博客首页两侧加入浮动挂件效果

1.用纯ASP代码来实现图片上传(1)
2.用纯ASP代码来实现图片上传(2)
3.用纯ASP代码来实现图片上传(3)
4.用纯ASP代码来实现图片上传(4)
5.用纯ASP代码来实现图片上传(5)
6.用纯ASP代码来实现图片上传(6)
7.用纯ASP代码来实现图片上传(7)
8.用纯ASP代码来实现图片上传(8)
9.用纯ASP代码来实现图片上传(9)
10.用纯ASP代码来实现图片上传(10)

共10页 9 7 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 8 :>

2009-1-8 22:12:55

本文的相类似文章