首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

为何用inet1提交东西到access数据库,总乱码啊解决立即结贴!该如何解决

2012-02-09 
为何用inet1提交东西到access数据库,总乱码啊?解决立即结贴!!!Inet1.Execute http://www.xxxxx.com/hd/ad

为何用inet1提交东西到access数据库,总乱码啊?解决立即结贴!!!
Inet1.Execute "http://www.xxxxx.com/hd/add.asp?title=" & Text1 & "&pd=" & Text2 & ""

我用这样提交到数据库,中文总是变为问号,英文和数字正常。。。

求解决方法!!!具体点,谢谢!解决立即结贴!!!

[解决办法]
估计和网站用的字符编码不一样,将字符串的编码格式转为和网站的一致,或者将字符串加密为英文的密文提交,入库时转换回来
[解决办法]
把中文或有空格的参数编码一下,函数如下:

VB code
'┏〓〓〓〓〓〓〓〓〓 URLEncode,start 〓〓〓〓〓〓〓〓〓┓Function URLEncode(ByVal urlText As String) As String   '[mycode_id:591],edittime:2007-4-22 下午 12:27:39'帮你写函数,帮你写代码,帮你写模块,帮你设计软件联系QQ:1085992075--需要什么函数或功能,可以联系我。   '[详介]:   '可用中文       Dim I As Long       Dim ansi() As Byte       Dim ascii As Integer       Dim encText As String          ansi = StrConv(urlText, vbFromUnicode)          encText = ""           For I = 0 To UBound(ansi)           ascii = ansi(I)              Select Case ascii           Case 48 To 57, 65 To 90, 97 To 122               encText = encText & Chr(ascii)              Case 32               encText = encText & "+"              Case Else               If ascii < 16 Then                   encText = encText & "%0" & Hex(ascii)               Else                   encText = encText & "%" & Hex(ascii)               End If              End Select       Next I              URLEncode = encTextEnd Function'┗〓〓〓〓〓〓〓〓〓  URLEncode,end  〓〓〓〓〓〓〓〓〓┛ 

热点排行