标签归档:Get

ASP直接使用表单名称变量调用GET提交的数据

当PHP.ini设置register_globals = On是,通过GET提交的数据可以直接使用表单名调用GET提交的数据。asp就不可以,我想到了asp的execute,也谢了一个脚本,还能过滤SQL注入字符串

<%
Dim myRegExp

set myRegExp=New RegExp
myRegExp.Pattern = "[^a-z0-9_]"
myRegExp.Global=True

for each Req in Request.Querystring
	ReqV=Request.Querystring(Req)
	if trim(ReqV)&lt;&gt;"" then
		ReqV=replace(ReqV,"""","""""")
		Req=myRegExp.Replace(Req,"")
		Execute(Req&"="""&ReqV&"""")
	end if
next

response.write a
%>

调用很简单。比如GET提交/get_Test.asp?a=111&b=222

则直接可以使用Response.write a,输出结果为111。简单吧~

再次感谢小秦(Q48080163)提出的bug

用ASP/VBScript获取文章列表

< %
'ASP获取文章列表
function getHTTPPage(url)  
	dim Http  
	set Http=server.createobject("MSXML2.XMLHTTP")  
	Http.open "GET",url,false  
	Http.send()  
	if Http.readystate<>4 then  
		exit function  
	end if  
	getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")  
	set http=nothing  
	if err.number<>0 then err.Clear  
end function  
 
Function BytesToBstr(body,Cset)  
	dim objstream  
	set objstream = Server.CreateObject("adodb.stream")  
	objstream.Type = 1  
	objstream.Mode =3  
	objstream.Open  
	objstream.Write body  
	objstream.Position = 0  
	objstream.Type = 2  
	objstream.Charset = Cset  
	BytesToBstr = objstream.ReadText  
	objstream.Close  
	set objstream = nothing  
End Function  
 
Function ZZ(ustr,uexp)
	Set regEx=New RegExp
	regEx.Pattern=uexp
	regEx.IgnoreCase=True
	regEx.Global=True
	Set ZZ=regEx.Execute(ustr)
End Function
 
Sub Echo(t)
	response.write t&"<br />"&vbcrlf
End Sub
 
Sub getall(url,xurl,uri)
	Html = getHTTPPage(uri&Url)
	set Rs=ZZ(html,"("&xurl&"?.*)[#""].*>(.*)< \/a")
	for each uurl in Rs
		'echo uri&replace(uurl,"""","")
		Set oMacs=uurl
		echo uri&oMacs.SubMatches(0)&"|"&oMacs.SubMatches(1)
	next
End Sub
 
urls=split("ftgb|ftlg|zykt","|")
xurls=split("ftgbxx|ftlgxx|zyktcpxx","|")
for i=0 to ubound(urls)
	getall urls(i)&".jsp",xurls(i)&".jsp","http://gree.com.cn/gree_product/"
next
%>

下边发个VBscript版本的

'VBScript获取文章列表
function getHTTPPage(url)  
	dim Http  
	set Http=createobject("MSXML2.XMLHTTP")  
	Http.open "GET",url,false  
	Http.send()  
	if Http.readystate<>4 then  
		exit function  
	end if  
	getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")  
	set http=nothing  
	if err.number<>0 then err.Clear  
end function  
 
Function BytesToBstr(body,Cset)  
	dim objstream  
	set objstream = CreateObject("adodb.stream")  
	objstream.Type = 1  
	objstream.Mode =3  
	objstream.Open  
	objstream.Write body  
	objstream.Position = 0  
	objstream.Type = 2  
	objstream.Charset = Cset  
	BytesToBstr = objstream.ReadText  
	objstream.Close  
	set objstream = nothing  
End Function 
 
Function ZZ(ustr,uexp)
	Set regEx=New RegExp
	regEx.Pattern=uexp
	regEx.IgnoreCase=True
	regEx.Global=True
	Set ZZ=regEx.Execute(ustr)
End Function
 
Sub Echo(t)
	Wscript.echo t
End Sub
 
Sub getall(url,xurl,uri)
	Html = getHTTPPage(uri&Url)
	set Rs=ZZ(html,"("&xurl&"?.*)[#""].*>(.*)< \/a")
	for each uurl in Rs
		'echo uri&replace(uurl,"""","")
		Set oMacs=uurl
		echo uri&oMacs.SubMatches(0)&"|"&oMacs.SubMatches(1)
	next
End Sub
 
urls=split("ftgb|ftlg|zykt","|")
xurls=split("ftgbxx|ftlgxx|zyktcpxx","|")
for i=0 to ubound(urls)
	getall urls(i)&".jsp",xurls(i)&".jsp","http://gree.com.cn/gree_product/"
next

用到了正则表达式,令以前收藏的一个正则表达式教程分享给代价

能轻松加入FLASH,获取URL提交的数据,获取DOM对象并能轻松修改ClassName的JS框架:myw3sys

还有一片关于文件搜索的文章要发,准备测试截图的时候忽然想到了前几天些个一个JS框架,也发上来
测试地址为:http://labs.myw3.cn/JS/myw3sys/
文件下载地址:http://labs.myw3.cn/js/resource/myw3sys.js

通过该JS框架,可以:
1,通过_Swf("wjgww.swf",320,240,2);在网页中插入一个wjgww.swf的Flash文件
2,使用_Query("a")来获取通过GET提交的a对应数据
3,用_Get("li","tagname",_Get("das"))[0]来获取ID为das的第一个tagname为li的子对象
4,用_Get("dax").Class.add("x1")来修改classname,实现超炫的效果

/*

MyW3 Js Tools Kit 1.0

更新说明:
1.Swf添加了透明支持
2.增加了_Get对象
3.增加了修改Class函数
4.增加了Query查询GET提交的数据

函数:_Swf(s,w,h,d,i)
功能:加载SWF文件;
用法:_Swf(Flash文件名,宽,高,文件背景是否透明,FlashURI);
宽高:可以是数字,也可以为站父对象的百分比(如:100%),可以省略,默认100%;
文件背景是否透明:1为透明,其他未不透明,可以省略,默认透明;
FlashURI:Flash默认的保存路径,可以省略,默认未myw3_res指定的路径;

函数:_Get(o,t,p)
功能:获取DOM对象;
用法:_Get(对象标识,标识类型,父对象);
对象标识:根据标识类型根据对象标识获取对象;
标识类型:id、tagname、name,可以省略,默认id;
父对象:可以省略,默认documet;

函数:_Query(key)
功能:查询GET提交的数据;
用法:_Query(关键字);

函数:o.Class.add(classname),o.Class.get(),o.Class.remove(classname)
功能:添加/删除/查看对象的ClassName
用法:_Class(对象).add(Class名称),_Class(对象).get(),_Class(对象).remove(Class名称)

请尊重作者的劳动成果,保存下面的版权连接
版权所有:MyW3

*/
var myw3=new myw3sys();
var myw3_res=”/Js/resource/”; //资源文件的默认路径
var _Myw3_QueryData=new Array();

function myw3sys(){
this.cn=new function(){
this.ver=”1.00.0710″;
this.sid=”80710″
this.home=new function(){
this.name=”MyW3 Js Tools Kit”
this.url=”http://labs.myw3.cn/js/resource/myw3sys.js”
this.homesite=”http://labs.myw3.cn/js/myw3sys/”
this.GoHome=function(){location.href=this.homesite;}
this.Download=function(){location.href=this.url;}
return this.url;
}
}
this.cn_query=function(_q){
if(_Myw3_QueryData.length==0)
__CreateQueryDate();
for(i=0;i<_Myw3_QueryData.length;i++){
if(_Myw3_QueryData[i][0]==_q){
return _Myw3_QueryData[i][1];
}
}
}
this.cn_class=new function(){
var q=(window.ActiveXObject)?”className”:”class”;
this.q=q;
this.add=function(c){
if(this.get()&&this.get()!=”undefined”){
if(this.get().indexOf(c)==-1)
tmp=this.get()+” “+c;
}else{
tmp=c;
}
po.setAttribute(q,tmp);
}
this.remove=function(c){
if(this.get()){
var tmp=this.get();
tmp=tmp.replace(” “+c,””);
tmp=tmp.replace(c+” “,””);
if(this.get().indexOf(” “)==-1){tmp=tmp.replace(c,””);}
}
po.setAttribute(q,tmp);
}
this.get=function(){
return po.getAttribute(q);
}
}
this.cn_swf=function(s,w,h,d,i){
s=s.replace(“fla”,”swf”);
if(!w)
w=”100%”;
if(!h)
h=”100%”;
if(!d)
d=1;
//d==0?transparent:Opaque;
if(!i)
//默认的FlashURI
i=myw3_res;
d=d==1?”transparent”:”Opaque”;
document.writeln(‘‘);
}
this.cn_get=function(o,t,p){
if(!p)
p=document;
switch(t){
case “name”:po=p.getElementsByName(o);break;
case “tagname”:po=p.getElementsByTagName(o);break;
default:po=document.getElementById(o);break;
}
if(po){
po.Class=new _Class;
}
return po;
}
}
function __CreateQueryDate(){
var _Myw3_QueryData_S=location.search;
if(_Myw3_QueryData_S!=””){
var _Myw3_QueryData_Ss=_Myw3_QueryData_S.replace(“?”,””).split(“&”);
for(var i=0;i<_Myw3_QueryData_Ss.length;i++){
var MyW3_QueryData_Sa=_Myw3_QueryData_Ss[i].split(“=”);
_Myw3_QueryData[i]=new Array(MyW3_QueryData_Sa[0],MyW3_QueryData_Sa[1])
}
}else{
_Myw3_QueryData[0]=new Array(0,0);
}
}

//_Class请勿修改,否则导致程序不正常
function _Class(){
return myw3.cn_class;
}

function _Swf(s,w,h,d,i){
myw3.cn_swf(s,w,h,d,i);
}

//兼容Beta1.0版本的myw3_swf
function myw3_swf(s,w,h,i){
myw3.cn_swf(s,w,h,1,i);
}

function _Get(o,t,p){
return myw3.cn_get(o,t,p);
}

function _Query(Q){
return myw3.cn_query(Q);
}

function _Help(){
myw3.cn.home.GoHome();
}