哪位大侠能把这段Script代码转换成asp代码？

[tom800]

因为小弟对Script不太熟悉，所以请各位大侠帮帮小弟把下面这段代码所起到的效果用asp写出来，多谢了。

========================代码如下：========================

<SCRIPT LANGUAGE="JavaScript">
function isExist(url) {
xmlhttp = new ActiveXObject("Microsoft.XMLHTTP")
xmlhttp.open("GET",url,false)
xmlhttp.send()
if(xmlhttp.status==200)
alert(url+" 存在")
else
alert(url+" 不存在")
}
</SCRIPT>
<input type="button" onclick="isExist('http://www.baidu.com')" value="检测url是否存在">

=====================代码结束============================

[nchen123]

<script language="vbscript">
function IsExist(url)
dim xmlhttp
set xmlhttp = createobject("Microsoft.XMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.send
if xmlhttp.status = 200 then
msgbox(url & " 存在")
else
msgbox(url & " 不存在")
end if
end function
<script>
<input type="button" onclick="vbscript:IsExist('http://www.baidu.com')" value="检测url是否存在">

[lovewangshu]

阅
呵呵，别见怪,来学习的~~

[tom800]

谢谢 inelm(Archimond 【阿克蒙德】 ，不过我不是这个意思

我的意思是把这段代码用asp写出来

<%

代码在这里

%>