如何解码web页面post/send过来的数据？

shawls 2002-09-30 11:04:19

如何解码web页面的数据？

例如，用post发送信息以后

在浏览器那里有一个postdata的万能变量

可以看到aa=11&bb=22

之类的东西，如何能够分解开来？

请注意：不是说用vb的分隔函数

因为postdata这个变量里面好像是byte似的，不是很清除

谁知道这个东西的编码格式？

如果有和asp里面的那个内置的对象的东西就更好了（Request.querystring and Request.form）

可以使用Request.querystring("codename")得到的格式

如果有知道，请联系shawfile@163.net或者回复

...全文

191 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

lzy5042 2002-10-03

打赏
举报

晕．．．．．．．

Eastunfail 2002-10-02

打赏
举报

接分！

shawls 2002-10-02

打赏
举报

问题已经解决：数据没有错误，出错的是网页的问题，
里面有这样的代码：charset=windows-1252
应该使用charset=gb-2312

ok,放分

shawls 2002-10-02

打赏
举报

我的目的实际上就是post的一个逆向工程

例如：
在以下代码里面
<form method="post" action="F:\My Documents\My Desktop\aa\hyperapp.htm">
<p align="left">Name: <input type="text" name="name" size="30"><br>
E-mail: <input type="text" name="mail" size="30"><br> <input type="text" name="c" size="30"><br>
<input type="submit" value="Submit"></p>
</form>

post的数据，是要经过浏览器进行编码的

形成:name=xx&name=xx的参数量，如果name和mail的value都是ascii那么就可以很方便的读取

但是，如果是双字节数据（例如：汉字），我就无法读写了

我通过webbrowser控件捕获这些信息：
在Private Sub BrwEvent_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
中，postdata是post过来的信息，但是如果有了一些双字节数据（例如：汉字）就无法分析了

＝＝＝＝请问：postdata的数据编码原理，如何将postdata里面的数据提取出来＝＝＝＝

btw:注意：是post的数据，不是get，post的数据是在postdata里面，而get,是在url里面

wgku 2002-10-02

打赏
举报

shawls 2002-10-02

打赏
举报

sorry

我主要是要得到这样的数据：

就是post过来的数据已经得到，是存放在一个万能变量里面，然而，我希望能转换成可读的文本数据－－那个万能变量里面的数据根本没有办法读，不知道是些什么东西

Eastunfail 2002-10-01

打赏
举报

哇。。。。。。。现在才发现你是两棵星啊。。。。。。。哎，平常没有什么时间来这里，呵呵，半个暑假才加了900多分。

Eastunfail 2002-10-01

打赏
举报

function GetParam()
dim s
s=location.href
if left(s,1)="?" then s=mid(s,2)
GetParam=trim(s)
end function

Eastunfail 2002-10-01

打赏
举报

试试。
function GetProperty(szName)
dim sBuf,iPos1,iPos2
on error resume next
sBuf=GetParam
if sBuf="" then exit function
iPos1=instr(lcase(sBuf),lcase(szName)+"=")
if iPos1=0 then exit function
iPos2=instr(ipos+1,lcase(sBuf),"&")
if iPos2=0 then iPos2=len(sBuf)
GetProperty=trim(Mid(sBuf,iPos1+len(szName)+1,iPos2-5-iPos))
iPos1=Instr(GetProperty,"&")
If iPos1 Then GetProperty=Left(GetProperty,iPos1-1)
end function

shawls 2002-10-01