www.gusucode.com > hi5360.com网站源码 2.2.1208 > lcsk/index.asp

    <%
' ===============================================================
' 本程序供学习交流之用，禁止做为商业用途！可以自由转载免费使用，转载时请在贵站的
' 友情连接中加入本站连接：
' <a href="http://www.hi5360.com">电子商务之家hi5360</a>

' 并请保留如下信息：
' 发布网站：http://www.hi5360.com	网站名称：电子商务之家·hi5360.com
' Copyright (C) 2007-2008 HI5360.COM All Rights Reserved.
' ===============================================================
%>
<!--#include file="../inc/StealClass.asp"-->
<%
Dim mySTL,outstr,url
Dim vFZM,vDZM
dim qryStr,hiCode

qryStr=Request.ServerVariables("QUERY_STRING")
vFZM=request.Form("fzm") : vDZM=request.Form("dzm")	
hiCode=Request.Form("hiCode")
if Trim(hiCode)<>"" then qryStr=Trim(hiCode)

'//站站POST查询
if len(vFZM)>0 and len(vDZM)>0 then
	qryStr=Trim(vFZM)&"到"&Trim(vDZM)
end if

'//所有查询参数统一转换为GET方法的参数；开始采集处理...
url="http://www.hi5360.com/open/iTrain1.0.asp?"&qryStr

set mySTL=new clsSteal
mySTL.src=url
mySTL.send("GET")
outstr=mySTL.value

Response.Write(outstr)
%>