VBScript版代码高亮(4)

Function goit(stx)
 Dim code,HL
 code = Document.all.code.value
 Set HL = New Highlight
 HL.Language = stx
 HL.CodeContent = code
 document.getElementById("highlight").innerHTML = Hl.Execute
End Function
</script>

<form method="post">
<div><textarea rows="18"></textarea></div>
 <input type="button" value="HTML" />
 <input type="button" value="VB/VBScript" />
 <input type="button" value="JavaScript" />
 <input type="button" value="C#" />
 <input type="button" value="SQL" />
 <input type="button" value="XML" />
 <input type="button" value="Java" />
 <input type="button" value="粘贴" />
 <input type="reset" value="清空内容" />
</form>

<div><div>
</body>
</html>

您可能感兴趣的文章: