请问如何模拟post方法自动提交查询数据？？

eastbound 2007-01-26 10:57:32

例如下面一个查询网站，我想自动查询获得某个车牌好(如鲁YG1470)是否有违章记录，如何做？
http://www.ytjj.gov.cn/InfoQuery/SeekFXC.asp

我用下面一段代码，不好用，不知道应该怎么实现？？

<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<meta http-equiv="refresh" content="10;URL=aaa.asp">
</HEAD>

<BODY>
<%
Function UrlEncoding(DataStr)
Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
StrReturn = ""
For Si = 1 To Len(DataStr)
ThisChr = Mid(DataStr,Si,1)
If Abs(Asc(ThisChr)) < &HFF Then
StrReturn = StrReturn & ThisChr
Else
InnerCode = Asc(ThisChr)
If InnerCode < 0 Then
InnerCode = InnerCode + &H10000
End If
Hight8 = (InnerCode And &HFF00)\ &HFF
Low8 = InnerCode And &HFF
StrReturn = StrReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
UrlEncoding = StrReturn
End Function

src_="http://www.ytjj.gov.cn/InfoQuery/SeekFXC.asp"
strPost_="cartype=02&hphm=鲁YG1470"
set Http=server.createobject("MSXML2.XMLHTTP")
'Http.setRequestHeader "Content-Length",len(StrPost_)
Http.open "Post",src_ ,false
Http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
Http.send URLEncoding(StrPost_)
Response.write Http.responseText&"@"
Response.end

%>
</BODY>
</HTML>

...全文

485 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

BoyHaXin 2007-01-26

打赏
举报

嘿嘿,完成的话,希望楼主快点结贴

BoyHaXin 2007-01-26

打赏
举报

<SCRIPT language=JavaScript>
function scroll() {
//alert('ss');
document.frm_query.submit();
clocktimer = setTimeout("", 1000);
}
</SCRIPT>
<body onLoad="scroll()">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<FORM id=frm_query name=frm_query action=http://www.sure56.com/Query2.asp method=post>
<tr>
<td align="left">页面正在跳转,请稍等……</td>
</tr>
<tr>
<input type="hidden" name="BillCode" value="<%=SoName%>" />
</td>
</tr>
</FORM>
</table>
这是我做的一个网站,你参考一下

BoyHaXin 2007-01-26