<html>
<head>
<meta http-equiv=content-type content="text/html; charset=gb2312">
<title>取图工具</title>
<style>
*{line-height:160%;
font-size:16px;}
a{line-height:160%;
font-size:16px;}</style>
</head>
<script language="JavaScript1.2">
<!--
function extractlinks(){
var links=document.all.tags("A")
var total=links.length
var win2=window.open("","","menubar,scrollbars,toolbar")
win2.document.write("<font size='4'>一共有"+total+"个连接</font><br>")
for (i=0;i<total;i++){
win2.document.write("<font size='4'>"+links[i].outerHTML+"</font><br>")
}
}
//-->
</script>
<body>
<%function HMread(fString)
dim rig,clearH
if not isnull(fString) then
set clearH = new RegExp 
clearH.Pattern = "<[^>]*>" 
clearH.Global = true 
fString = clearH.Replace(fString,"") 
'fString = replace(fString, "<", "&lt;")
'fString = Replace(fString, CHR(32), "&nbsp;")
'fString = Replace(fString, CHR(9), "&nbsp;")
fString=" "&fString 
Set rig=new regExp '建立正则表达式对象regular expression 
rig.IgnoreCase=true '忽略大小写 
rig.Global=true '搜索匹配字串针对全部文本 
'查找带协议前缀的链接 
rig.Pattern="(http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?)" 
fString=rig.replace(fString,"<a href=""$1"">$1</a>") 
Set rig=nothing 
fString=trim(fString) 
HMread = fString
end if
end function%>
<input type="button" onClick="extractlinks()" value="显示所有的连接">
<form action="?ty=see" method="post">
<textarea name="css" cols="66" rows="22"></textarea>
<input type="submit" value="提交">
</form>
<%if request("css")<>"" then
response.Write HMread(request("css"))
end if%>
</body>
</html>