苗启源的部落格

当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获取文章列表
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 [...]

还有一片关于文件搜索的文章要发，准备测试截图的时候忽然想到了前几天些个一个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,实现超炫的效果