28,406
社区成员
发帖
与我相关
我的任务
分享难！！！需要2个文件，一个.asp放在服务器端，一个是.html放在客户端。目的是执行.html的时候可以在网页上显示本机的IP。
ip.html执行的时候访问服务器端（192。168。1。1）的ip.asp，希望可以返回客户端的IP地址（比如 192.168.1.20）.
...全文
请发表友善的回复…
发表回复
csdner 2005-06-29
- 打赏
- 举报
请问有没有一个完整的例子？我不会改 :(
look4sword 2005-06-29
- 打赏
- 举报
晕了，上面的yyy.asp应该是yyy.htm.
look4sword 2005-06-29
- 打赏
- 举报
xxx.asp
<%
nnn=request.ServerVariables("REMOTE_ADDR")
response.write nnn
%>
yyy.asp
<script src=http://..../xxx.asp></script>
<%
nnn=request.ServerVariables("REMOTE_ADDR")
response.write nnn
%>
yyy.asp
<script src=http://..../xxx.asp></script>
白夜花寒 2005-06-29
- 打赏
- 举报
<iframe src='xxx.asp'></iframe>
xxx.asp
<%
nnn=request.ServerVariables("REMOTE_ADDR")
response.write nnn
%>
这个你总会了吧??xmlhttp那个我是懒得改,要是不懒不早改了,一般我回答问题都用我现成代码,好改的改改,改起来麻烦的就不改了^0^
xxx.asp
<%
nnn=request.ServerVariables("REMOTE_ADDR")
response.write nnn
%>
这个你总会了吧??xmlhttp那个我是懒得改,要是不懒不早改了,一般我回答问题都用我现成代码,好改的改改,改起来麻烦的就不改了^0^
lovebanyi 2005-06-28
- 打赏
- 举报
用框架也行啊，
白夜花寒 2005-06-28
- 打赏
- 举报
request.ServerVariables("REMOTE_ADDR")
<html>
<head>
<%
Dim objXMLHTTP, xml
Set xml = server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET","http://localhost/website/manageindex.htm", False
xml.Send
Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag
'中文字符Skip标志
skipflag=0
ccc = ""
If Not IsNull(binstr) Then
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
'判断是否中文的字符
If AscB(clow) > 127 Then
'AscW会把二进制的中文双字节字符高位和低位反转，所以要先把中文的高低位反转
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
End If
bin2str = ccc
End Function
function utf2str(binstr)
end function
%>
</head>
<body>
<%
response.Write bin2str(xml.responseText)
%>
</body>
</html>
改成客户端的xmlhttp.....
<html>
<head>
<%
Dim objXMLHTTP, xml
Set xml = server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET","http://localhost/website/manageindex.htm", False
xml.Send
Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag
'中文字符Skip标志
skipflag=0
ccc = ""
If Not IsNull(binstr) Then
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
'判断是否中文的字符
If AscB(clow) > 127 Then
'AscW会把二进制的中文双字节字符高位和低位反转，所以要先把中文的高低位反转
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
End If
bin2str = ccc
End Function
function utf2str(binstr)
end function
%>
</head>
<body>
<%
response.Write bin2str(xml.responseText)
%>
</body>
</html>
改成客户端的xmlhttp.....
goddy123 2005-06-27
- 打赏
- 举报
用xmlhttp吧
