如何使用html代码创建子函数？

我试图在经典asp中创建一个子函数，显示密码：文本空间？有什么建议吗

Sub GetPassword()
   response.write " Password:"
   <input type="text" name="txtEmPwd" size="20" value="<%=strEmPwd%>">&nbsp;&nbsp;1st 3 chars of 
   last name&nbsp;<input type="text" name="txtFirst3" size="5" maxlength=3 value="<%=strFirst3%>"> 
end sub

Sub-GetPassword（）
响应。写入“密码：”
前3个字符
姓
端接头

我得到一个大于字符的错误

Microsoft VBScript编译错误“800a0400”

---

这是因为您直接在服务器端代码中编写html。 必须将html添加为字符串，如下所示：

Sub GetPassword()
   dim html
   html = "Password:"
   html = html & "<input type='text' name='txtEmPwd' size='20' value='" & strEmPwd & "'>&nbsp;&nbsp;1st 3 chars of last name&nbsp;"
   html = html & "<input type='text' name='txtFirst3' size='5' maxlength='3' value='" & strFirst3 & "'>"
   Response.Write html
end sub

Sub-GetPassword（）
暗淡的html
html=“密码：”
html=html&“姓氏前3个字符”
html=html&“
响应。编写html
端接头

这是否回答了您的问题？