技术标签 TAGS
专业技术精选
- 2020-03-20非常不错的骰子案例
- 2019-05-26vscode git and gitlens中文乱码问题
- 2011-12-14什么是网站制作的web标准
- 2011-12-14上海网站建设之六大不利优化因素
静态html转成js代码
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body><div align="center">请将html源代码拷贝到下面表单中: <br>
<textarea cols="100" rows="10" id="oSource" onpropertychange="change()" ></textarea>
<br>
下面表单中是相应的JS代码: <br>
<textarea cols="100" rows="10" id="oResult" title="双击复制" ondblclick='this.select();oResult.createTextRange().execCommand("Copy")'></textarea></textarea>
<br>
<script>
function change(){
oResult.value="document.writeln(""+oSource.value.replace(/\/g,"\\").replace(///g,"\/").replace(/'/g,"\'").replace(/"/g,"\"").split('
').join("");
document.writeln("")+"")"
} </script>
<input name=url value="http://www.gzmtr.com">
<input type=button value="打开" onclick=getHTTPPage(url.value)><br>
<iframe src='about:blank' name='fn' width=720 height=600></iframe>
</div>
<script language=javascript>
function check(url)
{
var xmlHttp = new ActiveXObject('Microsoft.XMLHTTP');
var chkUrl = url;
xmlHttp.open('get', chkUrl, false);
try{
xmlHttp.send();
}
catch(e){
window.alert('出现异常');
}
oSource.value=xmlHttp.responseText;
// alert(bytes2BSTR(xmlHttp.responseText));
fn.document.body.innerHTML="<base href='"+url+"'>"+xmlHttp.responseText;
}
</script>
<Script Language=Vbscript>
Function getHTTPPage(url)
'on error resume next
dim http,code
set http= createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
code=bytes2BSTR(Http.responseBody)
oSource.value=code
fn.document.body.innerHTML="<base href='"+url+"'>"+code
set http=nothing
if err.number<>0 then err.Clear
End function
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
</script>
</body>
</html>