vb inet控件无法提交回车符

Question

vb textbox中的换行用  "data=" & Text1.Text  提交存到数据库后换行符丢失所有变量带vbnewline vbcrlf 通过inet控件都无法提交到数据库当中

Answer 1

用的如下方式提交
Inet1.Execute url, "Post", Postdata, "Content-Type: application/x-www-form-urlencoded"

Answer 2

Form提交时也要编码的
Function URLEncoding(vstrIn) 
strReturn = "" 
For i = 1 To Len(vstrIn) 
ThisChr = Mid(vstrIn, i, 1) 
If Abs(Asc(ThisChr)) < &HF Then 
strReturn = strReturn & "%0" & Hex(Asc(ThisChr)) 
ElseIf Abs(Asc(ThisChr)) < &HFF Then 
strReturn = strReturn & "%" & Hex(Asc(ThisChr)) 
Else 
innerCode = Asc(ThisChr) 
If innerCode < 0 Then 
innerCode = innerCode + &H10000 
End IF  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 
http://feiyun0112.cnblogs.com/