获得服务器IP与模拟iframe
Submitted by on 2007, January 24, 4:21 AM. 技术
1. ASP 获得服务器IP的函数 使用XMLHTTP组件完成
<%
host = getIP()
Response.Write "本机IP: "&host
function getIP()
url="http://www.48474.com/myvbs/myvbs.php"
Set oXMLHttpRequest = CreateObject("Microsoft.XMLHTTP")
oXMLHttpRequest.Open "GET", url, False, False
oXMLHttpRequest.Send
strIPAddr=oXMLHttpRequest.ResponseText
getIP = Trim(Mid(strIPAddr, 1, 30))
end function
%>
2. 直接模拟iframe，用层做容器 DIV+CSS完成
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style>
* { font:12px Arial;}
#content { overflow:auto; height:185px; width:600px; background:#ccc; padding:10px;}
</style>
</head>
<body>
<h4 style="font-weight:bold;">用CSS构建iframe效果</h4>
<p>直接模拟iframe，用层做容器</p>
<div id="content">
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
</div>
</body>
</html>
<%
host = getIP()
Response.Write "本机IP: "&host
function getIP()
url="http://www.48474.com/myvbs/myvbs.php"
Set oXMLHttpRequest = CreateObject("Microsoft.XMLHTTP")
oXMLHttpRequest.Open "GET", url, False, False
oXMLHttpRequest.Send
strIPAddr=oXMLHttpRequest.ResponseText
getIP = Trim(Mid(strIPAddr, 1, 30))
end function
%>
2. 直接模拟iframe，用层做容器 DIV+CSS完成
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style>
* { font:12px Arial;}
#content { overflow:auto; height:185px; width:600px; background:#ccc; padding:10px;}
</style>
</head>
<body>
<h4 style="font-weight:bold;">用CSS构建iframe效果</h4>
<p>直接模拟iframe，用层做容器</p>
<div id="content">
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
</div>
</body>
</html>
