以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于这个代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142138)
--  作者：ygg8310
--  发布时间：2019/10/19 12:24:00
--  关于这个代码

Dim Info As String
Info = FileSys.ReadAllText(ApplicationPath & "wz.txt", Encoding.Default) \'读取生成的文本文件
info = info.Replace(vbcrlf,vblf) \'将回车换行替换为换行
Dim pars() As String = Info.Split(vblf) \'将读取的信息拆分为数组

Dim r As Row = Tables("表A").AddNew
r("姓名") = pars(0).Trim()
r("性别") = pars(1).Trim()
r("住址") = pars(4)
r("身份证号码") = pars(5)
sb.AppendLine("<form enctype=\'multipart/form-data\' method=\'post\' id=\'form1\' name=\'form1\'>")
sb.AppendLine("姓名: <input name=\'xm\' id=\'cp\'><br/><br/>")
sb.AppendLine("性别: <input name=\'xb\' id=\'kh\'><br/><br/>")
sb.AppendLine("身份证号: <input name=\'sfzh\' id=\'gy\'><br/><br/>")
sb.AppendLine("住址: <input name=\'zz\' id=\'gy\'><br/><br/>")
sb.AppendLine("<input Type=\'submit\' name=\'Sumbit\' id=\'Sumbit\' value=\'确定\'>")
sb.AppendLine("</form>")
e.WriteString(sb.ToString)
请教一下，这段标记了的代码该如何写才能变成在AppendLine中显示？
--  作者：有点蓝
--  发布时间：2019/10/19 14:03:00
--  
例如：
sb.AppendLine("姓名: <input name=\'xm\' id=\'xm\' value=\'" & pars(0).Trim() & "\' /><br/><br/>")