.版本 2

.程序集 程序集1

.子程序 malloc, 整数型
.参数 size, 整数型

返回 (LocalAlloc (64, size))

.子程序 free
.参数 hMem, 整数型

LocalFree (hMem)

.子程序 整数_取最小值, 整数型
.参数 整数1, 整数型
.参数 整数2, 整数型

返回 (选择 (整数1 ＜ 整数2, 整数1, 整数2))

.子程序 realloc, 整数型
.参数 hMem, 整数型
.参数 size, 整数型

返回 (LocalReAlloc (hMem, size, 位或 (2, 64)))

.子程序 HTML代码转移为显示, 文本型
.参数 HTML代码, 文本型, , 将HTML代码中的<"&> "转换为不被解析，且能直接显示在HTML中的文字
.局部变量 临时_代码, 文本型

' 临时_代码 ＝ 子文本替换 (临时_代码, “&”, “&amp;”, , , 假)
临时_代码 ＝ 子文本替换 (HTML代码, “<”, “&lt;”, , , 假)
临时_代码 ＝ 子文本替换 (临时_代码, “>”, “&gt;”, , , 假)
' 临时_代码 ＝ 子文本替换 (临时_代码, #引号, “&quot;”, , , 假)
' 临时_代码 ＝ 子文本替换 (临时_代码, “ ”, “&nbsp;”, , , 假)
返回 (临时_代码)

