<%
function mtface(fstring)
dim mtstart,mtend,mtstr
mtstart=1
do until mtstart=0
mtstart=instr(1,fString,"[SxyzMagic",vbtextCompare)
if mtstart>0 then
	mtend=instr(mtstart,fString,"]",vbtextCompare)
	mtstr=mid(fString,mtstart+10,mtend-mtstart-10)
	fString=replace(fString,"[SxyzMagic"&mtstr&"]","&nbsp;<SPAN onmouseover=ShowQQ("&mtstr&") hand><IMG height=41 src=images/YSQQ/"&mtstr&".gif width=41 border=1></SPAN>&nbsp;")
else
end if
loop
mtface=fString
end function
%>