<%@LANGUAGE=“VBSCRIPT“ CODEPAGE=“CP_ACP“%>
<html>
<head>
<meta http-equiv=“Content-Type“ content=“text/html; charset=Shift-JIS“>
<SCRIPT LANGUAGE=“JavaScript“>
<!--
function SelText(){
var oRangeRef = ();
alert();
}
//-->
</SCRIPT>
<%
function getHTTPPage(url)
dim Http
set Http=(““)
' “GET“,url,false
“POST“,url,false
()
if <>4 then
exit function
end if
'getHTTPPage=bytesToBSTR(,“GB2312“)
getHTTPPage=bytesToBSTR(,“Shift-JIS“)
set http=nothing
if <>0 then
end if
end function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = (““)
= 1
=3
body
= 0
= 2
= Cset
BytesToBstr =
set objstream = nothing
End Function
%>
<title></title>
</head>
<body onload=“SelText()“>
<%
Dim Url,Html
'Url=“http://localhost/CSharpWebAppTest/?tmp=33333“
'Url=“http://localhost/CSharpWebAppTest/“
Url= “/221.216.169.120“
'Url=“http://localhost/akira/“
Html = getHTTPPage(Url)
Html
%>
</body>
</html>
<html>
<head>
<meta http-equiv=“Content-Type“ content=“text/html; charset=Shift-JIS“>
<SCRIPT LANGUAGE=“JavaScript“>
<!--
function SelText(){
var oRangeRef = ();
alert();
}
//-->
</SCRIPT>
<%
function getHTTPPage(url)
dim Http
set Http=(““)
' “GET“,url,false
“POST“,url,false
()
if <>4 then
exit function
end if
'getHTTPPage=bytesToBSTR(,“GB2312“)
getHTTPPage=bytesToBSTR(,“Shift-JIS“)
set http=nothing
if <>0 then
end if
end function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = (““)
= 1
=3
body
= 0
= 2
= Cset
BytesToBstr =
set objstream = nothing
End Function
%>
<title></title>
</head>
<body onload=“SelText()“>
<%
Dim Url,Html
'Url=“http://localhost/CSharpWebAppTest/?tmp=33333“
'Url=“http://localhost/CSharpWebAppTest/“
Url= “/221.216.169.120“
'Url=“http://localhost/akira/“
Html = getHTTPPage(Url)
Html
%>
</body>
</html>