function showinfo(xslfilepath,xmlfilepath)
	dim xsldoc
	dim showstring
	set xsldoc=CreateObject("Microsoft.XMLDOM")
	xsldoc.async=false
	xsldoc.load xslfilepath
	set xmldoc=CreateObject("Microsoft.XMLDOM")
	xmldoc.async=false
	xmldoc.load xmlfilepath
	showinfo=xmldoc.transFormNode(xsldoc)
end function

function GetQueryValue(sorStr,panStr) 
if sorStr="" or panStr="" then
	GetQueryValue=""
else
	if left(sorStr,1)="?" then sorStr=mid(sorStr,2)
	sorStr=sorStr+"&"
	sorStr_arry=split(sorStr,"&")
	panStr=panStr+"="
	for i=0 to ubound(sorStr_arry)
		if instr(1,sorStr_arry(i),panStr)>0 then
			GetQueryValue=split(sorStr_arry(i),"=")(1)
		end if
	next
end if

end function