本站源代码
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

56 lines
1.5KB

  1. <!doctype html>
  2. <title>CodeMirror: VBScript mode</title>
  3. <meta charset="utf-8"/>
  4. <link rel=stylesheet href="../../doc/docs.css">
  5. <link rel="stylesheet" href="../../lib/codemirror.css">
  6. <script src="../../lib/codemirror.js"></script>
  7. <script src="vbscript.js"></script>
  8. <style>.CodeMirror {border-top: 1px solid black; border-bottom: 1px solid black;}</style>
  9. <div id=nav>
  10. <a href="https://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a>
  11. <ul>
  12. <li><a href="../../index.html">Home</a>
  13. <li><a href="../../doc/manual.html">Manual</a>
  14. <li><a href="https://github.com/codemirror/codemirror">Code</a>
  15. </ul>
  16. <ul>
  17. <li><a href="../index.html">Language modes</a>
  18. <li><a class=active href="#">VBScript</a>
  19. </ul>
  20. </div>
  21. <article>
  22. <h2>VBScript mode</h2>
  23. <div><textarea id="code" name="code">
  24. ' Pete Guhl
  25. ' 03-04-2012
  26. '
  27. ' Basic VBScript support for codemirror2
  28. Const ForReading = 1, ForWriting = 2, ForAppending = 8
  29. Call Sub020_PostBroadcastToUrbanAirship(strUserName, strPassword, intTransmitID, strResponse)
  30. If Not IsNull(strResponse) AND Len(strResponse) = 0 Then
  31. boolTransmitOkYN = False
  32. Else
  33. ' WScript.Echo "Oh Happy Day! Oh Happy DAY!"
  34. boolTransmitOkYN = True
  35. End If
  36. </textarea></div>
  37. <script>
  38. var editor = CodeMirror.fromTextArea(document.getElementById("code"), {
  39. lineNumbers: true,
  40. indentUnit: 4
  41. });
  42. </script>
  43. <p><strong>MIME types defined:</strong> <code>text/vbscript</code>.</p>
  44. </article>
上海开阖软件有限公司 沪ICP备12045867号-1