以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于web输入框自动填写的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185591)

--  作者:ygg8310
--  发布时间:2023/3/3 19:22:00
--  关于web输入框自动填写的问题
Dim sb As New StringBuilder
sb.AppendLine("<form enctype=\'multipart/form-data\' method=\'post\' id=\'form1\' name=\'form1\'>")
sb
.AppendLine("产品: < input name=\'cp\' id=\'cp\'><br/><br/>")
sb
.AppendLine("客户: < input name=\'kh\' id=\'kh\'><br/><br/>")
sb
.AppendLine("雇员: < input name=\'gy\' id=\'gy\'><br/><br/>")
sb
.AppendLine("单价: < input type=\'number\' name=\'dj\' id=\'dj\'><br/><br/>")
sb
.AppendLine("折扣: < input type=\'number\' name=\'zk\' id=\'zk\' min=\'0\' max=\'0.15\' step=\'0.01\'><br/><br/>")
sb
.AppendLine("数量: < input type=\'number\' name=\'sl\' id=\'sl\'><br/><br/>")
sb
.AppendLine("日期: < input type=\'date\' name=\'rq\' id=\'rq\'><br/><br/>")
sb
.AppendLine("<input Type=\'submit\' name=\'Sumbit\' id=\'Sumbit\' value=\'确定\'>")
sb
.AppendLine("</form>")
e
.WriteString(sb.ToString)
这个如何实现日期自动填写为今天?

--  作者:有点蓝
--  发布时间:2023/3/4 8:56:00
--  
sb.AppendLine("日期: < input type=\'date\' name=\'rq\' id=\'rq\' value=\'" & format(date.today,"yyyy-MM-dd") & "\'><br/><br/>")