如何用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

出现大于字符的错误

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